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509500 09/20/67 ON 14-37-43 



- P ^ s?7 



mMMMMti* 



PACK 
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PREPROCESSOR UPDATE PROGRAM 
tPCATE 9 



ENDEND END CQNTIN 
ENDEND END CONTIN 



LSH2207Q 
LS 122070 



DELETES 
INSERTED 



mam 
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LS000010 

* LS000020 

* LS000030 

* SYSTEM TAPE IS GENERATED ON B6 LS000040 

* USES A4 AND Bl TO TEST TAPE ROUTINES LS000050 

* LISP 1.5 CORRECTED AND TESTED AT STANFORD LS000070 
p CC LS000080 
COUNT 13000 LS000090 
AtJ S LS000100 



WMVMMaiMqMniMMilllll^^ 
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77706 



BINARY C 
7 7 71 
7772 
7772 
7772 
7 772 
7 772 
7772 
7772 
7772 
7773 
7773 
7773 
7773 
7 773 



ARD NO, 



3 CO 
660 
00 20 
0762 
540 
0544 
0022 
500 

-0 734 
,1 77 

-06 34 

-0 535 
0621 

-2 GO 



LI SPG 

5G0 
GO 
GO 
CO 
GO 
CO 
00 
CO 
GO 1 

300 1 
CO 1 
GO 1 
CO 

000 1 



01202 
77706 

77717 

000 

77722 

OOOOl 

77722 

01222 

77745 

77741 

77747 

77706 

OOOQO 

77731 

77706 

77 70 6 

77734 

00000 



TTL LOADER FOR BIN 
•STDCTL - STANFORD OCTAL CO 
FUL 

LOADS 22 / CARD C0LU7N 
THE BINARY LOADING SEC 
OCTAL CORRECTION CARDS 



# 

« 

« 

« 

* 

* 
« 

* 
* 
•a 

# 

« 
» 

« 

» 

« 
« 
* 
# 



LDB 



THERE 



COL. 

2- 6 

7-18 
20-24 
25-36 
38-42 
43-54 
56-60 
61-72 
73-80 



MAY BE AS MANY A 
FOLLOWING FORM 

FIELD 

LOCATION OF FI 
FIRST CORRECTI 
LOCATION OF SE 
SECOND CORRECT 
LOCATION OF TH 
THIRD CORRECTI 
LOCATION OF FO 
FOURTH CORRECT 
IDENTIFICATION 



DECK AND CORRECTIONS 
RRECTION CARD LOADER 

BINARY AND OCTAL CORRECTION CARDS OFF A2 
TION IS FROM WD BL 1 
SAME FORMAT AS RW TML 

S 4 OCTAL CORRECTIONS PER CARD, IN THE 
AT . . 



RST CORRECTION 

ON 

CONG CORRECTION 

ION 

IRD CORRECTION 

ON 

URTH CORRECTION 

ION 



THE FIRST ZERO 
CARD. A 1 IN THE BLAN 
ADDRESS WILL CORRECT L 
FIELD IS ZERO. IN THI 
THE CARD CONTINUES. 

THE LOW ORDER 
INTERPRETED AS AN OCTA 
ZERO, A AS 1, 9 AS 1, 



LA 





S. R. RUSSELL, 


HEAD L 




TAPENG 


A2 


ORG 


-58 


BSS 


12 


ORG 


*-3 


IORT 


* + 3, ,320 


TCOA 


1 


TRA 


LDB 


RTBZ 




RCHZ 


IOCT 


LCHZ 


TXH 


TRCZ 


FLIP1 


CLA 


8 


PDX 


il 


TXI 


*+l, 1,-320 


SXD 


8,1 


LDC 


B,l 


STA 


*+l 


TNX 


0,1,0 



OR BLANK LOCATION TERMINATES LOADING THE 
K COLUMN IMMDBIATELY BEFORE THE LOADING 
OCATION IF THE REST OF THE LOCATION 
S CASE THE LOADING OF CORRECTIONS FROM 



THREE BITS GF EACH CHARACTER ARE 

L DIGIT, SO BLANK WILL BE TREATED AS 

ETC. 

28 JULY 63 



LS000110 
LS000120 
LS000130 
LS000140 
LS000150 
LS000160 
LS000170 
LS000180 
LS000190 
LS000200 
LS000210 
LS000220 
LS000230 
LS000240 
LS000250 
LS000260 
LS000270 
LS000280 
LS000290 
LS000300 
L SO 003 10 
LS000320 
LS000330 
LS000340 
LS000350 
LS000360 
LS000370 
LS000380 
LS000390 
LS000400 
LS000410 
LS000420 
LSG00430 
LS000440 
LS000450 
LS000460 
LS000470 
LS000480 
LS000490 



LS000500 
LS000510 
LS000520 
LS000530 
LS000540 
LS000550 
LS000560 
LS000570 
LS000580 
LS000590 
LS000600 
LS000610 
LS000620 
LS000630 
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77735 


0540 CO 





77706 




RCHZ 


B 


77736 


060 CO 





77 736 




TCOZ 


* 


77737 


1 GOO 01 


1 


77740 




TXI 


*+l,l,l 


7774C 


0361 6 


c 


77 7 34 




ACL* 


LA 


77741 


3 000 CO 


1 


77737 


TXH 


TXH 


*-2,l,0 


77742 


0322 CO 





77707 




ERA 


B+l 


7 7743 


100 CG 





77722 




TZE 


LDB 


77 74 4 


0000 00 


c 


77722 


HLT 


HTR 


LDB 


77745 


-1 0000 2 





77706 


IOCT 
* 


IOCT 


B,,2 



77746 0000 CO 77746 



BINARY CARD NO. LXSP0GG1 



HTR 



ABS 



7 7747 


0764 


CG 





01202 


FLIP1 


BSRZ 




7 7 75 


0762 


CO 





01202 


OCB 


RTOZ 




7 7751 


0540 


CG 





77776 




RCHZ 


IOC 


77752 


0060 


CO 





77752 




TCOZ 


* 


7775 3 


00 22 


CO 





77765 




TRCZ 


FLIP 


77754 


0774 


OG 


2 


00015 




AXT 


13,2 


77755 


-0 7 54 


CG 





00000 


GCL 


ZAC 




77756 


74 


CG 


4 


77767 




TSX 


BLD.4 


7 775 7 


0100 


CO 





77750 




TZE 


OCB 


77760 


0621 


CO 





7776 3 




STA 


SLW 


77761 


74 


CO 


4 


77767 




TSX 


BLD,4 


7 7762 


0074 


CO 


4 


7 7 767 




TSX 


BLD,4 


77763 


0602 


CG 





CO 000 


SLW 


SLW 


— 


77764 


0020 


CO 





77755 




TRA 


OCL 


7 7 765 


0764 


CG 





01202 


FLIP 


BSRZ 




77 76 6 


00 20 


GO 





77722 




TRA 


LDB 


7 7 767 


0774 


CG 


1 


00O0.6 


ELD 


AXT 


6,1 


7777C 


5 60 


CO 


2 


77 72 3 




LDQ 


8+13,2 


7 7771 


-2 C00C1 


2 


77750 




TNX 


OCB, 2,1 


77772 


-0 7 73 


CG 





00003 


BLDC 


RQL 


3 


77773 


-0763 


CO 





0COO3 




LGL 


3 


7 7 774 


2 GOO CI 


1 


77772 




TIX 


BLDC, 1,1 



BINARY CARD NO. LISP0G02 

77775 0C20 CO 4 00001 



TRA 



77776 G COG 14 77706 IOC IOCD 

77722 LOAD SYN 

77777 ORG 
* 

BINARY CARD NO. LISPGGG3 

77777 G G0135 77777 



77660 
7766C 



77660 



ORG 

COMMON BSS 

9L BSS 



PART OF SUBROUTINE TO CONVERT OCTALS 



1,4 

8, ,12 

LDB 

-1 



~1,,-STS 

LOAD- 34 

C 

24 



LEAD WORD FOR ATOM VER ITAS-NUMQUAM- 

COMMON STORAGE 



INPUT BUFFER 



LS000640 
LS000650 
LS000660 
LS000670 
LS000680 
LS000690 
LS000700 
LS000710 
LS000720 
LS000730 
LS000740 
LS000750 
LS000760 
LS000770 



LS000780 

LS000790 

LS000800 

LS000810 

LS000820 

LS000830 

LS000840 

LS000850 

LS000860 

LS000870 

LS000880 

LS000890 

LS000900 

LS000910 

LSG00920 

LS000930 

LS000940 

LS000950 

LS000960 

LS000970 

LS000980 

LS000990 

LS001000 

LS001010 



LS001020 
LS001030 
LS001040 
LS001050 
LS001060 
LS001070 



PERLS001080 
LS001090 
LS001100 
LS001110 
LS001120 



-mm 



LISP 1.5 



FOR SHARE DISTRIBUTION, MARCH 1965 

LOADER FOR BIN DECK AND CORRECTIONS 
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77661 
77704 
77722 



77636 



9R SYN 

11L SYN 

LOADER SYN 

* PROPERTY 

* ZERO AND 

ORG 



9L+1 
9L+20 

LOAD 



CARD CHECK SUM 
TEMPORARY FOR OCTAL 



BINARY CARD NO* LISP0004 



77636 
77637 
7764C 
77641 
77642 

77643 
77644 
77645 
77646 
77647 
77650 



00141 11062 

OOOCO 00140 

-G OOOCO 00137 

-053143777777 

OOOCO 00424 



■c 

-0 




-0 



00134 
00132 
OOOCO 
00131 
OOOCO 
OOOCO 



12521 

00133 
00001 
11062 
00130 
00127 



NILSXX 



NIlfLOC 
-» 

STS 



77651 -146354777777 



MZE 

OCT 



MZE 



MZE 
OCT 



NIL 



LISTS FOR THE SPECIAL ATOMS NIL AND 
THE BINARY TRUTH ATOMS RESPECTIVELY 

CCFMGN-18 



$PNAM£ f ,.-*-l 
■**-l 
• »-l 
453143777777 

$ZERO 

$APVAL,,-*-l 

~*-l»,-*~2 

1 

$PNAME,,-*-l 

-*-i 

546354777777 

*T * OL >L, 



VERITAS-NUNQUAM-PER1T 



IS A CONSTANT ,,1 FOR APPLY 
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LS001130 
LS001140 
LS001150 
LS001160 
THELS001170 
LS001180 
LS001190 
LS001200 



LS001210 
LS001220 
LS001230 
LS001240 
LS001250 
LS001260 
LS001270 
LS001280 
LS001290 
LS001300 
LS001310 
LS001320 
LS001330 



]% 



mmmmm 
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TTL 



BOOTSTRAP RECORD 



00144 



* 
* 

* 
* 



« 
* 



BOOTSTRAP RECORD INCLUDES BOOTSTRAP LOADER, LISP 
ROUTINE, IOS,CGNTIN, FIXUPL, AND CONSTANT POOL. 



TRUE BOTTOM OF LISP 1.5 



BOOTSTRAP RECORD FOR 709 LISP 



READ TAPE 



ORG 
HEAD 



BOTTOM 



100 
B 



BEGIN LISP 



THE BOOTSTRAP RECORD FOR LISP ON SYSTEM AND TEMPORARY 



LS001340 
LS001350 
LS001360 
LS001370 
LS001380 
LS001390 
LS001400 
LS001410 
LS001420 
LS001430 
LS001440 
LS001450 
LS001460 
TAPLS001470 
LS001480 



BINARY 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



CARD 



144 
145 
146 
147 
150 
151 
152 
153 
154 
155 
156 
157 
160 
161 
162 
16 3 
164 
165 
166 
167 
170 
171 





c 
c 

4 
4 


C 
2 

-0 

2 



c 
c 


C 






NO. LISPO 

00421 
060 CO 
020 GO 
3 3162 4701 
164436006 



774 00 
500 GO 
601 CO 

00001 
774 GO 
754 CO 
361 CO 

000C1 
3 22 00 
100 CO 



074 
500 
601 

500 
601 
500 

074 



00 
CO 
CO 
CO 

CO 
CO 
CO 



005 

00147 

00001 

00151 

05 

03 

G0003 

00003 

00147 

00152 

00423 

OCOQO 

G0567 

00157 

00567 

00164 

C0415 

C0202 

00002 

00 201 

00010 

00370 

00277 



BOTTOM 



SYSNAM 
B TIM 



IOCD 60TT0M+3,,BSRECL- 

TCOA 1 

TRA BTTM 

BCI 1,LISP15 

BCI l t JUL 63 

AXT 3,4 

CLA 3,4 

STO BGTTCM+3,4 

TIX *-2,4,l 

AXT BSRECL,4 

PXD 0,0 

ACL CHKSUM,4 

TIX *-l,4,l 

ERA CHKSUM 

TZE *+2 

TSX FIXUPL, 4 

CLA STRA 

STO 2 

CLA FLTRA 

STO 8 

CLA SYSTAP 

TSX $U0S),4 



2 1-0 COMMAND TO READ IN BOOTSTRAP REC. 
WAIT UNTIL RECORD IS READ IN 
START OF LISP 



NUMBER OF WORDS IN LOWER MEMORY 
MOVE THEM TO ORIGINAL POSITION 



LENGTH OF BOOTSTRAP RECORD 

CLEAR THE AC 

COMPUTE THE CHECK SUM FOR RECORD 



COMPARE 
SKIP IF 



WITH THE 
THEY ARE 



CHECKSUM 
EQUAL 



ON TAPE 



STR TRAP 

SET STR CELL 

FLOATING POINT TRAP 

SET TRAP CELL 

TAPE SPECIFICATION FOR 

SET UP 1-0 COMMANDS 



SYSTEM TAPE 



LS001490 
LS001500 
LS001510 
LS001520 
LS001530 
LS001540 
LS001550 
LS001560 
LS001570 
LS001580 
LS001590 
LS001600 
LS001610 
LS001620 
LS001630 
LS001640 
LS001650 
LS001660 
LS001670 
LS001680 
LS001690 
LS001700 



BINARY CARD NO. LISPQ0G6 



00172 
0017 3 
00174 
00175 
00176 
00177 



0074 CO 
37200 
0074 GO 
3762 4 
0522 00 
0020 CO 



00200 00142 

00201 0021 CO 

00202 0021 CO 



00203 
C0754 
GC203 
40154 
00353 
77722 



77777 

02453 

17433 

00201 



TSX LRTAPE,4 

LOWREG, ,MIDDLE~LOWREG 
TSX LRTAPE,4 

MIDDLE, ,-MIDDLE 
XEC $REW 
TRA $LGAD 



READ REST OF SYSTEM TAPE 



REWIND SYSTAP 
GO TO READ ANY 



CORRECTION CARDS 



* NORMAL CONTENTS FOR CELLS 0, 2, 10 (OCTAL) RESPECTIVELY 

* 

ZERC -1,,-NILSXX BEGINNING OF ATOM NIL 

FLTRA TTR FLAPTR 

STRA TTR C$LINK 

FLAPCX SYN FLTRA 



LS001710 
LS001720 
LS001730 
LS001740 
LS001750 
LS001760 
LS001770 
LS001780 
LS001790 
LS001800 
LS001810 
LS001820 
LS001830 
LS001840 
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00202 


FLAPCY SYN 


STRA 










00200 


FLAPCZ SYN 
* 

* LRTAPE 


ZERC 
LISP REA 


00 20 3 


0500 


CO 


4 


C0001 


LRTAPE CLA 


1»« 


00204 


0634 


CO 


4 


CO 570 


SXA 


RTRX,4 


00205 


-0634 


CO 


2 


00570 


SXD 


RTRX,2 


00206 


0734 


CO 


2 


OGOOO 


RTTWO PAX 


0,2 


00207 


0622 


CO 





00210 


STD 


*+l 


00210 


1 000 CO 


2 


00211 


TXI 


*+l,2,«* 


00211 


6 34 


CO 


2 


00571 


SXA 


RTADR, 2 


0C212 


-C734 


CO 


2 


00000 


PDX 


0,2 


00213 


0500 


CO 





00206 


CLA 


RTTWO 


00214 


625 


CO 





00571 


STT 


RTADR 


00215 


-0634 


CO 





CC571 


SXD 


RTADR, 


00 216 


C500 


CO 





00363 


CLA 


$LCH 


00217 


0601 


CO 





00572 


STO 


RTLCH 


BINARY CARD NO. 


LISP0007 






00220 


C500 


CO 





00347 


CLA 


$UOU) 


00221 


0601 


CO 


C 


00573 


STO 


RTIOU 


00222 


-0625 


CC 





00360 


STL 


$TCO 


0022 3 


0522 


CO 





00360 


XEC 


$TCO 


00224 


0760 


CO 





0000 5 


IOT 




00225 


761 


CO 





GCOOO 


NOP 




00226 


-0774 


CO 


4 


00226 


AXC 


*,4 


00227 


0522 


CO 





CG361 


XEC 


$TRC 


00230 


522 


CO 





00357 


XEC 


$TEF 


00231 


-0 7 54 


CC 





00000 


RTRD PXD 


,0 


00232 


-0774 


CO 


4 


00275 


AXC 


RTI0C4 


00233 


0522 


CC 





00351 


XEC 


$RDS 


00234 


5 22 


CC 





00362 


XEC 


$KCH 


00235 


0522 


CO 





00572 


RTLC XEC 


RTLCH 


00236 


560 


CC 





00567 


LDQ 


CHKSUM 


00237 


-0600 


60 





005 71 


STQ* 


RTADR 


0024C 


0361 


60 





00571 


ACL* 


RTAUR 


00241 


2 COO CI 


2 


0023 5 


TIX 


RTLC, 2,1 


00242 


-0774 


00 


4 


G0276 


AXC 


RTI0D,4 


0024 3 


522 


CO 





00572 


XEC 


RTLCH 


00244 


0322 


CO 





0056 7 


ERA 


CHKSUM 


00245 


602 


CO 





C0567 


SLW 


CHKSUM 


BINARY CARD NO. 


LISP0G08 






00246 


500 


CC 





00573 


CLA 


RTIOU 


00247 


074 


CC 


4 


00277 


TSX 


$(IGS),4 


00250 


-0625 


CO 





00360 


STL 


$rco 


00251 


0522 


CC 





00360 


XEC 


$TCQ 


00252 


C760 


CC 





00OQ5 


IOT 




00 253 


00 20 


CO 





00264 


TRA 


RCK 


00254 


0520 


CC 





00567 


ZET 


CHKSUM 


00255 


020 


CO 





00264 


TRA 


RCK 


00256 


-0774 


CO 


4 


00264 


AXC 


RCK, 4 


00257 


0522 


CO 





00 361 


XEC 


$TRC 



LISP READ TAPE PROGRAM FOR BINARY TAPES 



PARAMETER WORD 

SAVE INDEX REGISTERS 

START ADDRESS 

COUNT 

END + 1 ADDRESS 

INITIALIZE ADDRESS 

COUNT IN IR 2 

TAG OF 2 

SET TAG 

ZERO DECREMENT 

PICK UP CURRENT LOAD CHANNEL INS. 

MAKE IMMUNE FROM OVER WRITING 



GET CURRENT 1-0 UNIT 
PREVENT OVERWRITING 
WAIT FOR CHANNELL 
TO GO OUT OF OPERATION 
TURN OFF 1-0 CHECK 



TURN OFF 
TURN OFF 
CLAAR 

POINTER TO 



INDICATOR 
INDICATOR 

10 COMMANDS 



RESET AND LOAD CHANNEL 

LOAD CHANNEL 

PICK UP WORD READ IN 

PUT IT AWAY 

ADD TO CHECK SUM 

DO ANOTHER LOAD CHANNEL 

POINTER TO DISCONNECT INSTRUCTION 

XEC LCH INS. 

SUBTRACT CHECK SUMS 

STORE DIFFERENCE 



LS001850 
LS001860 
LS001870 
LSG01880 
LS001890 
LS001900 
LS001910 
LS001920 
LS001930 
LS001940 
LS001950 
LS001960 
LS001970 
LS001980 
LS001990 
LS002000 
LS002010 
LS002020 
LS002030 



LS002040 
LS002050 
LS002060 
LS002070 
LS002080 
LS002090 
LS002100 
LS002110 
LS002120 
LS002130 
LS002140 
LS002150 
LS002160 
LS002170 
LS002180 
LS002190 
LS002200 
LS002210 
LS002220 
LS002230 
LS002240 
LS002250 



P ICK UP CURRENT IOU 
SET UP 1-0 COMMANDS 
WAIT FOR CHANNEL TO GO OUT OF 

TEST INDICATOR 

TRY AGAIN 

SKIP IF CHECK SUMS AGREE 

TRY AGAIN 

TEST FOR REDUNDANCY 



LS002260 
LS002270 
0PERATI0LS002280 
LS002290 
LSG02300 
LS002310 
LS002320 
LS002330 
LS002340 
LS002350 



mmmm 
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0026C 
00261 

00262 
00263 

00264 
00265 
00266 
00267 
0027G 
00271 
00272 
00273 



0522 

G53A 

-0534 

20 



CO 
CO 
CO 

GO 



-0534 CO 
-3 00000 

4 20 CO 
-0 634 

0522 

0534 

500 
-0 734 



00 
CO 

GO 
CO 
CO 



00 357 
4 00570 
2 00570 
4 00 002 



GO 571 
00267 
00OQ2 
00571 
00356 
00570 
00001 
OGOOO 



RCK 



XEC 


$T£F 


LXA 


RTRX.4 


LXO 


RTRX,2 


TRA 


2,4 


LXD 


RTADR,2 


TXL 


*+2,2,0 


HPR 


2 


SXD 


RTADR,4 


XEC 


$BSR 


LXA 


RTRX,4 


CLA 


1,4 


PDX 


0,2 



AND EOF 
RESTORE 

EXIT 



INDEX REGISTERS 



DID NOT WORK, SEE IF FIRST OR SECOND 



SECOND TRY FAILED, 
FAKE NON-ZERO 
BACK SPACE AND TRY 
GET CALL WORD IR 
CALL PARAMETER 
COUNT TO IR 2 



STOP 



AGAII 



LS002360 
LS002370 
LS002380 
LS002390 
LS002400 
LS002410 
LS002420 
LS0O2430 
LS002440 
LS002450 
LS002460 
LS002470 
LS002480 



BINARY CARD NG. 
00274 0020 



LISPC0C9 
CO 00231 



00275 -1 OOOCl 00567 

00276 C OOOGO OGOOO 



00277 
00300 
00301 
00302 
00 30 3 
00304 
00305 
00306 
0030 7 
00310 
00 311 
00312 
00313 
00314 
00 315 
00316 
00317 
00320 
00321 



0340 
GO 20 
0020 
6 34 
0634 
0601 
0621 
0621 
6 21 
0621 
0621 
0120 
0322 
0621 

5 22 
0774 

-0734 

1 00014 
-C5G0 CO 



GO 
00 
CO 
GO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 



00347 
00302 
00001 
00326 
CO 32 5 
00347 
00351 
00352 
00353 
00356 
00354 
003 14 
00350 
00355 
C0355 
0000 5 
00000 
00321 
00347 



RTLOC 
RFIOD 



* 
« 



(IDS) 



IOSA 



TRA 

ioct 

IGCD 



( IOSJ 

CAS 
TRA 
TRA 
SXA 
SXA 
STO 
STA 
STA 
STA 
STA 
STA 
TPL 
ERA 
STA 
XEC 
AXT 
PDX 
TXI 
CAL 



RTRD 

CHKSUM,,1 
0»»0 



BRING IN 1 WORD 
DISCONNECT CHANNEL 



INPUT OUTPUT SUPERVISOR A LA BELL LABS BE SYS 3 



IOU 

* + 2 
1,4 

1 S X , 4 

IGSY,2 

IOU 

$RDS 

$WRS 

$RErt 

$BSR 

$W£F 

* + 2 
I0S8B 
$SDN 
ISDN 
5,2 
0,4 

*+l,4,12 
IOU, 4 



CHECK TO SEE IF SAME UNIT AS LAST T 

NO 

YES EXIT 

NO, SAVE LINK IR 

SAVE INDEX 2 

UPDATE IOU 

UPDATE ADDRESSES OF TAPE COMMANDS 



TAPE IN NORMAL DENSITH 
CHANGE DENSITY BIT 



(BIN=HI, BCD 



NUMBER OF COMMANDS TO BE SET 
CHANNEL NUMBER TO IR 
TOTAL NUMBER OF COMMANDS - 3 
PICK UP PROPER COMMAND 



LS002490 
LS002500 
LS002510 
LS002520 
LS002530 
LS002540 
LS002550 
LS002560 

IMELS002570 
LS002580 
LS002590 
LS002600 
LS002610 
LS002620 
LS002630 
LS002640 
LS002650 
LS002660 
LS002670 

=L0LS002680 
LS002690 
LS002700 
LS002710 
LS002720 
LS002730 
LS002740 
LS002750 



BINARY CARD NG. LISP0010 



0032 2 
00323 
00324 
00325 
0032 6 
00327 



GO 33 
00331 



0602 CO 
-2 000 C 3 
2 OOOCl 
0774 CO 
0774 CO 
0C2O CO 



CC31 
•003O 



CO 
CO 



00364 
00325 
00321 
00000 
OGOOO 
00001 



4 00 00 
4 00000 



IOSY 
IOSX 



* 



SLW 
TNX 
TIX 
AXT 
AXT 
TRA 



C0FAND.2 
IOSY, 4,3 
IOSA, 2,1 
**,2 
**,4 
1,4 



TAPE COMMANDS FOLLOW 



TEFC 
TEFB 



0,4 
0,4 



PUT IN PROPER PLACE 

DECREMENT BY NUMBER OF CHANNELS 

LOOP 5 TIMES 

RESTORE INDEX 2 

RESTORE LINK IR 



LS002760 
LS002770 
LS002780 
LS002790 
LS002800 
LS002810 
LS002820 
LS002830 
LS002840 
LS002850 
LS002860 
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00332 


0030 


cc 


4 


coooo 


00333 


0062 


CO 





coooo 


00334 


061 


cc 





00000 


00335 


0060 


GO 





OOOQO 


0033 6 


0024 


00 


4 


OGOOG 


00337 


-0022 


CO 


4 


COOOO 


0034C 


0022 


00 


4 


OOOOG 


00341 


0541 


00 


4 


00000 


00342 


-C540 


CO 


4 


00000 


00 34 3 


0540 


00 


4 


OOOQO 


00344 


0545 


CO 


4 


00000 


00345 


-0544 


00 


4 


OOOQO 


00346 


0544 


00 


4 


OCOOO 


00347 


00000 





00000 



BINARY CARD NO* LISP0011 

00350 OOOCO 00020 



00351 
00 35 2 
00353 
00354 
00355 
00356 
00357 
00360 
00361 
00362 
0036 3 
00364 
00364 
00365 
00366 
00367 
00370 
00371 



0762 
0766 
0772 
0770 
0761 
0764 
C030 
0060 
0022 
C540 
0544 



CO 
00 
CO 
CO 
CO 
CO 
CO 

cc 

GO 

oe 

CO 



01220 
01220 
01200 
01200 
00000 
012Q0 

coooo 

00000 

coooo 

00000 
00000 



c OOOCO 00000 

C 000 CI 0120 3 

000C1 01202 

OOOCO COOOO 

COOOO COOOO 

00277 
77722 
00347 



IOU 



I0S8B 

# 
* 

RDS 
WRS 
RcW 
WfEF 
SON 
BSR' 
TEF 

rco 

TRC 
RCH 
LCH 
COMAND 
SYSPPT 
SYSPOT 
SYSPIT 
SYSTMP 
SYSfAP 
TAPASG 
UOSJ 
LOAD 
i IOU) 
* 

* 

* 



TEFA 
TCQC 

rcoB 

TCOA 
TRCC 
TRCB 
TRCA 
RCHC 
RCHB 
RCHA 
LCHC 
LCHB 
LCHA 
PZE 



PZE 

HEAD 



0,4 

* * 

* * 
0,4 
C4 
0,4 
C4 
0,4 
0,4 
0,4 
0,4 
0,4 



16 
C 



LAST UNIT USED 



BINARY BIT 



ACTUAL TAPE COMMANDS USED BY PROGRAMS (SHOULD BE UNHEADED) 



RTBA 

WTBA 

REWA 

WEFA 

NOP 

BSRA 

TEFA 

TCOA 

TRCA 

RCHA 

LCHA 

BSS 

PZE 



»« 
** 

0,4 

0,4 
0,4 
0,4 




MAKE A SON INSTRUCTION FOR 7090 



BSS 

SYN 
SYN 
SYN 

HEAD B 



1*512+2*64+3, ,1 
1*512+2*64+2,,! 



C 



ADDRESS,, CHANNEL 
INTIAL ASSIGNMENT OF A3 



8$U0SJ 

LOADER 

B$IOU 



CONTIN, SETS UP FROM A COLD START 



CONTIN IS USED JUST AFTER LOADING THE ASSEMBLY DECK. 
C0NT1 IS NORMALLY USED AFTER READING IN FROM THE DISK 



00 371 


0500 


CO 





11253 


CONTIN CLA 


S$OVIND 


00372 


0601 


CC 





11254 


STO 


SYSIND 


00373 


C5C0 


CC 





00615 


C0NT1 CLA 


STSIND 


00374 


C6C1 


CC 





00615 


STO 


4TSIND 



THE SMALL PIECE 
CF OVERLORD 
IF MONITOR THINKS 
WE ARE 



WE ARE IN TS MODE, 



LS002870 
LS002880 
LS002890 
LS002900 
LS002910 
LS002920 
LS002930 
LS002940 
LS002950 
LS002960 
LS002970 
LS002980 
LS002990 
LS003000 



LS003010 

LS003020 

LS003030 

LS003040 

LS003050 

LS003060 

LS003070 

LS00308O 

LS003090 

LS003100 

LS003110 

LS003120 

LS003130 

LS003140 

LS003150 

LS003160 

LS00317O 

LS003180 

LS003190 

LS003200 

LS003210 

LS003220 

LS003230 

LS003240 

LS003250 

LS003260 

LS003270 

LS003280 

LS003290 

LS003300 

LS003310 

LS003320 

LS003330 

LS003340 

LS003350 

LS003360 

LS003370 

LS003380 

LS003390 



MUM 



mmm 



mmmmmmm 
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00375 0600 CC G 00616 



BINARY CA 
00376 
00377 
00400 
00401 
00402 
00 403 
00 40 4 
00405 
00406 
00407 
00410 
00411 
00412 
00413 



RD NO. 
0564 
0774 
-0 5 CO 
06C2 
2 CO 
0600 
0522 
761 
5 22 
0761 
0522 
0761 
CC74 
CC20 



LISP 

CO 

GO 



GO 
CO 
001 
CC 
CO 
CO 
CC 
CO 
CO 
CO 
CO 
CO 



0012 
00616 
00016 
00414 
00615 
00401 
00627 
01721 
COOQO 
01722 
COOOO 
01724 
00000 
C0415 
11140 



00414 6C606C60606G 



00415 
00416 
00417 
00420 
00421 
0042 2 
00423 



C5C0 
0601 
0500 
G601 
■€5 00 
0601 
020 



CC 

CO 
CC 
CO 
CC 
CO 
CO 



C0201 
00010 
C0202 
0000,2 
00200 
00000 
00001 



BINARY CA 
00424 

00425 
00426 
00427 
00430 
00431 
00432 
00433 
00434 
0043 5 
00436 
00437 
0044C 
00441 
00442 
00443 
C0444 



RD NO. LISP0G13 
OOGCO G OGOOO 
00424 
+CC000C000G01 
+CC000CC000G2 
+0CGO0CC000C3 
4-CCCOOC000004 
+C0CO00GOOOG5 
+C00OGC00C006 
+0 0000 C 000007 
+C0OOGCOOOO1O 
+0 COO COOOO 11 
+O0OOCCCGOO12 
+C0COCCCGO014 
C COOCO 00015 
C COOCO 00016 
+COOOOCC00021 
+'0 00000 COCO 24 
+00OO0C0OOO25 



ZERO 
GO 

Ql 

Q2 

Q3 

Q4 

Q5 

Q6 

Q7 

Q8 

Q9 

Q10 
Q12 

Q13 

Q14 

Q17 

Q20 

«21 



STZ 



ENB 
AXT 
CAL 
SLW 
TIX 
STZ 
XEC 
NOP 
XEC 
NOP 
XEC 
NOP 
TSX 
TRA 



SYSENB 



SYSENB 

14,4 

CBS 

S$0VBUF+14,4 

*-lt4,l 

BUFFLG 

$SLT1 

$SLT2 

$SLT4 

FIXUPL, 4 
CVRLRD 



BUT, WE AREN-T BUYING 



ANYBODY-S TRAPS TIL WE-RE SURE 
BLANK OUT OVERLORD CARD BUFFER 



RESET POP TO 90 BUFFER FLAG 
RESET ERROR LNDS 



TO SHWO WE AREN-T BALGOL, REALLY 

GET LOW MEMORY SET UP 
GO TO OVERLORD 



BCI 



FIXUPL 



CBS 
* 

* 

FIXUPL CLA 
STO 
CLA 
STO 
CLA 
STO 
TRA 



FIX UP LOW REGISTERS ... 

SETS UP SOME OF THE REQUIRES REGISTERS BELOW 144 

FLAPCX 

8 

FLAPCY 

2 

FLAPCZ 

C 

1,4 



HEAD G 



CONSTANT POOL 



PZE 

SYN 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 



DEC 
DEC 
DEC 



ZERO 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

12 

13 

14 

17 

20 

21 



LS003400 



LS003410 
LS003420 
LS003430 
LS003440 
LS003450 
LS003460 
LS003470 
LS003480 
LS003490 
LS003500 
LS003510 
LS003520 
LS003530 
LS003540 
LS003550 
LS003560 
LS003570 
LS003580 
LS003590 
LS003600 
LS003610 
LS003620 
LS003630 
LS003640 
LS003650 
LS003660 
LS003670 
LS003680 
LS003690 
LS003700 
LS003710 
LS003720 



LS003730 
LS003740 
LS003750 
LS003760 
LS003770 
LS003780 
LS003790 
LS003800 
LS003810 
LS003820 
LS003830 
LS003840 
LS003850 
LS003860 
LS003870 
LS003880 
LS003890 
LS003900 



mmmmmmmm 
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00445 


CCOCO C0026 


Q22 




22 


00446 


+CCGO0C000044 


Q36 


DEC 


36 


00447 


+GQC00C 000077 


Q63 


DEC 


63 


00450 


+O0C0OCC0C1Q0 


Q64 


DEC 


64 


00451 


+G0C0OC0002C0 


Q128 


DEC 


128 


BINARY CARD NO- LISP0014 








00452 


+000000000014 


Q014 


OCT 


14 


00453 


+CGCO0CC00O17 


Q017 


OCT 


17 


00454 


+000000000020 


Q020 


OCT 


20 


00455 


+000000000022 


0022 


OCT 


22 




00444 


Q025 


SYN 


G21 


00456 


+C0C00CCC0033 


Q033 


OCT 


33 


00457 


+00 000 CO 00040 


Q04C 


OCT 


40 


00460 


+0Q000C000C41 


Q041 


OCT 


41 


00461 


+C0OO0GC0CC43 


Q043 


OCT 


43 


00462 


+000000000050 


Q050 


OCT 


50 


00463 


+CC0OOCG0CO60 


Q060 


OCT 


60 


00464 


+0CCOOCC0GG61 


Q061 


OCT 


61 




00447 


Q077 


SYN 


$G63 




00451 


Q0200 


SYN 


G128 


0046 5 


+000000003300 


Q033Q2 


OCT 


3300 


0C466 


+C0100COOOGOO 


Q01Q9 


OCT 


1000000000 


0046 7 


+2 3300CC0O0C0 


Q233Q9 


OCT 


233000000000 


0047C 


-3 77000000000 


Q777Q9 


OCT 


777000000000 


00471 


+200000000000 


Q02Q11 


OCT 


200000000000 


00472 


00000 1 OOOQO 


QT1 




,1 


00473 


COOCC 2 00000 


QT2 




,2 


00474 


COOCO 4 00000 


QT4 




,4 


00475 


OOOOO 5 00000 


QT5 




0,5 


00476 


000C1 00000 


QD1 


PZE 


,i 1 


00477 


C C00C2 ooooo 


QD2 


PZE 


t » 2 


BINARY CARD NO. LISP0015 








00500 


00005 ooooo 


005 


PZE 


t,5 


00501 


CC0C6 ooooo 


QD6 


PZE 


f f 6 


00502 


C 0000 7 ooooo 


QD7 


PZE 


t ,7 


GO 50 3 


00024 OCOOO 


QD20 


PZE 


»,20 


00504 


C 00025 OOOOO 


0D21 


PZE 


,,21 


00 50 5 


-1 COOCO OOOQO 


QP5 


STR 




00506 


6CCO0C00000G 


CBLANK 


BCI 


1, OOOOO 


00507 


C0606C606C60 


ZBLANK 


BCI 


1,0 


00510 


+201400000000 


QF1 


DEC 


1.0 


00511 


-0 COOOC OOOOO 


SB IT 


MZE 




00512 


+3 77777 7777 7 7 


HAGMSK 


OCT 


377777777777 


00513 


■0 COOCO 77777 


AMASK 


PZE 


-1 


00514 


777 77 GOOQO 


DMASK 


PZE 


,,-1 


00515 


-3 COOOC OOOQO 


PMASK 


TXL 


0,0,0 


00516 


7777 7 77777 


ADMASK 


PZE 


-1.1-1 


00517 


COOCO 7 77777 


ATMASK 


PZE 


-1,7 


00520 


-3 77777 C OOOOO 


PDMASK 


SVN 


,,-1 


00521 


-3 77777 7 CGOOG 


PDTMSK 


SVN 


0,7,-1 


00522 


-3 COOGO 7 77777 


PTAMSK 


SVN 


-1,7 


0052 3 


+00CO770C0O00 


CNTMSK 


OCT 


000077000000 


00524 


OOOOO 7 OOOQO 


TAGMSK 


PZE 


,7 



LS003910 
LS003920 
LS003930 
LS003940 
LS003950 



LS003960 
LS003970 
LS003980 
LS003990 
LS004000 
LS004010 
LS004020 
LS004030 
LS004040 
LS004050 
LS004060 
LS004070 
LS004080 
LS004090 
LS004100 
LS004110 
LS004120 
LS004130 
LS004140 
LS004150 
LS004160 
LS004170 
LS004180 
LS004190 
LS004200 



LS004210 
LS004220 
LS004230 
LS004240 
LS004250 
LS004260 
LS004270 
LS004280 
LS004290 
LS004300 
LS004310 
LS004320 
LS004330 
LS004340 
LS004350 
LS004360 
LS004370 
LS004380 
LS004390 
LS004400 
LS004410 



mmmmimiMmMHMmmiiiiMm 
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00525 


-3 


77777 


7 


77777 


SEVENS 


SVN 


-1,7,-1 




UNARY CARD 1 


YC. LISP0016 










00526 


-3 77777777760 


BTMASK 


OCT 


777777777760 




00527 


606060606060 


BLANKS 


BCI 


1, 




0053C 










BCONAT 


BSS 





BEGINNING OF CONSTANT ATOMS 


00530 


C 


ooocc 





11062 


P NAME A 


PZE 


PNAME 




00531 





12521 





00000 


APVALD 


PZE 


,,APVAL 




00532 


c 


11662 





COOQO 
00532 


BIND 
FIXD 


PZE 
SYN 


,,BIN 
BIND 




00533 





11645 





OCOOO 


FLOATD 




,,$FLOAT 




00534 





11630 





OCOOO 


FSUBRD 


PZE 


,,FSUBR 




00535 


c 


116 2 3 





CO 000 


FMARGD 


PZE 


,,FUNARG 




0G536 


c 


115 3 2 





00000 


LABELD 


PZE 


,, LABEL 




00537 





11522 





00000 


LAMDAD 


PZE 


,, LAMBDA 




OC540 





112C7 





OCOOO 


OCTD 




,,$OCT 




00541 





11062 





OOOOO 


PNAMEO 


PZE 


,, PNAME 




00542 


c 


10775 





OOOOO 


QUOTED 


PZE 


i, QUOTE 




0C543 


c 


10440 





COOQG 


SUBRD 


PZE 


,,SUBR 




00544 





10615 


c 


00000 


QSPECD 


PZE 


0,,SPECAL 




00545 


c 


10413 





OOOOO 


QSYMD 


PZE 


0, ,SYM 




00546 


c 


11423 





11760 






ERS£T0,,PJ36 




00547 





11413 





11433 






PJ37,,PJ38 


LOG AND LGGXOR 


0055 


c 


11331 





11341 






-117,, -118 


MAX MIN 


00551 


c 


10 336 





11102 






PLUS,, TIMES 




00552 


G 


074 30 





07427 






H01,,H02 


PROTECT INTEGER OBJECTS 


0055 3 


c 


07432 


G 


C7431 






H03, ,H04 




UNARY CARD NC. LISP0017 










00554 


c 


07434 





07433 






H05, ,HC6 




00555 


c 


07436 





C74 35 






H07,,H10 




00 556 





00000 





07426 


HOOA 


PZE 


HCO " 




00557 


c 


COO 00 





07440 


HI2A 


PZE 


H12 




0056C 





COO CO 





07520 


H72A 


PZE 


H72 




G0561 





07437 





COOOO 


HI ID 


PZE 


ttHll 




00 562 


■c 


07442 





OOOOO 


H14D 


PZE 


,tH14 




00563 





074 61 





OOOOO 


H33D 


PZE 


,,H33 




00564 


c 


07462 





CGOOO 


H34D 


PZE 


,,H34 




00565 


c 


07466 





OOOOO 


H40D 


PZE 


,,H4C 




00566 





07522 





COOOO 
00567 


H74D 
EC ON AT 


PZE 

SYN 


»,H74 














* 

■a 


REGISTERS NOT WRITTEN OUT 


BY OVERLORD 














HEAD 


B 




00 567 










CHKSUM 


BSS 

HEAD 


5 

8 


THESE CELLS ARE NOT WRITTEN 
CELLS FOR LRTAPE 










G05 70 


RTRX 


SYN 


CHKSUM+1 


PROTECTED STORAGE 










00571 


RTADR 


SYN 


CHKSUM+2 












00572 


RTLCH 


SYN 


CHKSUM+3 












00573 


RTIOU 


SYN 


CHKSUM+4 












00423 


BSR6CL 


£GU 


CHKSUM-80TT0M 


LENGTH OF BOOTSTRAP RECORD 



ON TAPE 



LS004420 



LS004430 
LS004440 
LS004450 
LS004460 
LS004470 
LS004480 
LS004490 
LS004500 
LS004510 
LS004520 
LS004530 
LS004540 
LS004550 
LS004560 
LS004570 
LS004580 
LS004590 
LS004600 
LS004610 
LS004620 
LS004630 
LS004640 
LS004650 
LS004660 



LS004670 
LS004680 
LS004690 
LS004700 
LS004710 
LS004720 
LS004730 
LS004740 
LS004750 
LS004760 
LS004770 
LS004780 
LS004790 
LS004800 
LS004810 
LS004820 
LS004830 
LS004840 
LS004850 
LS004860 
LS004870 
LS004880 
LS004890 
LS004900 



mmmmmmmmm 



mmmmmm 



mmm 



mm 
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BINARY CARD NC. LISPG018 

00574 C OOOCG COOOO 



00 575 
00576 
0057 7 




G 



00000 

oooce 



00000 

eoooo 



BINARY CARD NC. L1SP0019 

00615 COOCO C000G 

00615 

00616 C COOCO OOOOO 



00617 
0062C 
0062 L 
00622 
00623 
00624 
00625 
00626 
00627 
00630 
0074C 



COOCC 
OOOOO 
C OOOOO 
OOOOO 
COOCO c 
OOOOO 
OOOCG 
COOCO c 
C COOCC 



OOOOO 
OOOOO 
COOOO 
OOOOO 
OOOOO 
OOOOO 
OOOQG 
OOOOO 
OOOQO 



00740 
00754 



0VLT4 

HEAD 
0VTX4 
OVCC 
OVBUF BSS 

HEAD 



TSIND 

STSIND 

SYSENB 

INDIC 

MQ 

CFL 

WCNT 

GP 

XR1 

XR2 

8UFFLG 

RBUFF 

BUFF) 

BUFR) 

LOWREG 

* 



PZE 

SYN 
PZE 
HEAD 



14 





TSIND 



BSS 
BSS 

EQU 
SYN 



72 
12 

BUFF) 



MIKE REALLY WAS RIGHT 
PLACE FOR CARRIABE CTL 
OVERLORD CARD BUFFER 



NOISE IF IN TIME STEALING MODE 
SYSTEM ENABLE LOCATION 



LOWEST REGISTER ON LISP RECORD 



LS004910 
LS004920 
LS004930 
LS004940 
LS004950 
LS004960 



LS004970 
LS004980 
LS004990 
LS005000 
LS005010 
LS005020 
LS005030 
LS005040 
LS005050 
LS005060 
LS005070 
LS005080 
LS005090 
LS005100 
LS005110 
LS005120 
LS005130 
LS005140 



wmm 



mmm. 
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40154 



TTL INPUT, OUTPUT, AND UTILITY 

* 

MIDDLE EQU LOWREG+16000 

HEAD B 



* 
» 
* 

« 

« 



GLORIOUS GENERAL TAPE ROUTINES BIDING UNDER THE CLOAK OF 

DISK ROUTINES. WHAT TREACHERY, YOU SAY — BUT, THIS SIMP IFIES 

CONSIDERABLY THETASK OF MODIFYING LISP FOR STANFORD-S 

DISK STORAGE 



LS005150 
LS005160 
LS005170 
LS005180 
LS005190 
LS005200 
LS005210 
LS005220 
LS005230 
LS005240 
LS005250 



BINARY CAR 
00754 
00755 
00756 
00 75 7 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
. 00767 
0077C 
00771 



00 772 

00 77 3 
00774 
00775 
00776 
00777 
0100C 
01001 



NO. 
0074 
0500 
0074 
CC74 
00 
0074 
37 
74 
37 
0522 
522 
052O 
G020 
0020 



LISP 
CO 4 
CO 
CO 4 
CO 4 

423 
CO 4 

2CC 
CO 4 

6 24 
CO 
CC C 
CO 
CO 
CO 



G020 
07136 
00367 
00277 
01063 
00144 
01063 
00754 
CI063 
40154 
00354 
00 3 53 
01155 
CC754 
01014 



TAPRW 
CDUMP 



-0 7 54 
-07 34 
5 00 
G074 
CO 74 
0042 3 
GC74 CO 
C 372CC 



GO 
CO 
CC 
CC 
CC 



CO 000 
00000 
00367 
C0277 
00203 
00144 
00203 
00754 



BINARY CARD NO. LISP0021 

01002 0074 CO 4 00203 

01003 37624 4G154 

01004 0522 CO 00353 

01005 CC20 00 2 0G0Q1 



01006 
01007 
0101C 
01011 
01012 



0634 
0074 
CC74 
0560 
00 74 



CO 
CG 
CC 
CC 
CO 



4 01015 
4 CI 03 3 
4 07136 
01023 
4 00755 



* 

DLOAD 



* 
* 

* 

* 

* 

TAPDMP 



TSX TEREAD,4 
CLA SYSTMP 
TSX $U0S),4 
TSX LKTAPE.4 

BOTTOM, ,BSRECL 
TSX LWTAPE,4 

LOV»R£G, ,MIDDLE-L0WREG 
TSX LWTAPE,4 

MIDDLE,,-MIDDLE 
XEC $WEF 
XEC $REW 
ZET WERC 
TRA TAPRW 
TRA TPDX4-1 

OLOAD IS OVLTXX FROM ORIGINAL TAPE SYSTEM 

PXD 0,4 
PCX 0,2 
CLA SYSTMP 
TSX ${I0S),4 
TSX LRTAPE,4 

BOTTOM,, BSRECL 
TSX LRTAPE,4 

LOWREG, ,MIDDLE~LCWREG 



TSX LRTAPE.4 

MIDDLE,, -MIDDLE 
XEC $REW 
TRA 1,2 

END OF GLORIOUS GENERAL TAPE ROUTINES 



TAPDMP FOR DISK 

SXA TPDX4,4 
TSX UNTIM1,4 
TSX TEREAD,4 
LDQ DISSCR 
TSX DDUMP.4 



LS005260 
LS005270 
LS005280 
LS005290 
LS005300 
LS005310 
LS005320 
LS005330 
LS005340 
LS005350 
LS005360 
LS005370 
LS005380 
LS005390 
LS005400 
LS005410 
LS005420 
LS005430 
LS005440 
LS005450 
LS005460 
LS005470 
LS005480 
LS005490 
LS005500 



LS005510 
LS005520 
LS005530 
LS005540 
LS005550 
LS005560 
LS005570 
LS005580 
LS005590 
LS005600 
LS005610 
LS005620 
LS005630 
LS005640 
LS005650 
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01013 


0020 


cc 





01017 




TRA 


TAPD1 


01014 


CG74 


CG 


4 


G0415 




TSX 


FIXUPL,4 


01015 


0774 


CO 


4 


00000 


TPDX4 


AXT 


-,4 


01016 


0C20 


CO 


4 


000Q1 




TRA 


lt4 


10 1 7 


0500 


cc 





01022 


TAPD1 


CLA 


DISFSC 


01020 


0601 


CO 


C 


01023 




STO 


DISSCR 


01021 


C020 


CO 


c 


00373 


£. 


TRA 


C0NT1 












* 

4t 


DISK AREAS 


01022 


COOCO 


G 


00000 


* 

DISFSC 







0102 3 


C COOCC 





00000 


DISSCR 

















» 


OVLTXX FOR DISK 


0102 4 


634 


CO 


4 


00574 


CVLTXX 


SXA 


0VLT4,4 


01025 


0074 


CO 


4 


01033 




TSX 


UNTIM1.4 


01026 


C560 


CO 





01023 




LUQ 


DISSCR 


01027 


0074 


cc 


4 


00772 




TSX 


DL0AD,4 


BINARY CARD NC. 


LISP0022 








01030 


0074 


GO 


4 


00415 




TSX 


FIXUPL,4 


0103 1 


534 


CO 


4 


00574 




LXA 


0VLT4,4 


01032 


020 


CO 


4 


C0001 


* 


TRA 


1,4 


01033 


0601 


ce 





01042 


* 
INTIM1 


STO 


UNTIM2 


01034 


0500 


CG 





00005 




CLA 


5 


01035 


G140 


GO 





01036 




TOV 


*+l 


0103 6 


04 CO 


CO 





01043 




ADD 


UNTIM3 


01037 


140 


CO 





01055 




TOV 


UNTIM4 


0104C 


C5C0 


CO 





01042 




CLA 


UNTIH2 


01041 


0020 


CO 


4 


GC001 




TRA 


1,4 


01042 


COOCO 


c 


00000 


UNTIW2 






01043 


+C000GC005670 


UNTIM3 


DEC 


3 COO 


01044 


0023434622 


S42 


UNTIMP 


BCI 


9,0CL0CK TF 


01045 


6 06351214760 








01046 


246451314527 








01047 


60627C626325 








0105C 


44603161466G 








01051 


404060316146 








01052 


606264474751 








01053 


256262252460 








01054 


6C606C606060 








0105 5 


0634 


CG 


4 


G0OQ6 


it 

UNTIM4 


SXA 


6,4 


31NARY CARD NO. 


LISP0023 








01056 


74 


CO 


4 


01527 




TSX 


OUTPUT, 4 


01057 


C OOOCG 





CO 365 






BCDOUT 


01060 


■0 COO 11 





01044 






UNTIMP, ,9 


01061 


05CO 


CO 





01042 




CLA 


UNTIM2 


01062 


00 20 


CO 





00007 




TRA 


7 



HERE IF LOADED COLD 
GET LOW MEMORY SET UP 



MAKE SCRATCH AREA WHAT IT SHOULD 

BE 

INITIALISE SOMEWHAT 



FUTURE SCRATCH AREA 
CURRENT SCRATCH AREA 



LOADS FROM DISK 



GET LOW MEMORY SET UP 



DURING SYSTEM I/O — I/O SUPPRESSED 



LS005660 
LS005670 
LS005680 
LS005690 
LS005700 
LS005710 
LS005720 
LS005730 
LS005740 
LS005750 
LS005760 
LS005770 
LS005780 
LS005790 
LS005800 
LS005810 
LS005820 
LS005830 
LS005840 
LS005850 



LS005860 
LS005870 
LS005880 
LS005890 
LS005900 
LS005910 
LS005920 
LS005930 
LS005940 
LS005950 
LS005960 
LS005970 
LS005980 
LS005990 
LS006000 
LS006010 



LS006020 
LS006030 



LS006040 
LS006050 
LS006060 
LS006070 
LS006080 
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W 01063 


0500 


CO 


4 


00001 


LWTAPE CLA 


1|4 


01064 


0621 


CO 





01157 


STA 


WTIGC 


01065 


0622 


CO 





0115 7 


STD 


WTIOC 


• 01066 


0622 


CO 





01105 


STU 


WTAD 


01067 


0634 


CO 


4 


01120 


SXA 


WTX, 4 


01070 


0600 


CO 





01156 


STZ 


WTAG 


• 01071 


06C0 


00 


C 


01155 


STZ 


WERC 


01072 


-0 6 25 


CO 





00360 


STL 


$TCO 


0107 3 


C522 


CO 





00360 


xec 


$TCQ 


• 01074 


0760 


00 





0000.5 


IOT 




01075 


761 


CO 


c 


COOOG 


NOP 




01076 


-0 7 74 


CO 


4 


CIO 76 


AXC 


*.4 


• 01077 


522 


GO 





00361 


XEC 


$TRC 


0I10C 


0522 


CO 





00357 


XEC 


$TEF 


01101 


-0774 


CC 


4 


01157 


WTWS AXC 


WTI0C4 


• 01102 


0522 


CG 





00352 


XEC 


$WRS 


01103 


0522 


CO 





00362 


XEC 


$RCH 


• BINARY CARD NO. 


LISP0G24 






01104 


534 


CO 


4 


01157 


LXA 


WTI0C4 


01105 


1 COOCC 


4 


01106 


WTAD TXI 


*+l,4 ,»* 


• 01106 


6 34 


CO 


4 


Cllll 


SXA 


WTACL, 4 


0110 7 


-0 534 


00 


4 


01157 


LXD 


WTI0C4 


_ 1 1 1 


-0 754 


00 





COOOO 


PXO 


C,G 


• 1 1 1 1 


0361 


CG 


4 


GGOOG 


WTACL ACL 


**, 4 


01112 


2 C00C1 


4 


01111 


TIX 


*-l,4,l 


01113 


0602 


CC 





00567 


SLW 


CHKSUM 


• 01114 


-0774 


CG 


4 


01160 


AXC 


WTI0D,4 


01115 


0522 


CO 





00363 


XEC 


$LCH 


m 01116 


-0 774 


CO 


4 


01122 


AXC 


WRCK,4 


• 01117 


522 


CO 





00361 


XEC 


$TRC 


01120 


0774 


CO 


4 


COOOO 


WTX AXT 


**,4 


01121 


020 


CC 


4 


CG002 


TRA 


2,4 


01122 


-0520 


CO 





01156 


■4fr 

WRCK NZT 


WTAG 


01123 


0020 


CO 





01141 


TRA 


WAGN 


• 01124 


-0625 


CC 





01155 


STL 


WERC 


01125 


-0 5 34 


GO 


4 


00367 


LXD 


SYSTMP, 4 


01126 


•0754 


CO 


4 


COOOO 


PXA 


0,4 


• 01127 


0400 


CC 


C 


00454 


ADD 


$QQ20 


01 130 


0767 


CO 





G00Q6 


ALS 


6 


01131 


-0602 


CO 





01146 


ORS 


WERM 


BINARY CARD NO. 


LISP 002 5 






01132 


0500 


CC 





00367 


CLA 


SYSTMP 


• 01133 


-0 3 20 


CO 





00453 


ANA 


$Q017 


01134 


-0602 


CO 





01146 


ORS 


WERM 


01135 


0074 


CG 


4 


01527 


TSX 


OUTPUT, 4 


• 01136 


-0 COO 00 





00365 


MZE 


BCDOUT 


01137 


0000 7 





01146 




WERM, ,7 


0I14G 


0420 


00 


C 


00003 


HPR 


3 


• 01141 


500 


CO 


G 


00367 


WAGN CLA 


SYSTMP 


01142 


0074 


CO 


4 


00277 


TSX 


$11 OS), 4 


_ 0114 3 


0522 


CO 





00356 


XEC 


$BSR 



PARAMETER WORD 

SET UP 1-0 COMMANDS 

COUNT 

SAVE LINK IR 

ZERO TEST 1 CELL 



WAIT FOR CHANNEL 
TURN OFF INDICATORS 



POINTER TO IQ COMMAND 
RESET AND LOAD CHANNEL 



ADDRESS OF BEGINNING OF BLOCK 

END + 1 OF BLOCK 

SET CHECKSUM COMPUTE ADDRESS 

COUNT OF BLOCK 

CLAER AC 

COMPUTE CHECKSUM 

LOOP 

STOE IN CHECK SUM CELL 

CHECKSUM WRITE COMMAND 

LOAD CHANNEL 

TEST FOR WRITE REDUNDANCY 



RESTORE 
EXIT 



LINK IR 



TRY TO WRITE ABA IN 

CELL SAYS THERE WAS BAD TAPE TROULLE 

FORM MESSAGE TO OPERATOR 



WRITE CHANGE TAPE MESSAGE 



BACK SPACE SYSTMP 



LS006090 
LS006100 
LS006110 
LS006120 
LS006130 
LS006140 
LS006150 
LS006160 
LS006170 
LS006180 
LS006190 
LS006200 
LS006210 
LS006220 
LS006230 
LS006240 
LS006250 
LS006260 



LS006270 
LS006280 
LS006290 
LS006300 
LS006310 
LS006320 
LS006330 
LS006340 
LS006350 
LS006360 
LS006370 
LS006380 
LS006390 
LS006400 
LS006410 
LS006420 
LS006430 
LS006440 
LS006450 
LS006460 
LS006470 
LS006480 
LS006490 



LS006500 
LS006510 
LS006520 
LS006530 
LS006540 
LS006550 
LS006560 
LS006570 
LS006580 
LS006590 
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01144 
01145 

01146 
01147 
01150 
01151 
01152 
0115 3 
01154 

0115 5 
01156 
01157 



•0625 
0020 



CO 
GO 



01156 
01101 



606060600000 
603162602221 
24736C233021 
452725603163 
6021452:4606*! 
632151636021 
2 721314 53 360 






-1 



COO CO 
00000 

00000 



00000 
OOOQO 
00000 



STL 

TRA 

WERM SCI 



WERC 
WTAC 

WT10C 



WTAG 
WTWS 

7, 



00 IS BAD, CHANGE IT AND START AGAIN. 



I OCT 



»«■ 



CELL NON-ZERO ON SECOND TRY 
WRITE OUT BLOCK 



LS006600 
LS006610 
LS006620 
LS006630 



LS006640 
LS006650 
LS006660 
LS006670 



BINARY CARD NC. LISP0026 

01160 000 CI 00567 



WTICD IOCD 



CHKSUM,,! 



01161 
01162 
0116 3 
01164 
0116 5 

01166 
01167 



01170 
01171 
01172 
01173 
01174 
0117 5 
01176 
0117 7 
01200 
01201 
01202 
01203 
01204 
01205 



0634 
00 74 
774 
•0 754 
0020 



GO 

GO 
CO 
00 
00 



74 CO 
0020 CO 



4 01163 
4 01006 
4 OOOQO 
00000 
4 00001 



0500 CO 4 
0634 CO 4 
0601 CO 
0500 GO 
0074 GO 4 
0522 GO 
522 CO 
0074 00 4 
7777 7 
0020 CO 
0774 00 
0020 CO 
534 
•0120 CO 



4 
4 
4 
4 



010 24 
01163 



00002 
01202 
01200 
00366 
00277 
01706 
00351 
01207 
OOOQO 
01204 
00000 
00005 
01202 
00003 



BINARY CARD NO. 
01206 0020 



LISP 002 7 
00 4 00004 



01207 
01210 
01211 
01212 
01213 



0634 CO 
500 CO 

522 CO 

1 00000 
0762 CO 



4 01232 
4 00001 
01706 
01215 
01321 



# 

SAVE XX SXA 
TSX 

SAVR A XT 
PXD 
TRA 

RESTRO TSX 
TRA 

* 

* 
INPUT CLA 
SXA 
STO 
CLA 
TSX 
XEC 
XEC 



CALL 
INX4 



C 
■» 



RTX 



SAVE AND RESTCR 



SAVR,4 
TAPDMP,4 
~,4 
,0 
1,4 

CVLTXX,4 

SAVR 



2,4 

INX4,4 

CALL 

SYSPIT 

$1 I0S),4 

$SWT1 

$RDS 



WRITE OUT CHECK SUM 
PRIKARILARILARLY FOR TS 



TSX $RTX,4 
**,,-l 
TRA *+3 
AXT **,4 
TRA 5,4 

LXA INX4.4 
TMl 3,4 



TRA 4,4 

HED 



SXA 
CLA 
XEC 
TXI 

RCDA 



RTXX,4 
1,4 

$SWT1 
Hl.,0 



NO JUNK 



SAVE LINK IR 

INPUT TAPE SPEC. 
SET UP 1-0 COMMANDS 
TEST FOR ON-LINE INPUT 
SELECT INPUT TAPE 



RESTORE LINK IR 
RESTORE LINK IR 



SAVE LINK IR 

GET PARAMETER WORD 

TEST FOR ON-LINE INPUT 

IS FROM TAPE 

SELECT CARD READER 



LS006680 
LS006690 
LS006700 
LS006710 
LS006720 
LS006730 
LS006740 
LS006750 
LS006760 
LS006770 
LS006780 
LS006790 
LS006800 
LS006810 
LS006820 
LS006830 
LS006840 
LS006850 
LS006860 
LS006870 
LS006880 
LS006890 
LS006900 
LS006910 
LS006920 
LS006930 
LS006940 
LS006950 



LS006960 
LS006970 
LS006980 
LS006990 
LS007000 
LS007010 
LS007020 
LS007030 
LS007040 
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01214 
01215 
01216 
01217 
0122C 
01221 
01222 
01223 
01224 

0122 5 
01226 
01227 
01230 
01231 
01232 

0123 3 

BINARY CAR 
01234 
01235 
01236 
01237 
0124C 
01241 
01242 
01243 
01244 
01245 
01246 
01247 
0125C 
01251 
01252 
01253 
01254 
012 5 5 
01256 
01257 
01260 
01261 



I COO CO 

0621 CO 
-0 7 74 

C522 
-0500 

0601 
-0774 

05 22 
-0 625 

0522 
-07 74 

C522 
-0774 

0522 

7 74 

CC20 



00 
CO 
CO 
CO 
CO 
CO 
00 
00 
CO 
CO 
00 
00 
CO 
CO 



01246 
01504 
01220 
00357 
01234 
01234 
01504 
00362 
00360 
00 360 
01241 
00357 
01234 
00361 
00000 
00003 



D NO. LI 

3 000 CO 

C5 22 CO 

0522 CO 

0502 GO 
-3 OOOCO 

0534 00 

20 

0762 
-0534 
-0534 

0030 

0604 
-00 57 

5 40 

0544 

30 

0560 
-0 6 CO 
-0634 
-0634 
-0534 

0560 



CO 
CO 
CO 
00 
CO 
CO 
CO 
CO 
00 
CO 
CO 
CO 
CO 
CO 
CO 
CO 



SP0028 

01241 
00356 
00351 
01234 
C1221 
01232 
00002 
01321 
01264 
01266 
01247 
0150.0 
C000Q3 

01501 
01502 
00002 
77667 
77661 
01264 
01266 
01275 
77670 







4 
4 

1 
2 






4 


1 
2 
1 




BINARY CARD NC. LISP 



TD 
TO 



01262 
01263 
01264 
01265 
01266 
01267 
01270 
01271 
01272 
01273 
01274 
01275 
01276 



-0600 CO 

74 CO 2 
-3 OOOCO G 

767 CO 
-3 COOCO 

0544 00 

0560 CO 
-0600 CO 

G560 CO 
-0600 CO 

0074 CO 2 
-3 00010 

0767 CO 



0029 
77662 
C1415 
0126 7 
GOG 01 
01452 
01501 
77663 
77661 
77664 
77662 
01415 
01300 
CC003 



HI 



H3 



RTXX 



H2 



RTXBE 



RCD 



RDBCD 



Bl 



B2 

B3 
B5 



TXI 
STA 
AXC 
XEC 
CAL 
STO 
AXC 
XEC 
STL 
XEC 
AXC 
XEC 
AXC 
XEC 
AXT 
TRA 



RDBCD, ,0 

CMMND 

* + 2,4 

$TEF 

H2 

H2 

CMMND, 4 

$RCH 

$TCO 

$TCO 

RTXBE, 4 

$TEF 

H2,4 

$TRC 

**,4 

3,4 



TXH 
XEC 
XEC 
CLS 
TXL 
LXA 
TRA 
RCDA 

LXD B2, 1 
LXD B3,2 
TEFA *+l 
ST I B50 
RIL 3 
RCHA LR 
LCHA 8LR 
TEFA 2,4 



RTXBE, ,0 

$BSR 

$RDS 

H2 

H3,,0 
RTXX,4 
2,4 



LDQ 
STQ 
SXD 
SXD 
LXD 
LDQ 



STQ 
TSX 
TXL 
ALS 
TXL 



L 

LS 

62,1 

B3,2 

B4,l 

R 



RS 

CI, 2 
B5 
1 
C2 



LCHA LR 
LDQ 8L 



B4 



STQ 
LDQ 
STQ 
TSX 
TXL 
ALS 



LS 
8R 
RS 
CI, 2 

B6,0,8 
3 



GO TO CARD IMMAGE CONVERSION PROGRAM 

SET ADDRESS OF 1-0 COMMAND 

LOCATION TO INDEX REGISTER 

TURN OFFF EOF INDICATOR 

PICK UP SWITCH 

SET TO TXH FIRST TIME THROUGH 

LOCATION OF 1-0 COMMAND 

RESET AND LOAD CHANNEL 

SET UP TCO COMMAND 

WAIT FOR CHANNEL TO GO OUT OF OPERAT 

LOACTION OF BAD EXIT 

GO IF EOF FOUND 

LOCATION TO TRY AGAIN 

GO IF REDUNDANCY CHECK FOUND 

RESTORE LINK IR 

GOOD EXIT 



IS TXL ON SECOND TRY 
BACKSPACE RECORD 
SELECT TAPE 
PICK UP SWITCH 
GO TRY AGAIN 
LINK IR 

RESTART AFTER ERROR 



TURN OFF END FILE INDICATOR 

SAVE INDICATORS 

TURN INDICATORS 1,2 OFF 

READ IN 9 IEFT +RT INTO L,R 

DELAY, START 8LEFT + RT INTO 8L,8R 

GO TO END OF PILE RETURN IF EOF ON 

X 

SET LEFT SUM 

SAVE INDEX REGISTERS 

X 

SET DIGIT ROW COUNT 



SET RIGHT SUM 
ENTER CONVERSION LOOP 
LEAVE CONVERSION LOOP 

INITIALIZE BCD RECORD 

DELAY UNTIL 8 IN, 

USE 8 ROW AS SUM 

X 

X 

X 

ENTER CONVERSION LOOP 

LEAVE CONVERSION LOOP 

AOD 8 TIMES 8 ROW 



X 
X 



START READING 7 



LS007O5O 
LS007060 
LS007070 
LS007080 
LS007090 
LS007100 
LS007110 
LS007120 
LS007130 
IOLS007140 
LS007150 
LS007160 
LS007170 
LS007180 
LS007190 
LS007200 



LS007210 
LS007220 
LS007230 
LS007240 
LS007250 
LS007260 
LS007270 
LS007280 
LS007290 
LS007300 
LS007310 
LS007320 
LS007330 
LS007340 
LS007350 
LS007360 
LS007370 
LS007380 
LS007390 
LS007400 
LS007410 
LS007420 



LS007430 
LS007440 
LS007450 
LS007460 
LS007470 
LS007480 
LS007490 
LS007500 
LS007510 
LS007520 
LS007530 
LS007540 
LS007550 
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TO 



01277 
0130C 
01301 
01302 
01303 
01304 
1 30 5 
01306 
01307 



•3 COOCO 
-0500 CO 

0602 CO 
-0500 CO 

C6C2 CO 
-3 00002 

0544 CO 
-CC54 CO 

0020 CO 



01451 
77667 
77661 
77670 
77662 
01465 
01501 
000001 
C 01345 



TO 
TD 



BINARY CA 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
0133C 
01331 
0133 2 
01333 
01334 
01335 



LI 

CO 
00 
CO 
CO 
CO 
CO 
00 

cc 

CO 
CO 



RD NO. 
-0500 
-0320 
-C100 
-0500 
-0 602 
-0500 
-0320 
-0100 
-0500 
-0 602 
-2 000C1 

0074 CO 
-3 COOGO 
-3 OOOCG 
-C500 CC 
-0 501 

0602 

0544 
-0320 

0602 
-0500 
-0501 



SP0030 



CO 
CO 
CO 
CO 
00 
CC 
CO 














1 

2 





c 










77667 
77661 
01470 
77667 
77661 
77670 
77662 
01470 
77670 
77662 
01461 
01415 
01304 
C1451 
77663 
77661 
77663 
01501 
7 7665 
77661 
77664 
77662 



TO 



TD 



BINARY CA 
01336 
01337 
01340 
1 34 1 
01342 
01343 
01344 
01345 
01346 
0134 7 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 



LI 

CC 
CO 
CO 
CO 



RO NO. 

0602 
-0320 

06C2 

74 
-3 COOCO 

0767 CO 
-3 00000 
-0500 00 

0602 CO 
-C5C0 

0760 
-0320 

0320 
-C500 

0602 
-0500 

760 
-C320 

0320 

0074 



CO 
00 
00 
CO 
CO 
CC 
CO 
CO 
CO 
00 
CO 



SP0031 
77 664 
77666 
77662 
01415 
01305 
00004 
01451 
77661 
77667 
77 663 
00006 
77665 
77661 
77662 
77670 
77664 
00006 
77666 
77662 
01415 





2 















2 



B6 



B13 
B14 



B8 



BIO. 



Bll 



B7 



B40 



B9 



TXL 

CAL 

SLW 

CAL 

SLW 

TXL 

LCHA 

LFT 

TRA 



C3 

L 

LS 

R 

RS 

B25,l,2 

LR 
1 
B9 



CAL 
ANA 
TNZ 
CAL 
ORS 
CAL 
ANA 
TNZ 
CAL 
ORS 
TNX 
TSX 
TXL 
TXL 
CAL 
ORA 
SLW 
LCHA 



L 

LS 
B17 
L 

LS 
R 

RS 
B17 
R 

RS 

B12,l,l 
CI, 2 
B13 
C3 
8L 
LS 
LCS 
LR 



ANA LZ 
SLW LS 
CAL 8R 
ORA RS 



SLW 
ANA 
SLW 
TSX 
TXL 
ALS 
TXL 
CAL 
SLW 
CAL 
COM 
ANA 
ANS 
CAL 
SLW 
CAL 
COM 
ANA 
ANS 
TSX 



RDS 

RZ 

RS 

CI, 2 

B14 

4 

C3 

LS 

L 

LDS 

LZ 

LS 

RS 

R 

RDS 

RZ 
RS 
CI, 2 



X 

USE 
X 
X 
X 



9 ROW AS SUM 



IS IT ZERO OR ONE ROW YES- 
DELAY* READ IN N RT AND LEFT 
IS END OF RECORD INDICATOR ON 
YES- END OF RECORD 



NO- TEST LEFT ROW FOR 
ILLEGAL DOUBLE PUNCH 
X 

FORM LOGICAL SUM 
OF LEFT ROWS 
TEST FOR ILLEGAL 
DOUBLE PUNCH 
X 

FORM LOGICAL SUM OF 
RIGHT ROWS 
TEST FOR ZONE ROWS 
ENTER CONVERSION LOOP 
LEAVE CONVERSION LOOP 
ADD TO BCD RECORD 
ADD 8 LEFT ROW TO 
LEFT LOGICAL SUM 
X 

DELAY, START READING X-L,R INTO L,R 

FORM INDICATOR FOR 
BOTH DIGIT AND ZERO 
ADC 8 RIGHT ROW TO 
RIGHT LOGICAL SUM 



X 

FORM INDICATOR FOR 

BOTH DIGIT AND ZERO 

ENTER CONVERSION LOOP 
LEAVE CONVERSION LOOP 
SHIFT TO ZONE POSITION 
X 

SAVE LEFT ZONE SUM 
X 

FORM INDICATOR FOR 
ZERO AND X AND / OR Y 
IN LEFT ROWS 
X 

SAVE RIGHT ZONE SUM 
X 

FORM INDICATOR FOR 
ZERO AND X AND/OR Y 
IN RIGHT ROWS 
X 
ENTER CONVERSION LOOP 



LS007560 
LS007570 
LS007580 
LS007590 
LS007600 
LS007610 
LS007620 
LS007630 
LS007640 



LS007650 
LS007660 
LS007670 
LS007680 
LS007690 
LS007700 
LS007710 
LS007720 
LS007730 
LS007740 
LS007750 
LS007760 
LS 007 770 
LS007780 
LS007790 
LS007800 
LS007810 
LS007820 
LS007830 
LS007840 
LS007850 
LS007860 



LS007870 
LS007880 
LS007890 
LS007900 
LS007910 
LS007920 
LS007930 
LS007940 
LS007950 
LS007960 
LS007970 
LS007980 
LS007990 
LS008000 
LS008010 
LS008020 
LS008030 
LS008040 
LS008050 
LS008060 



wnpim 
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TO 01362 


-3 OOOCO 





01370 




TXL 


B15 


• 01363 


0602 


CO 





77660 




SLW 


TP 


BINARY CARD NO. 


LISP0032 








• 01364 


0767 


GO 





G0002 




ALS 


2 


01365 


0361 


CO 





77660 




ACL 


TP 


01366 


0767 


CO 


c 


00001 




ALS 


1 


• TO 01367 


-3 OOOCO 





01451 




TXL 


C3 


01370 


-0300 


CO 





77663 


B15 


CAL 


LDS 


01371 


-C5C1 


CO 





77665 




QRA 


LZ 


• 01372 


-0501 


CG 





77667 




ORA 


L 


01373 


760 


CO 





00006 




COM 




01374 


0602 


CO 





77661 




SLW 


LS 


W 01375 


-0500 


GO 





77664 




CAL 


RDS 


01376 


-0501 


CO 





77666 




ORA 


RZ 


01377 


-0501 


CG 





77670 




ORA 


R 


• 01400 


7 60 


CO 





00006 




COM 




01401 


0602 


CO 





77 662 




SLW 


RS 


01402 


0074 


CO 


2 


01415 




TSX 


CI, 2 


• TO 01403 


-3 OOOOQ 





01411 




TXL 


B16 


01404 


0602 


CO 





77660 




SLW 


IP 


_ 01405 


0767 


CO 





OOOOl 




ALS 


1 


• 01406 


0361 


CO 





77660 




ACL 


TP 


01407 


0767 


00 





00004 




ALS 


4 


TO 0L41C 


-3 COOOC 





01451 




TXL 


C3 


• 01411 


-0534 


GO 


I 


01264 


B16 


LXD 


B2,l 


BINARY CARD NO. 


LISP0033 








• 01412 


-0534 


GO 


2 


01266 




LXD 


B3,2 


01413 


0441 


CO 





01500 




LDI 


350 


01414 


0020 


CO 


4 


U0O03 




TRA 


3,4 


• 01415 


-0634 


GO 


L 


01420 


CI 


SXD 


C4,l 


01416 


-0 5 00 


CG 


4 


C0001 


C9 


CAL 


lt4 


01417 


0401 


CO 





01434 




ADM 


C7 


• 01420 


-3 OOOOQ 





01424 


C4 


TXL 


C6,, 


01421 


0401 


00 





01434 




ADM 


C7 


01422 


C560 


CC 





77662 




LDQ 


RS 


• TD 0142 3 


1 00000 





01425 




TXI 


C8 


0142 4 


056O 


CO 





77661 


C6 


LDQ 


LS 


_ 01425 


0621 


CG 





01452 


ca 


STA 


C2 


• 01426 


0621 


CO 


■o 


01451 




STA 


C3 


01427 


3 00001 


1 


01433 




TXH 


C5,l 


01430 


-0 600 


CO 





77660 




STQ 


TP 


• 01431 


-C5C0 


CG 





77660 




CAL 


TP 


01432 


0100 


CC 





01455 




TZE 


Cll 


01433 


5 34 


GO 


I 


01434 


C5 


LXA 


C7,l 


• 01434 


-0754 


GO 





00006 


C7 


PAD 




01435 


-0 763 


CC 





0000 1 




LGL 


1 


01436 


0767 


CO 





00005 




ALS 


5 


• 01437 


-0763 


CO 





G0001 




LGL 


1 


BINARY CARD NO-. 


LISP0034 








• 01440 


767 


CG 





C0005 




ALS 


5 


01441 


-0763 


00 





00001 




LGL 


1 


_ 01442 


0767 


CO 





00005 




ALS 


5 



LEAVE CONVERSION LOOP 
MULTIPLY INDICATOR 



6,0 



BIT 

X 

X 

X 

FOR 

BLA 

LEF 

X 

X 

FOR 

BLA 

RIG 

X 

X 

ENT 

LEA 

MUL 

BIT 

SHI 

X 

X 

RES 



AND 

PRO 
SAV 
INI 
X 

TRA 
RIG 
OBT 
SK 
OBT 
SET 
X 

SKI 
TES 
X 
X 
SET 



S BY TEN 



M INDICATOR FOR 
NK COLUMNS IN 
T HALF OF CARD 



M INDICATOR FOR 
NK COLUMNS IN 
HT HALF OF CARD 



ER CONVERSION LOOP 
VE CONVERSION LOOP 
TIPLY INDICATOR 
S BY 3 AND 
FT TO ZONE POSITION 



TORE INDEX REGISTERS 



RETURN TO MAIN 

RESTORE INDICATORS 
GRAM 

E ROW COUNT 
TIALIZE ADDRESSES 
ADD 6 

NSFER 10 LEFT ROW 
HT ROW, ADD 6 MORE 
AIN RIGHT SUM AND 
IP OVER LEFT SUM 
AIN LEFT SUM 

BCD RECORD ADDRESS 

P TEST IF DIGIT ROW 

T FOR NO SUM 



WORD COUNT 

CONVERT ROW 



X 
X 
X 



X 

X 
X 



LS008070 
LS008080 



LS008090 
LS008100 
LS008110 
LS008120 
LS008130 
LS008140 
LS008150 
LS008160 
LS008170 
LS008180 
LS008190 
LS008200 
LS008210 
LS008220 
LS008230 
LS008240 
LS008250 
LS008260 
LS008270 
LS008280 
LS008290 
LS008300 



LS008310 
LS008320 
LS008330 
LS008340 
LS008350 
LS008360 
LS008370 
LS008380 
LS008390 
LS008400 
LS008410 
LS008420 
LS008430 
LS008440 
LS008450 
LS008460 
LS008470 
LS008480 
LS008490 
LS008500 
LS008510 
LS008520 



LS008530 
LS008540 
LS008550 
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0144 3 


-0763 CO 





OOOQl 




LGL 


1 


0144 h 


0767 CO 





00005 




ALS 


5 


01445 


-0763 CO 





00001 




LGL 


1 


01446 


0767 CO 





00005 




ALS 


5 


0144 7 


-0763 CO 


C 


00001 




LGL 


1 


01450 


C02O CO 


2 


00002 




TRA 


2,2 


01451 


0361 CO 


1 


00000 


C3 


ACL 


0,1 


01452 


0602 CO 


I 


00000 


C2 


SLW 


0,1 


01453 


2 00001 


1 


01434 




II X 


C 7 , 1 , 1 


01454 


-0 5 34 CO 


1 


01420 




LXD 


C4,l 


01455 


0502 CO 





01420 


Cli 


CLS 


C4 


01456 


0601 CQ 





01420 




STO 


C4 


01457 


-0120 00 


2 


00O01 




TMI 


1,2 


D 01460 


1 oooco 





01416 


CIO 


TXI 


C9 


01461 


-GC51 CO 


( 


300002 


612 


IIL 


2 


01462 


-0056 00 


000002 




LNT 


2 


01463 


0020 CO 





01472 




TRA 


6100 


01464 


0020 CO 





01341 




TRA 


840 


01465 


-3 G0OC1 


1 


01326 


825 


TXL 


B7,U1 


BINARY CARD NO. LISP0035 








01466 


5 44 CO 





01503 




LCHA ZLR 


146 7 


020 CO 





01310 




TRA 


88 


01470 


-0760 GO 





00O03 


817 


SSM 




01471 


1 000 CI 


4 


01411 




TXI 


616,4,1 


01472 


060 CO 


•0 


01472 


8100 


TCOA * 


01473 


0074 CO 


2 


01415 




TSX 


CI, 2 


D 01474 


-3 OOOCO 





01477 




TXL 


B200 


01475 


0767 CO 





G0O04 




ALS 


4 


D 01476 


-3 00006 





01451 




TXL 


C3 


01477 


0020 CO 





01345 


8200 


TRA 


B9 


01500 


COO GO 





00000 


850 


PZE 




01501 


-3 000C2 





77667 


LR 


MTH 


L,0,2 


01502 


-3 000 02 





77663 


SLR 


MTH 


8L,0r2 


01503 


-3 OOO 02 





77665 


ZLR 


MTH 


LZ,0„2 


01504 


-3 777 77 





QOOOO 
77660 


CMMND 


MTH 
ORG 


**,0,-l 

CCMMGN 


77660 








TP 


8SS 


1 


7 7661 








LS 


BSS 


1 


77662 








RS 


BSS 


1 


77663 








LDS 


BSS 


1 


77664 








RDS 


BSS 


1 


7 7665 








LZ 


BSS 


1 


77666 








RZ 


BSS 


1 


7766 7 








L 


BSS 


1 


7767G 








R 


BSS 


1 








77663 


8L 


SYN 


LDS 








77664 


8R 


SYN 


RDS 








01505 


C 


ORG 
HED 


CMMND+1 








00000 


BCDIN 


EQU 











01207 


RTX 

* 

* 


SYN 
HEAC 

SPAC 


C$RTX 



EX PROVIDE 



X 
X 
X 
X 
X 

ex i 

ADD 
STO 

cou 

RES 
INV 
TE 
TRA 
GO 



T FOR ROW PROCEDURE 

TO BCD RECORD 
RE IN BCD RECORD 
NT WORDS 
TORE ROW COUNT 
ERT ROW SWITCH AND 
ST FOR RIGHT ROW DONE 
NSFER IF RIGHT ROW DONE 
CONVERT RIGHT ROW 

CHANGE INDICATOR BIT 

IS THIS TWELVE ROW 

CHANGE 

NC 
IS IT XERO ROW OR ONE ROW 



17 



SET ERRO 
RESTORE 



R SIGN 

I.NDEX REGISTERS 



AND MAKE BAD 



INDICATOR STORAGE 



TEMPORARY 
LEFT SUM 
RIGHT SUM 
LEFT DIGIT SUM 
RIGHT DIGIT SUM 
LEFT ZERO ROW 
RIGHT ZERO ROW 
LEFT ROW 
RIGHT ROW 
8 LEFT ROW 
8 RIGHT ROW 



A VARITY OF SPACES ON OFF LINE PRINTER 



LS008560 
LS008570 
LS008580 
LS008590 
LS008600 
LS008610 
LS008620 
LS008630 
LS008640 
LS008650 
LS008660 
LS008670 
LS008680 
LS008690 
LS008700 
LS008710 
LS008720 
LS008730 
LS008740 



LS008750 
LS008760 
LS008770 
XLS008780 
LS008790 
LS008800 
LS008810 
LS008820 
LS008830 
LS008840 
LS008850 
LS008860 
LS008870 
LS008880 
LS008890 
LS008900 
LS008910 
LS008920 
LS008930 
LS008940 
LS008950 
LS008960 
LS008970 
LS008980 
LS008990 
LS009000 
LS009010 
LS009020 
LS009030 
LS009040 
LS009050 
LS009060 
LS009070 
LS009080 



mmmmmmmmmmmiMmm 
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BINARY CARD NC. 


LISP0036 








01505 


0522 


GO 





01712 


SPACEX 


XEC 


$SWT5 


01506 


0020 


CO 





01510 




TRA 


* + 2 


01507 


0020 


GO 


4 


00O02 




TRA 


2,4 


015IC 


0634 


CC 


4 


01513 




SXA 


SPX, 4 


01511 


500 


CG 





00365 




CLA 


SYSPOT 


01512 


00 74 


00 


A 


00277 




TSX 


$(I0S),4 


01513 


774 


CO 


4 


00000 


SPX 


AXT 


*«,4 


01514 


G5C0 


CO 


4 


COOOl 




CLA 


1,4 


01515 


0737 


00 


4 


00000 




PAC 


0,4 


01516 


522 


CO 





00352 




XEC 


$WRS 


01517 


0522 


CO 


C 


00362 




XEC 


$RCH 


0152G 


534 


CO 


4 


01513 




LXA 


SPX, 4 


01521 


0020 


00 


4 


00002 




TRA 


2,4 


01522 


2 00001 





00507 


8SPACE 


IORP 


ZBLANK,,! 


01523 


2 000 Gl 





00507 


6SPACB 


IORP 


ZBLANK,,1 


01524 


2 000 01 





00507 


4SPACE 


IORP 


ZBLANK,,! 


01525 


2 00001 





00507 


2SPACE 


IORP 


ZBLANK, ,1 


01526 


00000 





COOOO 




IOCD 


0,,0 












* OUTPUT 


BCD OUTPU 












* SWITCHES.. 


• 












* 3 


PRINT 


ON-LINE 












* 5 


DONT 


WRITE TAPE F 


01527 


0634 


CO 


4 


01554 


OUTPUT 


SXA 


WOTX, 4 


015 3 


0520 


CC 





02251 




ZET W*SPCON 


01531 


20 


CG 


c 


02253 




TRA W$SPAC1 


01532 


0500 


CO 


4 


00002 


WOT 2 


CLA 


2,4 










01532 


SPAC3 


SYN 


WOT 2 


BINARY CARD NO. 


LISP 0037 








01533 


622 


GQ 





01677 




STO 


WOTC 


01534 


0400 


CO 





00443 




ADU 


$Q20 


01535 


06 21 


CC 





01543 




STA 


WOTM 


01536 


-0625 


GO 





Q0360 




STL 


$TCO 


01537 


0522 


CO 





00360 




XEC 


$TCO 


01540 


0500 


60 


4 


00001 




CLA* 


1,4 


01541 


0074 


CC 


4 


002 77 




TSX 


$(IOS) ,4 


01542 


7 74 


CO 


4 


00024 




AXT 


20,4 


01543 


5 GO 


CO 


4 


00000 


WOTM 


CLA 


**,4 


01544 


0601 


CC 


4 


01677 




STO 


WO IB, 4 


01545 


2 00001 


4 


01543 




TIX 


W0TM*4,1 


01546 


0522 


CO 





01712 




XEC 


4.SWT5 


01547 


20 


GO 





01551 




TRA 


« + 2 


01550 


CO 20 


CO 





01554 




TRA 


WO IX 


01551 


-0774 


CO 


4 


016 77 




AXC 


WOTC, 4 


01552 


522 


CO 





00352 




XEC 


$WRS 


01553 


0522 


CO 





00362 




XEC 


$RCH 


01554 


0774 


CO 


4 


OOOQG 


WOTX 


AXT 


■»* ,4 


01555 


0500 


CC 


4 


00O01 




CLA 


1,4 


01556 


0522 


CO 





01710 




XEC 


$SWT3 


01557 


0120 


CO 


4 


00003 




TPL 


3,4 



TEST FOR NO OFF-LINE OUTPUT 

RETURN 

SAVE LINK IR 

SET UP TAPES 

RESTORE LINK IR 
GET PARAMETER 
COMPLEMENT INTO IR 4 



RETURN 

DOUBLE SPACE 
DOUBLE SPAGE 
DOUBLE SPACE 
DOUBLE SPACE 
DISCONNECT CHANNEL 

NE FOR LISP 



OFF-LINE PRINTING 

SAVE LINK IR 

GET PARAMETER WORD 



SET COUNT OF 1-0 COMMAND 

END OF BLOCK 

SET MOVE LOOP 

WAIT FOR COMPLETION OF LAST OPERATION 

GET TAPE SPECIFICATION 

SET UP 1-0 COMMANDS 

MAXIMIUM THAT MAY BE ON 1 RECORD 

MOVE INTO BUFFER 



TEST FOR NG TAPE OUTPUT 
IS OUTPUT ON TAPE 
TEST FOR ON-LINE OUTPUT 
POINTER TO 10 COMMANO 

RESET ANF LOAD CHANNEL 
RESTORE LINK IR 
TEST FOR ON-LINE 
CN-LINE SENSE SWITCH 



LS009090 



LS009100 
LS009110 
LS009120 
LS009130 
LS009140 
LS009150 
LS009160 
LS009170 
LS009180 
LS009190 
LS009200 
LS009210 
LS009220 
LS009230 
LS009240 
LS009250 
LS009260 
LS009270 
LS009280 
LS009290 
LS009300 
LS009310 
LS009320 
LS009330 
LS009340 
LS009350 
LS009360 
LS009370 
LS009380 



LS009390 
LS009400 
LS009410 
LS009420 
LS009430 
LS009440 
LS 009450 
LS009460 
LS009470 
LS009480 
LS009490 
LS009500 
LS009510 
LS009520 
LS009530 
LS009540 
LS009550 
LS009560 
LS009570 
LS009580 
LS009590 



HMD 



wmmmmmm 



mm/mm 
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* DM 716A - 48 CARDS - 02-09-59 

* BCD ON-LINE PRINT RDUTINE FOR 709 

* MODIFEU FOR USE IN LISP 1.5 



01560 0634 GO 4 01644 



BINARY C 
0156 
0156 
0156 
0156 
0156 
0156 
0156 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0157 
0160 
0160 
0160 
0160 
0160 
0160 
0160 



ARD NO. 



0634 
0634 
0600 
0600 
-0534 

1 0165 
634 C 
0060 C 
0774 G 
6 00 G 

2 OOOC 
-0 5 00 C 

0634 

0560 

0774 

0602 
-0 7 54 
-0763 
-0520 

0500 

767 

0734 



I3P0033 
2 01645 
01646 
01650 
01651 
01677 
01567 
01576 
01570 
00030 
77712 
015 72 
00511 
01601 
COOOO 
00006 
77 712 
00000 
00006 
01651 
0046 3 
00001 
COOOO 



1 



6 
4 
4 

4 
4 
4 

2 
2 
2 







1 



BINARY 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



CARD 
607 -0 



61C 
611 
612 
613 
614 
615 
616 
617 
620 
621 
622 
623 
624 
62 5 
62 6 
627 
6 30 
631 
632 
633 
634 



-2 
-0 

3 
-2 
-0 
-2 
-2 
-0 
-2 
-2 

1 
-0 
-0 


-0 

2 


-2 
-0 
-3 

1 



NO. LI 

500 00 

00140 

602 CO 

00136 

000 76 

602 CO 

000 2 

000 36 

602 CO 

OOOC 2 

000 22 

00002 

6C2 CO 

602 CO 

771 CO 

625 CO 

00001 

534 CO 

00001 

100 CO 

000 CO 

77777 



SP0039 





1 

4 
1 
1 
4 
1 
1 
4 
1 
1 
1 
4 
5 


2 
3 
2 

4 
4 



77712 
01612 
77705 
01625 
C1616 
77707 
01625 
01621 
77711 
01625 
01624 
01623 
77665 
77705 
00001 
01651 
01600 
01601 
01635 
015 75 
01635 
01574 



WOTON SXA 



SXA 

SXA 

STZ 

ST7. 

LXD 

TXI 

SXA 

BC02 TCOA 

AXT 

STZ 

TIX 

BC03 CAL 

BC04 SXA 

BC05 LDQ 

AXT 

BC06 SLW 

BC07 PXD 

LGL 

NZT 

CLA 

ALS 

PAX 



CAL 
TNX 

ORS 
TXH 
TNX 
ORS 
TNX 
TNX 
ORS 
TNX 
TNX 
TXI 
ORS 
ORS 
BC08 ARS 
STL 
TIX 
LXA 
TNX 
TNZ 
TXL 
TXI. 



W0TU,4 



W0TV,2 

W0TW,1 

WOTT 

WOTS 

W0TC,6 

*+l,4,W0TB-20 

BC05,4 

* 

24,4 

COMMON+26,4 

•-1.4,1 

BC50 

BC01,2 

0,2 

6,2 

C0MM0N+26 

**,0 

6 

WOTS 

$0060 

1 

,1 



COMMON 

*+2,l, 

COMMON 

BC08.1 

*+3,l, 

COMMON 

BC08,a 

•+3,1, 

COMMON 

BC08,1 

•+3,1, 

*+l,l, 

COMMON 

COMMON 

1 

WOTS 

BC06,2 

BC01,3 

8C15,2 

BC04 

BC15,4 

BC03,4 



+ 26 

96 

+ 21,4 

,94 

62 

+ 23,4 

,2 

30 

+ 25,4 

,2 

18 

2 

+ 5,4 

+ 21,5 



,1 
,1 



,0 
,-1 



PRINT ON LINE 



SAVE INDEX REGISTERS 

SET SWITCH 

SET SWITCH TO SKIP FIRST CHARACTER 

COUNT IN INDEX 4 AND 2 

ADD BEGINNING OF BUFFER 

SET ADDRESS 

WAIT 
CLEAR 

WORKING 
STORAGE 
STROBE STARTER 
WORKING CELL FOR N 
PICK UP WORD TO CONVERT 
X2 COUNTS 6 CHARACTERS 
STROBE 

LOOK AT 

SKIP IF NOT FIRST CHARACTER 
GET BCD BLANK FOR LEADING CHARACTER 
ONE CHARACTER 



STROBE 
NOT 


BLANK 
NOT 11 
11 

NOT 12 
12 

NOT 8 COMBINATION 

8 COMBINATION 

NUMBER 

MOVE STROBE 

SET SWITCH 
BACK FOR NEXT CHARACTER 
N 

OUT IF N WORDS DONE 
BACK FOR REST OF HALF-CARD 
RIGHT- HALF DONE 
BACK FOR RIGHT HALF 



LS009600 
LS009610 
LS009620 
LS009630 



LS009640 
LS009650 
LS009660 
LS009670 
LS009680 
LS009690 
LS009700 
LS009710 
LS009720 
LS009730 
LS009740 
LS009750 
LS009760 
LS009770 
LS009780 
LS009790 
LS009800 
LS009810 
LS009820 
LS009830 
LS009840 
LS009850 



LS009860 
LS009870 
LS009880 
LS009890 
LS009900 
LS009910 
LS009920 
LS009930 
LS009940 
LS009950 
LS009960 
LS009970 
LS009980 
LS009990 
LS010000 
LS010010 
LS010020 
L SO 10030 
LS010040 
LS010050 
LS010060 
LS010070 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
INPUT, OUTPUT, AND UTILITY 



9/20/67 



PAGE 23 



BINARY CARD NO. LI 



01635 
01636 
01637 
0164C 
01641 
01642 
01643 
01644 
01645 
01646 
01647 

01650 
01651 
01652 



01677 



CO 

CO 
CO 

cc 

CO 



766 
0540 
0520 
0760 
-0625 
3 OOOCl 
0060 CQ 
0774 
0774 
07 74 
0020 



CO 
00 
CO 
CO 



SP0040 
C 01361 
01652 
01650 
01371 
01650 
01570 
01643 
00000 
OOOQO 
OGOOO 
00003 






c 



000 00 
COOCC 
G003G 








1 


4 
2 
1 
4 



00000 

00000 

7 766 2 

01601 

00511 



8C15 



WOTU 

wotv 

WDTW 



WOTT 
WOTS 
BC49 
BC01 
BC50 



WPDA 

RCHA 

ZET 

SPRA 

STL 

TXH 

TCOA 

AXT 

AXT 

AXT 

TRA 



ICCD 

SYN 

SYN 



BC49 

WOTT 

9 

WOTT 

BCC2,1,1 

**,4 
**,2 
**,1 

3,4 



COKMON+2,,24 

8C07 

$SBIT 



SET SWITCH FOR SECOND HALF LINE 
BACK FOR WORE WORDS 

RESTORE INDEX REGISTERS 



EXIT 

NON-ZERO ON SECOND HALF LINE 
ZERO FOR FIRST CHARACTER 



WOTB BES 



20 



OUTPUT BUFFER 



LS010080 
LS010090 
LS010100 
LS010110 
LS010120 
LS010130 
LS010140 
LS010150 
LS010160 
LS010170 
LS010180 
LS010190 
LS010200 
LS010210 
LS010220 
LS010230 
LS010240 
LS010250 
LS010260 



BLNARY CARD IMC. 


LISP0041 










01677 


2 000 CO 





01653 


wore 


IORP 




WOTS-20,,** 


01700 


00000 





00000 




IOCD 




CO 










00365 


BCDOUT 


SYN 




SYSPQT 










00364 


PPT0UT 


SYN 




SYSPPT 


01701 


0762 


CO 





01321 


P5HLDB 


RCDA 






01702 


0540 


CO 





01705 




RCHA 


* 


+•3 


01703 


C544 


CO 





CO 000 




LCHA 


C 




01704 


21 


CO 





COOOl 




TTR 1 






01705 


-! 000 03 





00000 




I OCT 





v,i 














HEAD 

















* $SWTN COMMANDS 












* NOTE 


• *.". • w 




SWT COMMANDS MA 












* 


ZET 




SZERO 












* 






AND UP SWITCHES 












* 


NZT 




SZERO 


01706 


760 


CO 





G0161 


SWT1 


SWT 




1 


01707 


0760 


cc 





00162 


S.WT2 


SWT 




2 


01710 


760 


CO 





00163 


SWT3 


SWT 




3 


01711 


0760 


CC 





00164 


SWT4 


SWT 




4 


01712 


0760 


CO 





00165 


SWT5 


SWT 




5 


01713 


0760 


CC 





00 166 


SWT6 


SWT 




6 



WRITE RECORD FROM BUFFER 
DISCONNECT CHANNEL 



ALL SWT COMMANDS ARE EXECUTED 
BE SIMULATED BY MAKING DOWN SWITCHES 



* SENSE LIGHT AND TEST INSTRUCTIONS TO BE EXECUTED OR DUMMYEO 



1 71 4 


760 


00 





00141 


SLN1 


SLN 


1 


1 71 5 


0760 


CO 





00142 


SLN 2 


SLN 


2 


01716 


0760 


CO 





00143 


SLN3 


SLN 


3 


01717 


0760 


CO 





00144 


SLN4 


SLN 


4 


01720 


760 


CO 





00140 


SLF 


SLF 




01721 


-0760 


CO 





00141 


SLT1 


SLT 


1 



LS010270 
L SO I 02 80 
LS010290 
LS010300 
LS010310 
LS010320 
LS010330 
L SO I 0340 
LS010350 
LS010360 
LS010370 
LS010380 
LS010390 
L SO 10400 
LS010410 
L SO 10420 
LS010430 
L SO 10440 
LS010450 
LS010460 
LS010470 
LS010480 
LS010490 
LS010500 
LS010510 
LS010520 
LS010530 
LS010540 
LS010550 
LS010560 
LS010570 
LS010580 
LS010590 
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01722 -C760 
0172 3 -0 7 60 
0172^ -0760 



CC 
CC 
CO 



C0142 
00143 
0G144 



BINARY CA 
01725 
01726 
01727 
01730 
01731 
01732 
01733 
01734 
01735 
01736 

01737 
0I74C 

01741 
01742 
01743 
01744 
01745 
01746 
01747 
01750 
01751 
01752 



RD 



NC. 
06 34 
■0 5-00 
0601 
C601 
500 
0601 
0601 
560 
-0600 
0020 



LI 

CO 
CC 
CO 
CO 
CO 
CO 
GO 
CO 
CO 
CO 



SP004 2 
4 02027 
01754 
02036 
02040 
0000 5 
02031 
01740 
02032 
01737 
02013 




















000 CO 
000 CO 



634 
0500 
C4C2 
0760 
0131 
-0600 
C5C0 
0400 
0601 
(J 20 



00 

CO 
CO 
CO 
CO 
CO 
CC 
CO 
CO 
CO 





C 

4 





€ 







00000 

ccooo 

0202 7 
01740 
0C0Q5 
00003 
00000 
02032 
01737 
02O32 
02032 
02002 



BINARY CARD NC. 


LISP004 3 


01753 


+000000 165140 


01754 


-206060606000 


01755 


500 


CO Q 


01754 


01756 


0601 


CO 


02036 


01757 


06 01 


CC 


02040 


0176C 


0601 


CO 


02043 


01761 


0601 


CO 


02045 


01762 


5 00 


CO 


00005 


01763 


0601 


CO 


0203 1 


01764 


06 CO 


CO 


0203 2 


01765 


6 34 


CO 4 


02027 


01766 


0C20 


CO 


02023 



SLT2 
SLT3 
SLT4 



* 



•» 

EVTIM 1 
EVTIM4 
* 

EVTTM3 



* 
* 
* 

« 



TIME! 



SLT 
SLT 
SLT 



2 
3 
4 



EVTIME AND FRIENDS KEEP TRACK OF SYSTEM AGE FOR 
tVALQLOTE PRINTOUTS 



EVTIME 



SXA 
CLA 
STO 
STO 
CLA 
STO 
STO 
LDQ 
STQ 
TRA 



TIMSAV,4 

TIME 1-1 

TIM0T1 

TIM0T2 

5 

TIME2 

EVTIM4 

TIME 3 

EVTIMl 

EVTIM2+1 



SAVE SYSTEM AGE 
SAVE AGE OF SETS 



SXA 
CLA 
SUB 
SSP 
XCA 
STQ 
CLA 
ADD 
STO 
TRA 



TIMSAV,4 
EVTIM4 



TIME3 

EVTIM 

TIME3 

TIME3 

EVTIM5+1 



TIME PRINTS THE TIME SINCE LAST 
CALLED AND TIME SINCE LAST TIME 
CALLED. TIME1 INITIALIZES TIME 



OCT 165140 

OCT 606060606000 

CLA *-l 

STO TIM0T1 

STO TIM0T2 

STO TIM0T3 

STO TIMCT4 

CLA 5 

STO TIME2 

STZ TIME3 

SXA TIMSAV,4 

TRA TIMPRT 



TIME TIME WAS 
TIME! WAS 
COUNTERS TO ZERO. 



LS010600 
LS010610 
LS010620 
LS010630 
LS010640 
LS010650 
L SO 10660 
LS010670 



LS010680 
LS010690 
LS010700 
LS010710 
LS010720 
LS010730 
LS010740 
LS010750 
LS010760 
LS010770 
LS010780 
LS010790 
LS010800 
LS010810 
LS010820 
LS010830 
LS010840 
LS010850 
LS010860 
LS010870 
LS010880 
LS010890 
LS010900 
LS010910 
LS010920 
LS010930 
LS010940 
LSO 10950 
L SO 10960 
LS010970 



LS010980 
LS010990 
LSO 11 000 
LS011010 
LS011020 
LS0H030 
LS011040 
LS011050 
LS011060 
LS011070 
LS011080 
LS011090 
LS011100 



MPMPMMP 
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01767 


06 34 


CO 


4 


02027 


TIME 


SXA 


TIMSAV, 4 


0177G 


0500 


00 





00005 




CLA 


5 


01771 


0131 


CO 





OOOOO 




XCA 




01772 


0500 


CO 


c 


02031 




CLA 


TIME2 


01773 


-0600 


CO 


C 


02031 




STQ 


TIME2 


01774 


0402 


CO 





02O31 




SUB 


TIME2 


0177 5 


0760 


CO 


c 


00OQ3 




SSP 




01776 


06 01 


CO 





02033 




STO 


TIME5 


01777 


C4G0 


CO 





G2032 




ADD 


TIME3 


02000 


0601 


00 





02032 




STO 


TIME3 


BINARY CARD NO. 


LISP0044 








02001 


560 


00 





02033 


EVTIM5 


LDQ 


TIME 5 


02002 


0754 


CO 





OOOOO 




PXA 


0,0 


0200 3 


0221 


CO 





01753 




DVP 


TIME 1-2 


02004 


-0600 


CO 





02033 




STQ 


TIME5 


02005 


074 


CO 


4 


04653 




TSX 


$DEC0N,4 


02006 


0602 


00 





02 040 




SLW 


riM0T2 


02007 


0500 


CO 





02033 




CLA 


T1ME5 


0201G 


0074 


CO 


4 


04653 




TSX 


$DEC0N,4 


02011 


0602 


CO 


c 


02036 




SLW 


TIM0T1 


02012 


0560 


00 





02032 


EVTIM2 


LDQ 


TIME3 


02013 


0754 


CO 


€ 


OOOOO 




PXA 


0,0 


02014 


0221 


CO 





01753 




DVP 


TIME1-2 


02015 


-0600 


00 





0203 3 




STQ 


TIME5 


02016 


00 74 


CO 


4 


04653 




TSX 


$DEC0N,4 


02017 


0602 


CO 





02045 




SLW 


TIMQT4 


02020 


500 


CO 





02033 




CLA 


TIMES 


02021 


0074 


00 


4 


04653 




TSX 


$DECCN,4 


02022 


0602 


CO 


C 


02043 




SLW 


TIM0T3 


0202 3 


0074 


CO 


4 


01527 


TIMPRT 


TSX 


OUTPUT, 4 


02024 


OOOOO 





00365 






BCDOUT 


02025 


00013 





02O34 






TIMOUT,, 11 


02026 


0754 


CO 


G 


OOOOO 




PXA 


0,0 


BINARY CARD NO. 


LISP004 5 








02027 


774 


00 


4 


OOOOO 


TIMSAV 


AXT 


0,4 


0203C 


0020 


CO 


4 


00001 




TRA 


1,4 


02031 


00000 





OOOOO 


TIME2 






02032 


oooco 





OOOOO 


TIME3 


PZE 




02033 


cooco 





COOQO 


TIME5 






02034 


-20 606 0606 060 


TIMOUT 


OCT 


6C6060606060 


02035 


-2G606G60606G 




OCT 


606060606060 


02036 


OOOCO 





OOOOO 


TIM0T1 






02037 


604431457360 




8CI 


1, MIN, 


02 04 C 


COO 00 





OOOOO 


TIM0T2 






02041 


6 0446 2 606060 




HCI 


1, MS 


02042 


-20606 0606060 




OCT 


6C6060606C60 


02043 


COOCO 





OOOOO 


TIM0T3 






02044 


604431457360 




BCI 


It MIN, 


02045 


00000 





OOOOO 


TIM0T4 






02046 


604462606060 


* 


BCI 


1, MS 



LS011110 
LS011120 
LS011130 
LS011140 
LS011150 
LS011160 
LS011170 
LS011180 
LS011190 
LS011200 



LS011210 
LS011220 
LS011230 
LS011240 
LS011250 
LS011260 
LS0U270 
LS011280 
LS011290 
LS011300 
LS011310 
LS011320 
L SO 11 330 
LS011340 
LS011350 
LS011360 
LS011370 
LS011380 
LS011390 
LS011400 
LS011410 
LS011420 



LS011430 
LS011440 
LS011450 
LS011460 
LS011470 
LS011480 
LS011490 
LS011500 
LS011510 
LS011520 
LS011530 
LS011540 
LS011550 
L SOI 1560 
LS011570 
LS011580 
LS011590 
LS011600 
LS011610 
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02047 0634 CO 4 02070 



02O5C C634 00 

02051 0634 CO 

02052 0100 00 

02053 -0734 CO 

02054 C774 CO 



2 02071 
1 02072 

020 70 
4 00000 

1 CO 001 



* 
» 



* 
ft 



HEAD W 

THE FOLLOWING FUNCTIONS {TAPE, REWIND, MPRINT, MREAD, 
SPACE, AND EJECT) ARE DEDICATED THE THE PHYSICIST 

ANTHONY HEARN, 
WHOSE COGGED PERSERVERANCE CAUSED THEM TO BE WRITTEN 
(BY SOMEONE ELSE) 



TAPES ALLOWS USER TO DESIGNATE SCRATCH TAPES. 
LIST OF OCTAL NUMBERS SPECIFYING TAPE UNIT 

EG, A3 — 1203Q 



ARGUMENT IS A 



* 
TAPES 



SXA 
SXA 
SXA 
TZE 
PDX 
AXT 



TAPR, 4 

TAPR+1,2 

TAPR+2,1 

TAPR 

0,4 

lil 



LS01 
LSOl 
LS01 
LSOl 
LSOl 
LSOl 
LSOl 
LSOl 
LSOl 
LSOl 
LSOl 
LSOl 
LSOl 
LSOl 
LSOl 
LSOl 
LSOl 
LSOl 



1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 



BINARY CA 
02055 
02G56 
02057 
02060 
02061 
02062 
02063 
02064 
02065 
02066 
02067 



RD NO. 

C 5 CO 
-C7 34 

0734 

5 GO 
-0734 

5 00 
0621 

-3 COOC 

1 GOOD 
3 0001 
CO 20 



ISPG046 
4 OOOQO 
00000 
CO 000 
OOOQO 
00000 
OOOQO 



TAP1 



4 
2 
2 
2 
2 











1 

2 i 02070 
C 02055 



1 02244 



02070 
02066 



02070 0774 CO 4 00000 

02071 0774 GO 2 OOOQO 

02072 0774 00 1 00000 

02073 0754 CO OOOQO 

02074 CO 20 CO 4 00001 



02075 06 34 CO 

02076 -0734 CO 

02077 0500 CO 
02 IOC -0 734 CO 

02101 C500 GO 

02102 0734 00 4 OOOQO 



4 02107 
4 COOOO 
4 OOOQO 
■4 OOOQO 
4 COOOO 



* 
TAPR 



CLA 
PDX 
PAX 
CLA 
PDX 
CLA 
STA 
TXL 
TXI 
TXH 
TRA 

AXT 
AXT 
AXT 
PXA 
TRA 



0,4 

0,4 

0,2 

0,2 

0,2 

G,2 

TTAB+1,1 

TAPR, 4,0 

»+ 1,1,1 

TAPR, 1,10 

TAP1 

0,4 
0,2 
0,1 
0,0 
1,4 



* 
# 
* 
* 

REW 



REWIND(X) REWINDS 
TAPE UNI .... NX 

SXA REWR,4 
PDX 0,4 
CLA 0,4 
PDX 0,4 
CLA 0,4 
PAX 0,4 



TAPE UNIT X, AS 
...)) STATEMENT 



SPECIFIED IN 



LS011800 
LS011810 
LS011820 
LS0U830 
LS011840 
LS011850 
LSOl 1860 
LS011870 
LS011880 
LS0U890 
L SOU 900 
LS011910 
LSOl 1920 
LS011930 
LSOl 1940 
LS011950 
LS011960 
LS011970 
LS011980 
LS011990 
LS012000 
LS012010 
LS012020 
LS012030 
LS012040 
LS012050 
LS012060 



BINARY CARD NO. LISPG047 



02103 


3 00012 


4 


02111 


02104 


-3 COOCO 


4 


02111 


02105 


0522 CO 


4 


02244 


02106 


0754 00 





OOOQO 


02107 


774 00 


4 


OGOOG 


02 11C 


0020 CO 


4 


00001 



REWR 



TXH REWER,4,1G 
JXL REWER,4,0 
XEC TTAB+1,4 
PXA 0,0 
AXT 0,4 
TRA 1,4 



LS012070 
LS012080 
LS012090 
LS012100 
LS012110 
LS012120 
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02111 
02112 
02113 
02114 

02115 
02116 
02117 
0212 
02121 
02122 
02123 
02124 
02125 



C074 CO 4 01527 

C COOOO 00365 

000 11 02115 

0020 GO 02106 



GC632I 
2 3214 3 
515146 
4 C 6051 
45246C 
4 5466G 
236463 
6 606C 
6 C 6060 



472560 
436025 
51604C 
256631 

404060 
256725 

31*645 

606 060 
606060 



02126 
0212 7 
02130 

BINARY CA 
02131 
02132 
02133 
02134 
02135 
02136 
02137 
0214C 
02141 
02142 
02143 
02144 
02145 
02146 



0634 
•0 734 

G5G0 



CO 
GO 

CO 



4 02144 
4 COO 00 
4 00000 



RD NO. 
-0734 

0500 
-C765 
-0 7 54 
-0 763 

734 
-3 GOOCO 

3 00012 

5 00 CO 

0621 

0764 

0774 
-0754 

GG20 



L I SP 



GO 
CO 

GO 
CO 
CO 

CO 



CO 
CO 
CO 
CO 
CO 



004 8 
00000 

ooooo 

00004 

ooooo 

00004 

ooooo 

02144 
02144 
02244 
02143 
02201 
OOOOO 
OOOOO 
0000,1 



02147 
02150 
02151 
02152 
02153 

02154 
02155 



04CO 
0621 
0400 
0621 
0020 



CO 
CO 
CO 
00 
GO 



C2154 
02167 
02155 
02205 
02165 



GOOCO 00 364 
OOOOO 05553 



REWER 



* 

REWP 



* 
BACKSP 



BAKSP1 



* 
* 
* 

* 
MPRT 



TSX OUTPUT, 4 

BCOOUT 

REWP, ,9 
TRA REWR-1 

BCI 9,0TAPE CALL ERROR — REWIND — NO EXECUTION 



BACKSPACE <N) BACKSPACES SCRATCH TAPE N ONE RECORD 

SXA BAKSP1,4 
PDX 0,4 
CLA 0,4 



PDX 0,4 

CLA 0,4 

LGR 4 

ZAC 

LGL 4 

PAX 0,4 

TXL BAKSPU4,0 

TXH BAKSP1,4,10 

CLA TTAB+1,4 

STA *+l 

OSRB 1 

AXT 0,4 

ZAC 

TRA 1,4 



MPRINTtX S) PRINTS 
ITS VALUE IS S. 

MREADJX) READS 
ITS VALUE IS 



THE S-EXPRESSIGN 6 QM TAPE UNIT X. 



AN S-EXPRESSIGN 
THE LIST READ. 



FROM TAPE UNIT X.: 



NPRT1 
MPRJ2 



ADD MPRT1 
STA MUN 
ADD NPRT2 
STA IOC 
TRA MIO 

PZE SYSPPT 

PZE $PUNCH-SYSPPT 



LS012130 
LS012140 
LS012150 
LS012160 
LS012170 
LS012180 
LS012190 



LS012200 
LS012210 
LS012220 
LS012230 
LS012240 
LS012250 
LS012260 



LS012270 
LS012280 
LS012290 
LS012300 
LS012310 
LS012320 
LS012330 
LS012340 
LSO 12350 
L SO 12360 
LS012370 
LS012380 
LSO 12390 
LS012400 
LS012410 
LS012420 
LS012430 
LS012440 
LS012450 
LS012460 
LS012470 
LS012480 
LS012490 
LS012500 
LS012510 
LS01252O 
LS012530 
LS012540 
LS012550 
LS012560 
LS012570 



mum 



tmm 



MMMMMH 



WW 
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02156 0400 CO 02163 MRD 



ADD MRD1 



LS012580 



BINARY 
02 
02 
02 
02 

02 
02 

02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 



CARD NO. 
157 0621 

160 0400 

161 0621 

162 0020 



163 

164 

165 

16 6 
167 
17C 
171 
172 
173 
174 
175 
176 
177 
200 
201 
202 
203 
204 








000 
000 



LISPO 

CO 

00 

00 

GO 

GO 

CC 



BINARY CAR 
02205 
02206 
02207 
0221C 
02211 

02212 
02213 
02214 
02215 
02216 

02217 
02 220 
02221 
02222 
02223 
02224 
02225 
02226 
02227 
02 2 30 
022 31 



0634 

-0734 
500 
G601 
0500 

-0 734 
500 
7 34 
3 000 

-3 GOO 
500 
0621 

-0320 
767 
0622 
131 

D NO. 
00 74 
5 60 

-C600 
0774 
0020 

00 74 
000 
000 
0500 
0020 

-t-oeooo 
coo 

00632 
2 3214 

5 1 514 
40606 
60316 
40606 

6 0016 
2 4 606 
6 0606 



CO 4 
00 4 
CC 

CO 

CC 

CO 



CO 
00 
12 
CO 
CC 



60 
00 
GO 
60 
CO 



049 

02167 

02164 

02205 

02165 

00366 
06172 

02210 
COOOO 
COOOO 
02220 
00000 
00000 
OOOQO 
COOOO 
02212 
02212 
02244 
02167 
02217 
000 11 
02167 
OOOQO 



LISP0C50 



CO 
CO 
60 
CO 
CO 

CO 
CO 

11 

CO 
CO 



oooao 

02220 
02167 
00000 

00001 

01527 
00365 
02221 
02243 
02200 



CG07CQ0 

GO 00000 

1472560 

3436025 

6 516040 

3 214 725 

1466040 

4453163 

C6546225 

C606O6G 

C606060 



MRD1 
MRD 2 

MIO 

MUN 



MERR 



IOC 

MIOR 

* 
MIOER 



* 

MCOMP 

MI01 

MIQPT 



STA MUN 
ADD MRD2 
STA IOC 
TRA MIO 

PZE SYSPIT 

PZE $READ-SYSPIT 

SXA MIOR, 4 

PCX 0,4 

CLA 

STO MIDI 

CLA 0,4 

PDX 0,4 

CLA 0,4 

PAX 0,4 

TXH MI0ER,4,10 

TXL MI0ER,4,0 

CLA TTAB+1,4 

STA* MUN 

ANA MCOMP 

ALS 9 

STD* HUN 

XCA 



TSX 0,4 

LOQ M101 
STQ* MUN 
AXT 0,4 
TRA 1,4 



TSX 



CLA 
TRA 



OUTPUT, 4 
BCDOUT 
MI OPT,, 9 
TTAB 

MERR 



OCT 000000007000 

BCI 9.0TAPE CALL ERROR — TAPE I/O ~* UNIT 1 USED 



LS012590 
LS012600 
LS012610 
LS012620 
LS012630 
LS012640 
LS012650 
LS012660 
LS012670 
LS012680 
LS012690 
LS012700 
LS012710 
LS012720 
LS012730 
LS012740 
LS012750 
LS012760 
LS012770 
LS012780 
LS012790 
LS012800 
LS012810 
LS012820 



LS012830 
LS012840 
LS012850 
LS012860 
LS012870 
LS012880 
LS012890 
LS012900 
LS012910 
LS012920 
LS012930 
LS012940 
LS012950 
LS012960 
LS012970 



02232 772 GO 02206 



REW8 6 



LS012980 
LS012990 
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BINARY CARD NC. 

02233 0772 

02234 0772 

02235 0772 

02236 0772 

02237 0772 
G224C 0772 

02241 0772 

02242 0772 

02243 0772 



LISP0G51 
GO 02205 



02 244 01C0 

02245 -0625 

02246 0020 

02247 0600 
02250 CC20 



GO 
CO 
CO 
CO 
CO 
CO 
CO 
00 








€ 







02204 
02203 
02202 
01210 
01207 
01206 
01205 
01204 



CO 
CO 
CO 
CO 
CO 



02247 
02251 
4 00001 
C 02251 
4 CC0G1 



02251 OOOCO CCOOO 

02252 +007777777777 

02253 -0500 60 4 00002 

02254 -0320 CO 02252 

02255 0602 60 4 00002 

02256 C020 CO 01532 



02257 
02260 



TTAB 
a 

* SPACE 



KEWB 
REWB 
REWB 
REWB 
REWA 
REWA 
REWA 
REWA 
REWA 



* 
* 

SPACE 



CONTROLS PRINTED OUTPUT SPACING 

— SINGLE-SPACE 

— DOUBLE-SPACE 



SPACEtNIL) 
SPACE(*T*3 



SPCON 
SPAC2 

SPAC1 



TZE 
STL 
TRA 
STZ 
TRA 

PZE 
OCT 



* + 3 

SPCON 

1,4 

SPCON 

1,4 



7777777777 



634 

0074 



CO 

CO 



4 02264 
4 01527 



CAL» 2,4 
ANA SPAC2 
SLW* 2,4 
TRA C$SPAC3 

* EJECT EJECTS PAGE 
tt 

EJECT 



SXA 
TSX 



EJR,4 
OUTPUT, 4 



LS013000 
LS013010 
LS013020 
LS013030 
L SO 13040 
LS013050 
LS013060 
LS013070 
LS013080 
LS013090 
LS013100 
LS013110 
LS013120 
LS013130 
LS013140 
LS013150 
LS013160 
LS013170 
LS013180 
LS013190 
LS013200 
LS013210 
LS013220 
LS013230 
L SO 13240 
LS013250 
LS013260 
LS013270 
LS013280 
LS013290 
L SO 13300 
LS013310 



BINARY CARD NO. LISP0052 



02261 
02262 
02 26 3 
02264 
02265 



C OOOCO 
C C00C1 
0754 CO 
0774 CO 
0020 CO 



C 0C365 
02266 
000 00 
4 OOOQO 
4 00O01 



02266 01606C6G6C6C 

02267 6C606C606060 
0227C 60606C606060 
02271 6C606C60606G 



EJR 
EJPRT 



* 

* 

* 
* 



PXA 
AXT 
TRA 

BCI 



BCDOOT 
EJPRT, ,1 
C,0 
0,4 
1,4 

4,1 



HEAD C 



THE FIRST CALL OF BACKTRACE CAUSES THE BACKTRACE PRINTOUT TO 8E 
SUSPENDED. SUBSEQUENT CALLS OF BACKTRACE NIL RETURN THE 
BACKTRACE FOR THE MOST RECENT ERROR. BACKTRACE X f FOR X NOT 
NLL,. RESTORES BACKTRACE PRINTOUT. 



LS0I3320 
LS013330 
LS013340 
LS013350 
LS013360 
LS013370 
LS013380 



LS013390 
LS013400 
LS013410 
LS013420 
LS013430 
L SO 13440 
LS013450 
LS013460 
LS013470 
LS013480 



^mmm 
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02272 
02273 
02274 
02275 
02276 
02277 

0230C 
02 301 

02 30 2 

02 303 
02 304 



0230 5 
02306 



0634 
5 20 
0020 
0625 
774 
020 



CO 
CO 
CO 
CO 
CO 
CO 



-0100 CO 
05C0 CO 
002O CO 



0600 
0020 



00 
CO 



02276 
0242<* 
02300 
02424 
CCOQO 
COO 01 

02 303 
02425 
02276 

02424 

02276 



EACTRA 



BACTR1 



BACTR2 



BACTR3 



SXA 
ZET 
TRA 
STL 

AXT 
TRA 

TNZ 
CLA 
TRA 

STZ 

TRA 



BACTR1,4 

BACKT2 

BACTR2 

BACKT2 

**, 4 

1,4 

BACTR3 
BACKTR 
BACTR1 

BACKT2 
BACTR1 



420 CO C 000 Q 7 
0020 CO 4 00001 



PAUSEF HPR 7 

TRA 1,4 



LS013490 
LS013500 
LS013510 
LS013520 
LS013530 
LS013540 
LS013550 
LS013560 
LS013570 
LS013580 
LS013590 
LS013600 
LS013610 
LS013620 
LS013630 
LS013640 
LSO 13650 
L SO 13660 



inn 



mmm 
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TTL 



BINARY 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 



CARD N 



307 
310 
311 
312 
313 
314 
315 
316 
317 
320 
321 
322 
32 3 
324 

32 5 
326 
327 
330 

33 1 
332 
333 
334 






c 


3 
5 

-C5 
C5 

-06 
06 
06 

-06 
04 
00 
06 
06 
05 
6 
05 
00 
00 




D. LI 
GOO CO 
COOOG 
COOCC 
COOOO 
COO CO 
22 CC 
20 GO 
22 CC 

00 CO 
04 CC 
34 CC 
34 CO 
41 CC 
55 CO 
04 CC 

01 CO 

00 CO 

01 CC 
20 CC 
20 CO 
74 CO 
000 CC 



SP0C53 
00000 
OOOQO 
COOQO 
OOOOO 
02314 
01714 
12655 
12656 
02310 
02 311 
02312 
02312 
11254 
000010 
11254 
02422 
00001 
02431 
CG615 
02411 
01527 
C0365 













1 

2 




4 



4 




BINARY C 
0233 
2 33 
0233 
0234 
02 34 
02 34 
0234 
02 34 
0234 
0234 
0234 
0235 
0235 
0235 
0235 
0235 
0235 
0235 
0235 
02 36 
0236 
0236 



flRD NO. LI 
000 05 
20 CC 





-05 
CC 
00 
05 
00 
C 

5 
GO 

-0 6 
5 
05 

-0 7 
06 
GO 
00 
00 
05 

-05 
1 

-G6 

-0 5 



20 
74 
00 
74 



CO 
CO 
CO 
CO 



C75C6 
20 CO 



20 
25 
00 
20 
54 
CO 
74 
54 
20 
60 
34 



CO 
CC 
CO 
CO 
00 
CO 
CO 
CO 
CO 
CO 
CO 



77777 
34 00 
34 00 



SP0054 
02426 
C 15702 
02 344 
4 0602 6 
02343 
4 17201 
COOQO 
02421 
02415 
02421 
02422 
02423 
OOOQO 
0242 3 
4 05342 
CC0200 
02407 
00424 
4 12661 
4 02361 
4 02363 
4 03110 



« 

* ERROR 

* 



ERAC 

ERMQ 
ERIND 
ERX 
ERROR 



ERROR PROCESSING 

PROCESSES ALL LISP ERRORS. NORMALLY GIVES ERROR NUMBER, 
ERROR LOCATION, LISP PRINT OF AC AND BACK TRACE OFALL 
FUNCTIONS ENTERED ON PUSH DOWN LIST.: 



ERT1 



TXH 
XEC 
NZT 
XEC 
STQ 
ST I 
SXA 
SXD 
LCI 
SIR 
STI 
STQ 
CLA 
STO 
ZET 
TRA 
TSX 



NZT 
TRA 
TSX 
CLA 
TSX 

ZET 

TRA 
STL 
CLA 
ZET 
ZAC 
STZ 
TSX 
RFT 
TRA 
LDQ 
LXD 
TXI 
SXD 
LXD 



LS013670 
L SO 13680 
LS013690 
LS0L3700 
LS013710 
LS013720 



* + 1 , ,. * * 

$SLN1 

EKNULL 

EREXIT 

ERMQ 

ERIND 

ERX,1 

ERX, 2 

SYSIND 

ERRORI 

SYSIND 

ERT 

1,4 

ERM 

$TSIND 

TSER 

OUTPUT, 4 

BCDCUT 



£RC,,5 
TCNTMA 
ERT1 

TERPRI,4 
* + 2 

TRCPRT,4 
0,,-$)H60 

BACACT 

BACER 

BACACT 

ERT 
BACKT1 

BACKT1 

SPRINT, 4 
NOBACT 
BACD 
$ZERO 
NUBPDL,4 
*+l,4,-l 
BEX, 4 
SCPPI ,4 



PLACE TO STORE MACHINE REGISTERS 



INDEX WvINDiBX 2 

INDEX 4 

ERROR VISIBLE ON CONSOLE 

SEE IF ERROR PROGRAM IS TO BE EXEC 

NORMAL SETTING GOES TO EVALQUOTE 

SAVE MACHINE REGISTERS 



PICK UP SYSTEM INDICATORS 

SET ERROR HAS OCURRED INDICATOR 

UPDATE SYSTEM INDICATOR CELLS 

AC TO BE PRINTED 

ERROR NUMBER TO AC 

PUT IN ERROR MESSAGE 

TS 

YES, BE BRIEF 

WRITE OUT ERROR MESSAGE 



SKIP IF BACKTRACE IS NOT ACTIVE 
GO TO SPECIAL ROUTINE 
MAKE BACK TRACE ROUTINE ACTIVE 
PICK UP AC ON ENTRANCE 



PRINT IT IN LISP 

TEST FOR NO BACK TRACE 

GO TO EXIT 

ZERO THE ERROR LIST 

BEGINNING OF PUSH DOWN LIST 

PUSH UP BY -1 

SET UP AL1 DONE TEST INSTRUCTION 

PICK UP CURRENT PDL COUNTER 



LS013730 
LS013740 
LSO 13750 
LSO 13760 
LSO 13770 
LS013780 
UTEDLS013790 
LS013800 
LS013810 
LS013820 
LS013830 
LS013840 
LS013850 
LS013860 
LS013870 
LS013880 
LS013890 
LS013900 
LS013910 
LS013920 
LS013930 
LSO 13940 



LS013950 
LS013960 
LSO 13970 
LS013980 
LS013990 
LS014000 
LS014010 
LS014020 
LS014030 
LS014040 
LSO 14050 
LSO 14060 
LS014070 
LS014080 
LS014090 
LS014100 
LS014110 
LS014120 
LS014130 
LS014140 
LS014150 
LS014160 
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BINARY CARD NO. 


LISP0055 


02363 


3 COOCO 


4 


02403 


02364 


-0 500 


CO 


4 


77777 


02 36 5 


-0320 


CO 





00515 


02366 


0322 


CO 





00505 


02367 


1C0 


CO 


C 


02372 


02 370 


0074 


CO 


4 


03117 


02 371 


0020 


CO 


C 


023 73 


02372 


74 


CO 


4 


17712 


02373 


-0534 


CO 


4 


03110 


02374 


0500 


CO 


4 


00000 


02375 


0734 


00 


4 


00000 


02376 


-0754 


00 


A 


OOOOO 


02377 


CG74 


00 


4 


04471 


0240G 


0131 


CO 


C 


CCCOO 


02A0 1 


-0534 


CO 


4 


03110 


02402 


020 


CO 


C 


C2 363 


02403 


0131 


CO 





OOOQO 


02404 


601 


CO 





02425 


0240 5 


-0 5 20 


CO 





02424 


02406 


0074 


CO 


4 


05342 


02407 


600 


CO 





02421 


02410 


0522 


CO 





12656 



BEX 



BINARY CARD NG. LISP0056 

02411 0074 CO 4 01527 

02412 CCOCC C 00365 

02413 C CC0C4 02426 

02414 0020 CO 02344 



02415 
02416 
02417 
02 420 

02421 
02422 
02423 
02424 
02425 
02426 

0242 7 
02430 
02431 
02432 

0243 3 
02434 
02435 
02436 



0074 
000 

C 000 
00 20 



CO 
CC 
C7 
CC 



c 








000 
000 
000 
COO 
GOO 
545 
51514 
64442 
COO 
6 0605 
00 545 
2 2 466 
5 1514 
2 5514 



CO 
CC 
CO 
GO 
CO 



4 01527 
00365 
C 02433 
02407 
000200 
OOOOO 
OOOQO 
OOOOO 
COOOO 
OOOOO 





C 





4546025 
6 516 045 
2255160 
CO COOOO 
4545454 
4546021 
52 56025 
6 516063 
4 314 521 



BACTD 



BACD 



NOBACT 
BACACT 

ERT 
BACKT1 
BACKT2 
BACKTR 

ERO 



ERH 



BACE 



TXH 
CAL 
ANA 
ERA 
TZE 
TSX 
TRA 
TSX 
LXD 
CLA 
PAX 
PXD 
TSX 
XCA 
LXD 
TRA 
XCA 
STO 
NZT 
TSX 
STZ 
XEC 



TSER TSX 



TRA 



BACER TSX 



TRA 
BOOL 



PZE 
PZE 
PZE 
BCI 



8CI 
BCI 



BACTD, 4,** 
-1,4 
$PMASK 
$GP5 

* + 3 

ON SAVE ,4 

* + 2 

C$UNWND,4 
*CPPI,4 
0,4 

0,4 
0,4 
$CCNS,4 

$CPPI ,4 

BEX 

BACKTR 
BACKT2 

$PRINT,4 

BACACT 

EREXIT 



OUTPUT, 4 
BCDOOT 
ERO, ,4 
ERT1 

OUTPUT, 4 
BCDOUT 
BACE,, 7 

BACD 
200 



GO IF ALL UNSAVED 

EITHER UNSAVE OR UNWND 

DEPENDING ON COMPILED OR 

SYSTEM SUBROUTINE PUT IT THERE 

TEST 'IS FOR STR OP 

IN LAST WORD OF BLOCK FROM COMPILER 



BEGINNING OF BLOCK JUST UNSAVED 

LAST IR 4 WORD 

FUNCTION ATOMIC SYMBOL 

PUT IN DECREMENT 

ADD TO ER*OR LIST 

ANSWER TO MQ 

PUSH DOWN INDICTOR 

GO BACK FOR NEXT 

LIST TO AC 



PRINT THE ERROR LIST 

DE-ACTIVATE THE BACK TRACE ROUTINE 

NORMAL SETTING GOES TO EVALQUOTE 



TIME STEALING, BE BRIEF 



WRITE OUT MESSAGE THAT BACK TRACE 
CAUSED ANOTHER ERROR 

RESET AND RETURN 
NO BACK TRACE INDICATOR 
NON-ZERO MEANS BACK TRACE ACTIVE 
TEMPORARY STORAGE FOR AC 
NOISE MEANS NIL AC PRINTOUT 
NOISE MEANS NO BACKTRACE PRINT 
STORE BACKTRACE 



3,0*** ERROR NUMBER 



ERROR NUMBER IN BCD GOES HERE 
l f **** 

7,0*** ABOVE ERROR TERMINATED BACK-TRACE *** 



LS014170 
LS014180 
LS014190 
LS014200 
L SO 14210 
L SO 14220 
LS014230 
LS014240 
LS014250 
LS014260 
LS014270 
LS014280 
LS014290 
L SO 14300 
LS014310 
LS014320 
LS014330 
LS014340 
LS014350 
LS014360 
LS014370 
LS014380 



LS014390 
LS014400 
LS014410 
LS014420 
LS014430 
L SO 14440 
L SO 14450 
LS014460 
L SO 14470 
L SO 14480 
L SO 14490 
LS014500 
LS014510 
LS014520 
LS014530 
LS014540 



LS014550 
L SO 14560 
LS014570 



BINARY CARD NC. LISP 0057 
02437 632524602221 
0244C 23424C635121 
02441 2 3 256C545454 



LS014580 



IMRMIIINIMIRMM 



mm 
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* FLAPTR AND 

* 



02442 
02443 
02444 
0244 5 
02446 
02447 
02450 
02 451 



520 

CC20 
-0634 
-0 535 

634 
-0634 
-0625 

CO 20 



CO 
CO 
CO 
CO 
CO 
CO 
00 
CO 



02452 
00001 
02 313 
02313 
02473 
02473 
02541 
02476 



02453 
02454 
0245 5 
02456 
02457 
02460 
02461 
02462 
02463 
02464 

BINARY CAR 
02465 
02466 
02467 
02470 
02471 
02472 
02473 
02474 
02475 
02 47 6 
02477 
02500 
02501 
02502 
02503 
02504 
02505 
02 50 6 
02507 
02510 
02 511 
02512 



601 CO 77 660 

C5C0 CO COOOO 

0621 CO 02473 

622 CO 02473 

C500 CO 00200 

0601 CO COOOO 

500 CO 02473 

0771 CO 00001 

-0320 CO 00477 

-0 100 CO 02471 



L I 
CO 
CO 
GO 
60 
CO 
CO 



D NO. 

C754 

0131 

0754 

020 

0500 

520 
-3 COOOO 

0600 CO 
-0634 

0131 

0074 

6 02 

0074 

0602 

0560 
-07 73 

0074 
-0501 

602 
-0 774 

520 
-0774 



CO 
00 
CO 

cc 

CO 

CO 
CO 
GO 
CO 
00 
CO 
CO 

cc 

CO 



SP0G58 
COOOO 
COOOO 
0000,0 
02473 
77 660 
02452 
COOOO 
02541 
02313 
00000 
11731 
02533 
11731 
02534 
02473 
00022 
11731 
00506 
02530 
02535 
02541 
02537 





G 

C 


4 

4 

4 



c 

4 



4 

4 



DCT 



ZfcT 
TRA 
SXD 
LDC 
SXA 
SXD 
STL 
TRA 



OCT 

DIVID 
BOTH 

FPTGN 

1.4 

$ERRO 

$ERRO 

FLXT, 

FLXT, 

FPTDV 

FPTA 



GIVE ERROR DIAGNOSTICS FOR FLOATING POINT T 
E CHECK INCLUDING LOCATION AND CONTENTS OF AC 
MY BE IGNORED BY MAKING CELL FPTGNR NON-ZERO. 



RAP 



R 

R,4 
R,4 
4 





02452 C OOOCO 00000 FPTGNR 



FLAPTR STO 
CLA 
STA 
STD 

CLA 
STO 

CLA FL 
ARS 1 

ANA $Q 
TNZ * + 



COMMOf 
C 

FLXT 
FLXT 
FLAPC- 

XT 

02 
5 



PXA 0,0 

XCA 

PXA 0,0 

TRA* FLXT 

CLA COMMON 

ZET FPTGNR 

FLXT TXL **,,** 

STZ FPTDV 

SXD $ERR0R,4 

FPTA XCA 

TSX 0CTALP,4 

SLW FPTAC 

TSX 0CTALP,4 

SLW FPTAD 

LDQ FLXT 

RQL 18 

TSX 0CTALP,4 

ORA OBLANK 

SLW FPTLO 

AXC FPTF,4 

ZET FPTDV 

AXC FPTD,4 



TEST FOR IGNORE ERROR FLAG 

RETURN 

SAVE € R 4 

COMPLEMENT LOCATION OF ENTRANCE 

SET TRAP AGGRESS 

ZERO THE DECREMENT 

SET DIVIDE CHECK FLAG 

DO FLOATING POINT TRAP ERROR 

TEST CELL IS NON-ZERO TO IGNORE TRAPS 

SAVE AC 

GET TRAP LOCATION 

SET EXT CELL 

NORMAL CONTENTS OF ZERO 



RESTORE AC 

TEST FOR IGNORE TRAP 

IMMEDIATE EXIT INSTRUCTION 

INDICATE FLAPPING TRAP 

SAVE LINK IR 

AC TO MQ 

CONVERT TO OCTAL 

STORE OCTAL FOR LEFT HALF OF AC 

CONVERT TO OCTAL 

STORE AWAY IN ERROR MESSAGE 

GET TRAP CELL CONTENTS 

POSITION IN LEFT HALF OF MQ 

CONVERT T® OCTAL 

MAKE LAEOING ZERO A BLANK 

SAVE OCTAL FOR LOCATION OF ERROR 

POINTER TO BEGINNING OF ERROR MESSAGE 

TEST FOR DIVLDE CHECK ERROR 

DIVIDE CHECK MESSAGE 



ANDLS014590 
LSO 14600 
LS014610 
LS014620 
LSO 14630 
LS014640 
LSO 14650 
LS014660 
LS014670 
LS014680 
L SOI 4690 
LS014700 
LS014710 
LS014720 
LSO 14730 
LS014740 
LS014750 
LS014760 
LS014770 
LS014780 
LS014790 
LS014800 
LS014810 
LS014820 
LS014830 



LS014840 
LS014850 
LS014860 
LS014870 
LS014880 
LS014890 
LS014900 
LS014910 
LS014920 
LSO 14930 
LSO 14940 
LS014950 
LS014960 
LS014970 
LS014980 
LS014990 
LS015000 
LS015010 
LS015020 
LS015030 
LS015040 
LS015050 



BINARY CARD NO. 

02513 500 

02514 C601 

02515 0500 

02516 0601 



LISP0059 



CO 
CO 
CO 

CO 



4 GO 000 
02 525 
4 0000 i 
02 526 



CLA 
STO 
CLA 
STO 



0,4 
FPTTY 
1,4 
FPTTY+1 



PICK UP PROPER MESSAGE 
STORE IN MESSAGE 



LS015060 
LS015070 
LS015080 
LS015090 
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02517 


0074 GO 4 01527 




1SX 


OUTPUT, 4 


02520 


COOCC 00 365 






BCDOUT 


02521 


C COO 10 02525 






FPTTY, ,8 


02522 


-0754 00 COOOO 




PXD 


0,0 


02523 


0074 CO 4 02314 




TSX 


$ERR0R+1,4 


02524 


■5 A 27606 00 154 




3CI 


1,*G 1* 


0252 5 


60606C6O6G60 


FPTTY 


BCI 


3, 


02526 


6C606C606060 








02527 


2163333 33333 








02530 


OOOCO OOOOO 


FPTLO 






02531 


60663163 3060 




BCI 


2, WITH AC = 


02532 


21236013*060 








0253 3 


C COOOO OOOOO 


FPTAC 






02534 


C OOOCO OOOQO 


FPTAD 






02535 


CC2643214760 


FPTF 


BCI 


2,0FLAP TRAP 


02536 


6 351214 76060 








0253 7 


CO 243 16 53 124 


FPTD 


BCI 


2,0DIVIDE CHK 


0254C 


256023304260 









WRITE ERROR MESSAGE 



CLAER AC 

GO TO ERROR PROGRAM 

FLOATING POINT TRAP 



OR DCT 



AT* ... 



LOCATION OF ERROR 



OCTAL LEFT HALF OF AC 
OCTAL RIGHT HALF OF AC 



* THIS ROUTINE USES $£RROR, $ERR0RP1 { AND FPTGNR 



BINARY CARD NO. LISP0060 

02541 C COOOO COOOO 



FPTDV 













* 

* STRPNT 


A DEBUGG 












* A LIST 


OR DUMPS 


02542 


C520 


CO 


■o 


02625 


STRPNT ZET 


STRT 


02543 


0020 


CO 





02613 


TRA 


STREX 


02544 


C6 34 


00 


4 


026 1 1 


SXA 


STRX,4 


2 54 5 


C601 


CO 





02622 


STO 


STRA 


2546 


-C6C0 


CO 





02623 


STQ 


STRQ 


02547 


-0625 


CO 





02625 


STL 


STRT 


02550 


0560 


CC 


c 


OOOQO 


LDQ 





02551 


-C6C0 


CO 


c 


02626 


STQ 


STRXT 


02552 


-0773 


CO 





00022 


RQL 


18 


02553 


0074 


CO 


4 


11731 


TSX 


CCTALP,4 


02554 


-C5C1 


CC 





0C506 


ORA 


OBLANK 


02555 


602 


CC 


c 


02631 


SLW 


STRM 


02556 


C5C0 


CO 





00200 


CLA 


FLAPCZ 


02557 


C6G1 


CO 





COOOO 


STO 





02560 


0074 


CO 


4 


01527 


TSX 


OUTPUT, 4 


02561 


C OOOCO 





00365 




BCDOUT 


02562 


C 000C5 





02627 




STRN,,5 


02563 


C560 


CO 





02622 


STRO LOQ 


STRA 


02564 


C074 


CO 


4 


11731 


TSX 


0CTALP,4 


02565 


06C2 


CO 





02640 


SLW 


STRMA 


02566 


0074 


CO 


/, 


11731 


TSX 


0CTALP,4 


BINARY CARD NG. 


LISPG061 






02567 


0602 


CO 





02641 


SLW 


STRMB 


02570 


C560 


CC 





02611 


LOO 


STRX 


02571 


-0773 


CO 


c 


00025 


RQL 


21 


02572 


CO 74 


CC 


4 


11731 


TSX 


0CTALP.4 



DIVIDE CHECK INDICATOR CELL 

DEBUGGING AID WHICH PMNTS THE DECREMENT OF THE AC AS 
AND IR 4 IN OCTAL WHICH EVER IS APPROPRIATE- 
TEST IF ROUNTINE IS ACTIVE. 
IT IS THEREFORE EXIT 
NO, SAVE LINK IR 
SAVE AC 
SAVE MQ 

SET CELL TO INDAICTE ACTIVE 
PICK UP TRAP LOCATION 
SAVE CONTENTS 
ADDRESS PORTION TO LEFT HALF 



LEADING BLANK 

STORE TRAP ADDRESS IN OCATL 

RESTORE ORIGNAL CONTENTS OF 



OUTPUT BCD MESSAGE 

AC AT TIME OF TRAP 
CONVERT TO OCTAL 
STORE LEFT HALF IN OCTAL 
CONVERT TO OCTAL 



RIGHT HALF IN OCTAL 
PICK UP LINK IR 
SHIFT TO LEFT OF MQ 
CONVERT TO OCTAL 



OF MQ 



ZERO 



LS015100 
LS015110 
LS015120 
LS015130 
LS015140 
LS015150 
LS015160 



LS015170 
LS015180 

LS015190 
LS015200 
LS015210 

LS015220 

LS015230 
LS015240 



L SOI 5250 
LS015260 
LS015270 
LS015280 
LS015290 
LS015300 
LS0153I0 
LS015320 
LS015330 
LS015340 
LS015350 
LS015360 
LS015370 
LS015380 
LS015390 
LS015400 
LS015410 
LS015420 
LS015430 
L SO 15440 
LS015450 
L SO 15460 
LS015470 
LS015480 
LS015490 
LS015500 
LS015510 



LS015520 
LS015530 
LS015540 
LS015550 
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ERROR PROCESSING 








02573 


C771 CO 





00006 




ARS 


6 


MAKE A HOLE 


LS015560 


02574 


-0501 CC 


c 


00506 




ORA 


OBLANK 


MAKE LEADING ZERO A BLANK 


LS015570 


02 575 


C6C2 CO 





02644 




SI.W 


STRMC 


PUT IN MESSAGE 


LS015580 


02576 


C074 CC 


4 


01527 




TSX 


OUTPUT, 4 




LS015590 


02577 


000 CO 


c 


00365 






BCOOUT 


OUTPUT IN BCD 


LS015600 


0260G 


C 00011 





02634 






STRMD, ,9 




LS015610 


02601 


-0 500 CC 


C 


02622 




CAL 


STRA 


PICK UP AC 


LS015620 


02602 


-0734 CO 


4 


COOOO 




PDX 


C4 




LS015630 


0260 3 


-0320 CO 





00522 




ANA 


PTAMSK 


MASK OUT ONLY DECREMENT 


LS015640 


02604 


-0 100 CO 





02611 




TNZ 


STRF 


GO IF ANY THING LEFT 


LS015650 


02605 


-3 COCCG 


4 


02611 


STRTOP 


TXL 


STRF, 4,** 


-TFS-1 IF NOT IN LIST STRUCTURE 


LS015660 


02606 


3 00000 


4 


02611 


STRBTM 


TXH 


STRF,4,*» . 


-BRK GO TO EXIT IF NOT IN FREE ST0RAGLS015670 


02607 


-0754 CO 


4 


COOOO 




PXD 


0,4 


OTHERWISE 


LS015680 


0261C 


CG74 CO 


4 


C5342 




TSX 


$PRINT,4 


PRINT AS LISP LIST 


LS015690 


02611 








STRF 


BSS 







LS015700 


02611 


0774 CO 


4 


OOOOC 


STRX 


AXT 


«*,4 


DITTO LINK IR 


LS015710 


02612 


C6C0 CO 





02625 




STZ 


STRT 


INDICATE ROUTINE IS INACTIVE 


LS015720 


02613 


5 22 GO 





01713 


STREX 


XEC 


$SWT6 


SHOULD WE GO BACK TO OVERLORD 


LS015730 


02614 


0020 CO 





02616 




TRA 


* + 2 




LS015740 


RY CARD NO. LISP0062 












02615 


C020 CC 


c 


11140 




TRA 


OVRLRD 


FIND NEXT OVERLORD DIRECTION CARD 


LS015750 


02616 


-C754 CO 





GO 000 




PXO 


0,0 




LS015760 


02617 


-0634 CO 


4 


02313 




SXD 


$ERRGR,4 




LS015770 


0262C 


0074 CO 


4 


02 314 




TSX 


$ERR0R+1,4 




LS015780 


02621 


54266C6C0554 




BCI 


1,*F 5* 


STR TRAP ERROR 


LS015790 










* 








LS015800 










•» 








LS015810 


02622 


COO CO 





00000 


STRA 






AC STROAGE 


LS015820 


02623 


C 000 CO 





COOOO 


STRQ 






MQ 


LS015830 


02624 


-3 OOOCO 





COO GO 


STRD 


TXL 


•»«■ , f ** 


MASK FOR PREFIX 


LSO 15840 


02625 


C OOOCO 





00000 


STRT 






CELL 'INDICATES ACTIVE IF NON-ZERO 


LS015850 


02 62 6 


COO CO 


c 


COOOO 


STRXT 






STORAGE FOR CONTENTS OF ZERO 


LS015860 


02627 


006263516063 


STRN 


BCI 


2,0STR TRAP AT 




LS015870 


02630 


5 12147602163 












2631 


OOOCO 


c 


COOOO 


STRN 


PZE 




TRAP LOCATION IN OCTAL 


LS015880 


02632 


604623632143 




BCI 


2, OCTAL. 




LS015890 


02 63 3 


33606C606060 












02634 


004623632 143 


STRMD 


BC I 


4,G0CTAL CONTENTS 


OF AC 


LSO 15900 


02635 


602346456325 












0263 6 


4 5636 2 604626 












02637 


602123606060 












0264C 


COOOO 





COOOO 


STRNA 








LS015910 


02641 


COOOO 





COOOO 


STRMB 






OCTAL CONTENTS OF AC GO HERE 


LS015920 


02642 


602145246031 




BCI 


2, AND INDEX 4 




LS015930 



BINARY CARD NC. LISP0063 
0264 3 4 5 242 56760C4 
02644 GOOGO C OGOQG 



STRMC 



OCATL LINK IR CONTENTS GO HERE 



* THIS ROUTINE USES SPRINT, OUTPUT ,BCDOUT AND OBLANK 



* 



ERR0R1 USED BY APPLY HAS ONE ARGUMENT AND PRINTS IT USING 



LS015940 
LS015950 
LS015960 
LS015970 
LS015980 
LS015990 
LS016000 



MM 



MWMM 



MHMMP 
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02645 -06.34 CC 4 02313 

02646 0074 CC 4 02314 

02647 542160600154 



PRINT 

ERRUR1 SXD $ERRCR,4 

TSX $ERR0R+1,4 
BCI 1,*A 1* 



APPLIED FUNCTION CALLED ERROR 



LS016010 
LS016020 
LS016030 
LS016040 
LS016050 
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TTL 



02650 C560 CO G 03052 

02651 0100 CO C2653 

02652 0560 CO 03053 

02653 -0600 CO 03055 

02654 0600 CO 03073 

02655 -0625 CO « 03074 



02656 -C625 CO 

02657 C634 CO 
0266C 0020 CO 



03034 
4 03030 
02731 



02661 
02662 
02663 
02664 
02665 
02666 
02667 
02670 

BINARY CAR 
02671 
0267 2 
02673 
02674 
02675 
02676 
02677 
02 700 
02701 
02702 
02703 
02 70 4 
02705 
02706 
02707 



0634 

500 
0601 
04G0 
07 34 

1 7 7777 
-0 634 CO 

0400 CC 



CO 
CO 
CO 
CO 
CO 



NO. 

7 37 

-0 634 

-0634 

-0634 

€4 00 

0621 

04 02 

C737 

-C634 

-0634 

-0634 

500 

0402 

€621 

04 CO 



LISPO 
GO 4 



CC 
CO 
GO 
CO 



CO c 
CO 
CO 4 
CC 4 
GO 4 
CO 4 
CO 
CO 
CO 
CO c 



03030 
03064 
03065 
03066 
COOQO 
02667 
04577 
00425 

064 

CCOOG 

03110 

03203 

12661 

03067 

03511 

00443 

COOQO 

03204 

20040 

03111 

03055 

03071 

03060 

00425 



* SETUP 
* 



STORAGE CONTROL 

TAKES SIZE PARAMETERS AND SETS UP THE DEPENDENT CELLS 

MAINLY IN THE RECLAIMER 1GARBAGGE COLLECTOR) AND STRPNT 



HEAD 



* 

* RESETP ALTERNATE ENTRANCE TO SETUP TO CHANGE COMPOSITION OF 

* FREE STRORAGE SLIGHTLY. 



* 
* 

* 
* 
* 

* 



EXCISE 



* 
RESETP 



SETUP 



EXCISE (NIL) THROWS OUT ALL RPOGRAMS IN EXCISABLE SPACE. 

THIS IS INTENDED FOR USE BY THE COMPILER, BUT IT MAY BE USED IN 

OTHER WAYS AT THE USER-S RISK. 
THE SPACE THUS THROWN AWAY IS CONVERTED TO FREE STORAGE, BUT 

NG ATTEMPT IS MADE TO DISCONNECT THE NAMES OF THE 

PROGRAMS THUS THROWN OUT, SO ANY FURTHER USE OF THESE 

WILL RESULT IN OBSCURITY. 
ISE IT) THROWS OUT LAP AS WELL. 



EXC 

LDQ 
TZE 
LDQ 
STQ 
STZ 
STL 

STL 

SXA 
TRA 

SXA 
CLA 
STO 
ADD 
PAX 
TXI 
SXD 
ADD 



PAG 
SXD 
SXD 
SXD 
ADD 
STA 
SUB 
PAC 
SXD 
SXD 
SXD 
CLA 
SUB 
STA 
ADD 



EXCIQ 

« + 2 

EXCIR 

$TFS 

EPLACE 

EXCISD 

RST 

SUPX,4 

RSU 

SUPX,4 

$TPG 

$ORG 

LBINPG 

0,4 

*+l,4,-l 

C$LBPTP,4 

$Q1 



C,4 

$CPPI ,4 

$CSSI ,4 

NUBPDL,4 

LPBPDL 

ZPDL 

$Q20 

0,4 

ENDPDL,4 

ENPUL1.4 

ENPDL2,4 

$TFS 

LFREES 

$TBT 

$Q1 



BPS 
EXCISED 



SPACE FOR 



MAKE LAP GO TO 

DON-T EVER USE 

PROGRAM AGAIN 

SET RESETUP SWITCH 

SAVE LINK IR 

CHANGE GARBAGGE COLLECTOR PARAMETERS 

SAVE LINK IR 



SETUP FOR LAP 



SET PUSH DOWN CELLS 

PRIVATE COPY FOR BACKTRACE 

G C ZEROS THE UNUSED PDL 
PROTECTION AGINST COMPILER SAVING 
WITH OUT LOOKING 
GUT OF PDL TEST 



LS016060 
LS016070 
LS016080 
LS016090 
LS016100 
LS016110 
LS016120 
LS016130 
LS016140 
LS0I6150 
LS016160 
LS016170 
LS016180 
LS016190 
LS0I6200 
LS016210 
LS016220 
LS016230 
LS016240 
LS016250 
LS016260 
LS016270 
LS016280 
LS016290 
LS016300 
LS016310 
LS016320 
LS016330 
LS016340 
LS016350 
LS016360 
LS016370 
LS016380 
LS016390 
LS016400 
LS016410 
LS016420 
LS016430 



L SO 16440 
LS016450 
LS016460 
LS016470 
LS016480 
L SO 16490 
LS016500 
LS016510 
LS016520 
LS016530 
LS016540 
LS016550 
LS016560 
LS016570 
LS016580 



o 



LISP 1.5 FOR SHARE DISTRIBUTION, 
STORAGE CONTROL 



MARCH 1965 



9/20/67 



PAGE 38 



0271C 


€621 


CO 





03057 


02711 


5 CO 


CO 





03070 


02712 


0771 


CO 





CO 005 


02713 


04CO 


CO 





00425 


02714 


0601 


cc 





03072 


02715 


C500 


CO 





03 05 7 


02716 


04 02 


CO 





03 072 


BINARY CARD NC* 


LISP 006 5 


02717 


0601 


CO 





03061 


02720 


04G2 


CO 





00425 


02721 


0601 


CO 





03062 


02722 


500 


CO 





0305 7 


02723 


0402 


CO 





03070 


02724 


06C1 


CO 





03063 


0272 5 


C4C2 


CO 


C 


03067 


02726 


0402 


CO 





03066 


02727 


402 


CO 





03064 


02730 


-0 120 


CO 





030 35 


02 731 


5 35 


CO 


4 


03055 


02732 


1 77777 


4 


02733 


02733 


-0634 


CG 


4 


02605 


02734 


C535 


CO 


4 


03057 


02735 


-C6 34 


CO 


4 


G2606 


02736 


C534 


cc 


4 


030 72 


02737 


C634 


CO 


4 


03 322 


02 74C 


C534 


CO 


4 


0305 7 


02741 


C634 


CO 


4 


03326 


02742 


C534 


CO 


4 


03062 


0274 3 


-0634 


CO 


4 


03464 


02744 


-0634 


CO 


4 


03656 


BINARY CARD NO. 


LISP0C66 


02745 


C534 


CO 


4 


03060 


02746 


6 34 


CO 


4 


03666 


02747 


C534 


00 


4 


03055 


02 750 


06 34 


CO 


4 


03443 


02751 


0534 


CO 


4 


03057 


02752 


0634 


CO 


4 


03476 


02753 


534 


CO 


4 


03063 


02754 


634 


CO 


4 


03463 


02755 


5 35 


CC 


4 


03063 


02756 


-0 6 34 


CO 


4 


03626 


02757 


-0 6 34 


CO 


4 


03654 


02760 


535 


CG 


4 


03055 


02761 


1 77777 


4 


0276 2 


0276 2 


-0634 


CO 


k 


03627 


02763 


-0634 


CO 


4 


03651 


02764 


5 35 


CO 


4 


03057 


02765 


-C634 


CO 


4 


03450 


02766 


-0634 


CO 


4 


03652 


02 767 


-0535 


CO 


4 


032Q4 


02770 


1 000 CI 


4 


027 71 



RSU 



STA 


$BFS 


CLA 


LFULVvS 


ARS 


5 


ADD 


$Q1 


STO 


$L8T 


CLA 


$BFS 


SUB 


$LBT 


STO 


$BBT 


SUB 


$Q1 


STO 


$TFN 


CLA 


$BFS 


SUB 


LFULWS 


STO 


$BFW 


SUB 


LPBPDL 


SUB 


LBINPG 


SUB 


$TPG 


TMI 


SETERR 




STRPNT SET 


LAC 


$TFS,4 


TXI 


*+l,4,-l 


SXD 


STRT0P,4 


LAC 


$BFS,4 


SXD 


STRBTM,4 




RECLAIMER 


LXA 


$LBT,4 


SXA 


A, 4 


LXA 


$BFS,4 


SXA 


8,4 


LXA 


$TFW,4 


SXD 


1,4 


SXD 


MCNE,4 


LXA 


$TBT,4 


SXA 


MLTBT,4 


LXA 


$TFS,4 


SXA 


F,4 


LXA 


$BFS,4 


SXA 


SFWLD,4 


LXA 


$BFW,4 


SXA 


H,4 


LAC 


$BFW, 4 


SXD 


MRKLST.4 


SXD 


MLBDW,4 


LAC 


$TFS,4 


TXI 


#+1,4,-1 


SXD 


MRKLST+1,4 


SXD 


ML I ST, 4 


LAC 


$BFS,4 


SXD 


G,4 


SXD 


MLBFA,4 


LDC 


ENDP0L,4 


TXI 


*+l,4,l 



OVER LAPPING STORAGE ERROR 



SETUP 



LS016590 
LS016600 
L SO 166 10 
LS016620 
LS016630 
LS016640 
LS016650 



LS016660 
LS016670 
LS016680 
LS016690 
LS016700 
LS016710 
LS016720 
LS016730 
LS016740 
LS016750 
LS016760 
LS016770 
LS016780 
LS016790 
LS016800 
LS016810 
LS016820 
LS016830 
LS016840 
LS016850 
LS016860 
LS016870 
LS016880 
LS016890 



LS016900 
LS0i69i0 
LS016920 
LS016930 
LS016940 
LS016950 
LS016960 
LS016970 
LS016980 
LS016990 
LS017000 
LS017010 
LS017020 
LS017030 
L SO 17040 
LS017050 
LS017060 
LS017070 
LS017080 
LS017090 



■mmmm 



mmmmmmmmmm 



mmmmmmm 



mmmm 
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m 02771 


C634 GO 


4 


03640 




SXA 


MLEPD,4 


• 02772 


0634 CO 


4 


03647 




SXA 


MLEPE,4 


BINARY CARD NO.- LISP0067 








• 02773 


G5 35 CO 


4 


03061 




LAC 


$BBT,4 


02774 


-0634 GO 


4 


03653 




SXD 


MLB8J,4 


02 775 


G520 GO 


C 


03034 




zer 


RST 


• 02776 


CG20 CO 





03030 




TRA 


SUPX 


02777 


0535 CO 


4 


03057 




LAC 


$BFS,4 


~ 0300C 


1 77777 


4 


03001 




TXI 


*+l,4,-l 


• 300 1 


-0634 CO 


4 


03010 




SXD 


SUPFS, 4 


0300 2 


0535 00 


4 


03056 




LAC 


$MFS,4 


300 3 


-0754 GO 


4 


00000 




PXD 


0,4 


• 03004 


06C1 CO 


-o 


04512 




STO 


$FREE 


03005 


0400 CG 





C0476 




ADD 


$QD1 


0300 6 


0601 CO 


4 


00000 




STO 


0,4 


• 03007 


1 COO CI 


4 


03010 




TXI 


*+l,4,l 


0301C 


-3 GOOCO 


4 


03005 


SUPFS 


TXL 


*-3»4 , ** 


A 03011 


0600 CG 


4 


00000 




STZ 


0,4 


• 03012 


5 35 GO 


4 


03063 




LAC 


$BFW,4 


03013 


-0754 GC 


4 


COOOG 




PXD 


0,4 


03014 


0601 CG 





04470 




STO 


FWCRDL 


| • 03015 


-0737 CO 


4 


00000 




PDC 


0,4 


03016 


-06 34 CO 


4 


03021 




SXD 


SUPFV, 4 


_ 03017 


0534 CO 


4 


03O61 




LXA 


$88T,4 


• 0302 


0634 CO 


4 


03023 




SXA 


SUPFW, 4 


BINARY CARD NO. LISPG068 








• 03021 


2 GOOGO 


4 


0302 2 


SUPFV 


TIX 


*+l,4,*» 


03022 


G402 CO 





00476 




SOB 


$QD1 


m 03023 


0601 CO 


4 


GOO 00 


SUPFW 


STO 


**,4 


• 03024 


2 000 CI 


4 


03022 




TIX 


*-2,4,l 


302 5 


C6C0 60 





302 3 




STZ* 


SUPFW 


^ 3026 


500 CO 





64 624 




CLA 


S0BL8 


• 03027 


0074 CO 


4 


03210 




TSX 


CNSFWL,4 


30 30 


774 CO 


4 


00000 


SUPX 


AXT 


**j4 


^ 03031 


0600 CO 


C 


03034 




STZ 


RST 


• 03032 


-0754 CO 





00000 




PXD 


0,0 


03033 


0020 CG 


4 


00001 




TRA 


1,4 


^ 03034 


COO CO 





GOOQO 


RST 






• 03035 


0C74 CG 


4 


01527 


SETfcRR 


TSX 


OUTPUT, 4 


03036 


-0 OOOGO 


C 


00 365 




MZE 


BCDOUT 


03037 


00011 





03041 






N0SET,,9 


• 03040 


0C2O CO 





03030 




TRA 


SUPX 


3041 


00 466 5255143 


NO SET 


BCI 


9,00VERL^ 


^. 03042 


21474 7314527 








• 3043 


604721512144 








3044 


256325516260 








3045 


4 06225 636447 








W 03046 


4 0602 5515146 









BINARY CARD NO. LISP0069 
03047 5 16045644422 

03050 2 5516C544660 

03051 6 0075 4 606 060 



SKIP *IF INITAL SETUP 

GO TO EXIT GTERWISE 

BOTTOM OF FREE STORAGE 

SUBTRACT 1 

SET DECREMENT 

LOWERP 

POINTER TO LWERP IN DECREMENT 

SET UP FREE 

START MAKING FREE STORAGE 

-BFS 

BOTTOM FULL WORD SPACR 

SET UP FULL WORD LIST 

GET LT RUE IN INDEX 

USE TO CALCULATE LENGTH OF FULL 

TFW + 1 

SET END + 1 ADDRESSS 



WORD 



LENGHT OF FULL WORD 

MAKE LIST 

LOOP 

MAKE LAST ENTRY ZERO 

BEGINNING OF UNSORTED OBJECT LIST 



ZERO RESBTUP SWITCH 

RESETUP TEST CELL 
PRINT ON-LINE 



EXIT 

RLAPPING PARAMETERS -SETUP- ERROR NUMBER *€ 7* 



LS017100 
LS017110 



LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
LSO 
SLSO 
LSO 
LSO 



17120 
17130 
17140 
17150 
17160 
17170 
17180 
17190 
17200 
17210 
17220 
17230 
17240 
17250 
17260 
17270 
17280 
17290 
17300 
17310 
17320 
17330 



LS017340 
LS017350 
LS017360 
LS017370 
LS017380 
LS017390 
LSO 17400 
LS017410 
LS017420 
LS017430 
LS017440 
LS017450 
LS017460 
LS017470 
LS017480 
LS017490 
LS017500 



mm 
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03052 





cooco 


c 


76702 


EXCIQ 


0305 3 





GOO CO 





77464 


EXCLR 

■» 


030 54 





00000 





70 353 


* 
* 
XORG 


3055 





oooco 





70352 


TFS 


03056 


c 


GOO CO 





64424 


MFS 


0305 7 


c 


00000 





00000 


BFS 


03060 





oooco 





00000 


TBI 


03061 





oooco 





00000 


BBT 


03062 





oooco 





00000 


TFW 


03063 





oooco 





00000 


BFW 


03064 





oooco 





20063 


TPG 


03065 





oooco 





0000.0 


ORG 


03066 





oooco 





00000 


LBINPG 


03067 





oooco 





00000 


LPBPDL 


03070 





00000 





00000 


LFULWS 


030 71 





oooco 





00 000 


LFREES 


03072 





cooco 





coooo 


LBT 
* 


03073 


c 


oooco 





00000 


# 

B PL ACE 


03074 





oooco 





00000 


EXCISD 
* 

* 
* 



TOP FOR EXCISE(NIL) 
TOP FOR EXCISE 



{ T ) 



BINARY CARD NO. LISP0G70 



03075 
03076 
03077 
03100 
03101 
03102 



520 
-0 100 

0601 

0020 
-0634 

74 



CO 

CO 
CC 
CO 

CO 
CC 



03074 
03101 
0307 3 
CG001 
2 313 
02314 



03103 54676C600154 



HEAD 







STORAGE MAP CELLS FOR LISP 



UPERML 

OPERML-l 

LCWERP 



TOPROG 



ORIGIN OF EXCLSED BINARY PROGRAM 

UPPER LIMIT OF FREE STORAGE 

LOW UIMIT OF PERM. LIST STRUCTURE 

BOTTOM OF FREE STORAGE 

TOP OF BIT TABLE 

BOTTOM OF BIT TABLR 

TOP OF FULL WORD SPACE PROPER 

BOTTOM OF FULL WORD SPACE 

ORIGIN OF BINARY PROGRAM IN DECREMENT 
LENGTH OF BINATY PROGRAM 
LENGTH OF PUBLIC PUSH DOWN LIST 
LENGTH OF FULL WORD SPACE + BIT TABLE 
LENGTH OF FREE STORAGE 
LENGTH OF FULL WORD BIT TABLE 



CELLS TO DETERMINE WHERE PROGRAMS AND ARRAYS GO 








NOISE MEANS 
NOISE MEANS 
POSSLBLE 



ASSEMBLE 
EXCISION 



TO EXCISABLE ARE 
HAS MEAD ABOVE I 



EXCISABLE (T) SETS LAP AND ARRAYS TO GO INTO EXCISABLE SPACE 
EXCISABLE(F) SETS THEM TO GO INTO BPS AS IS NORMAL 

HEAD X 



EXCABL ZET 
TNZ 
STO 
TRA 

EXER SXD 
TSX 
BCI 
HEAD 



EXCISD 

EXER 

BPLACE 

1,4 

$ERR0R,4 

$ERR0R+1,4 

1,*X 1* 





CAN WE STILL PUT THINGS UP THERE 
NO, BUT WE WERE TRYING 
SET FLAG 

ATTEMPT TO PUT RPOGRAM INOT EXCISABLE 
AFTER EXCISION 



* SAVE AND UNSAVE 



* 

* 

* 

* 



TSX 
TXL 
RETURN 



TSX 

RETURN 



THE CLOSED SUBROUTINES THAT CONTROL 
THE PUBLIC PUSH DOWN LIST. THE CALLING SEQUENCES ARE ... 

$SAVE,4 

$ENDN,,END OF BLOCK TO BE SAVED + 2 

WHERE N IN $ENDN IS THE NUMBER OF ITEMS TO BE SAVED 
UNSAVE, 4 

THE SAVED ITEMS MUST BE IN A CONTIGOUS BLOCK WITH THE 
THE FIRST ITEM PZE ATOMIC NAME OF SUBR,,IR 4 



LS017510 

L SO 17520 

LS017530 

LS017540 

LS017550 

LS017560 

LS017570 

L SOI 7580 

LS017590 

LS017600 

LS017610 

LS017620 

LS017630 

LS017640 

LS017650 

LS017660 

LS017670 

LS017680 

LS017690 

LS017700 

LS017710 

L SO 17720 

LS017730 

L SO 1 7740 

LS017750 

ALS017760 

MLS017770 

LS017780 

LS017790 

LS017800 

LS017810 

LS017820 

LS017830 



LS017840 
LS017850 
LS017860 
L SO 17870 
LS017880 
LS017890 
LS0I7900 
LS017910 
LS 017920 
LS017930 
L SO 17940 
L SO 17950 
LS017960 
L SO 17970 
LS017980 
LS017990 
LS018000 
LS018010 
LS018020 
LS018030 



mmmmmmmm 
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•» 



03104 
0310 5 
03 106 
0310 7 
0311C 
03111 
03112 
03113 
0311 A 
03115 
03116 



0634 CO 
0601 CO 
C5C0 6G 

7 34 CC 

1 OOOOC 
-3 000 CC 
-0 634 CC 

0500 

0601 

-0 737 

5 22 



CO 
CO 
CO 
CO 



03175 
03177 
CC0Q1 
COOOO 
03 1 11 
03205 
03110 
00001 
77777 
COOOO 
00001 



03117 0634 CO 

03120 0601 CC 

03121 -0 534 CC 

03122 0500 00 



2 03175 
03177 
2 03110 
2 77777 



BINARY CARD MO. LISPC071 



03123 
3124 
03125 
03126 
03127 
0313C 
03131 
03132 



0621 00 

0621 CO 

-0 634 CC 

C535 CC 

1 COOOO 

-C634 CO 

-0737 CO 

1 COCCI 



03126 
03132 
03127 
000 QC 
03130 
03110 
COOOO 
00000 



03133 
03134 
03135 
03136 

0313 7 
0314C 
03141 
03142 
03143 
03 F44 
03145 
03146 

0314 7 
03150 



C5C0 
0601 
05C0 
0601 
C5C0 
601 
C5C0 
C601 
5 CO 
C6C1 
5 CO 
C6C1 
05C0 
060 1 



CO 
CO 
CO 
CC 
00 
CO 
CO 
CC 
CO 
CO 
CO 
CO 
CO 
CC 



77757 
77757 
77760 
77760 
77761 
77761 
77762 
77762 
7776 3 
77763 
77764 
77764 
77 765 
77765 



BINARY CARD NO. LISPG072 



03151 C5C0 CO 

03152 06G1 CO 

03153 C5C0 CO 

03154 C6C1 CO 
0315 5 500 CC 



2 77766 

1 77766 

2 7776 7 

1 77767 

2 77770 



SAVE 



CPPI 

ENPDL2 



UNSAVE 



SAVJ 
SAVI 



SAVK 



* 
* 



END 16 

END15 
END14 
END 13 
END12 
END11 
END10 



SXA 

STO 

CLA* 

PAX 

TXI 

TXL 

SXD 

CLA 

STO 

PDC 

XEC 

SXA 
STO 

LXD 
CLA 



STA 
STA 
SXD 
LAC 
TXI 
SXD 
PDC 
TXI 



CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 



END9 CLA 
STO 

END8 CLA 
STO 

END7 CLA 



** 



THE SAVE 
BLOCK TO 

SAVY t 2 

SAVT 

1,4 

0,1 

*+l tl»»* 

NOPDL, W 

$CPPI,1 

1,4 

-lil 

0,2 
1,4 

SAVY,2 
SAVT 
$CPPI ,2 
-1,2 



SAVJ 

SAVK 

SAVI,2 

**, 1 

* + l,l ,** 

$CPPI,1 

0,1 

**,4, 1 



SAVE AND UNSAVE 
THE PUBLIC PUSH 

-17,2 
-17,1 
-16,2 
-16,1 
-15,2 
-15,1 
-14,2 
-14,1 
-13,2 
-13,1 
-12,2 
-12,1 
-11,2 
-11,1 



•10,2 

•10,1 

•9,2 

•9,1 

-8,2 



PARAMETER WORD LS ADDED AS THE LAST ITEM ON THE 
BE SAVED BUT IS NOT UNSAVED. 



SAVE INDEX 2 AND 1 

SAVE THE AC 

AMMOUNT TO SUBTRACT FROM CPPI IN AC 

PUT - NUMBER OF ITEMS TO BE SAVED + 1 

IN IR 1 AND INCREMENT BE PUSH DOWN CN 

GO TO NOPDL IF NOT ENOUGH PDL 

UP DATE PDL COUNTER LOCATION 

PARAMETER WORD 

PUT ON PUSH DOWN LIST 

LOCATION OF BLOCK TO BE SAVED + 2 

JUMP INTO SAVE TABLE 



SAVE INDEX 2 AND 1 

SAVE THE AC 

CURRENT PUSH DOWN COUNTER 

LAST SAVE PARAMETER WORD 



SET FETCH AND TXI INSTRUCTIONS 



LS018040 
LS018050 
LS018060 
LS018070 
LS018080 
LS018090 
LS018100 
TLS018110 
LS018120 
LSO 18130 
LS018140 
LS018150 
LS018160 
LS018170 
LS018180 
LS018190 
LS018200 
LS018210 
LS018220 



SET UP 
NUMBER 
ADD PU 
UPDATE 
LOCATi 
JUMP T 
PROPER 



TO RESTORE P 

TO BE UNSAVE 
SH DOWN COUNT 

PDL COUNTER 
ON OF END OF 
PUSH DOWN T 

EXIT • 



OL COUNTER 

D 

ER 

CELL 

BLOCK + 2 

ABLE AND SET 



IR 4 



TABLE TO DO THE ACTUAL 
DOWN LIST. 



LSO 182 30 
LS018240 
LS018250 
LS018260 
LS018270 
LS018280 
LS018290 
LS018300 
LS018310 
LSO 18 320 
MOVING TO AND FR0MLS018330 

LS018340 
LS018350 
LS018360 
LS018370 
LS018380 
LS018390 
LSO 18400 
LS018410 
LS018420 
LS018430 
LSO 18440 
LS018450 
LS018460 
LS018470 
LS018480 
LS018490 



LSO 18500 
LS018510 
LS018520 
LS018530 
LS018540 



•flM 



• 
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03156 
03157 
03160 
03161 
03162 
03163 
3164 
03165 
03166 
03167 
03170 
03171 
03172 
03173 
03174 
03175 
03176 



0601 
050O 
G6C1 
C5G0 
C601 
G5G0 
C601 
C5C0 
0601 
05 00 
06G1 
5 00 
0601 
500 
-C534 
C774 
C C 20 



CC 
CO 
CC 
CO 
CO 
CG 
CO 
CO 2 
CO 1 
GO 2 
CO 1 
CG 2 
CC 1 
GO 
CO 1 
00 2 
CO 4 



77770 
77771 
77771 
77772 
77 772 
77773 
77773 
77774 
77 774 
77775 
77775 
77776 
77776 
03177 
03110 
OOOOG 
00002 



BINARY C/>RD NO. LISP0C73 

03177 COOOO COOOO 



03200 
3201 
03202 
03203 
03204 
03205 
032 06 
03207 



03210 
03211 
03212 
03213 
03214 
03215 
03216 
03217 



05 GO CO 
0622 CO 
GO 20 CO 
OOOCO 
-3 OOOCO 
-G634 GO 
CO 74 CO 



03203 
03110 
00001 
00000 
03205 
02 313 
02314 



54276C600254 



06 34 
0634 

-C734 
C5C0 
0622 
0734 

■0634 
C500 



CO 
CO 
GO 
CO 
GO 
00 
CO 
CO 



4 032 37 
2 03240 
4 CGOOO 
4 00000 
04052 
2 COOOO 
2 04055 
2 COOOO 



END6 



END5 



END4 



END3 



END2 



END1 



EN 00 



SAW 



SaVT 



* 

* 

* 



TERPDL 



CSS I 

ENOPOL 
NORDL 



STO 


-8,1 


CLA 


-7,2 


STO 


-7,1 


CLA 


-6,2 


STO 


-6,1 


CLA 


-5,2 


STO 


-5,1 


CLA 


-4,2 


STO 


-4,1 


CLA 


-3,2 


STO 


-3,1 


CLA 


-2,2 


STO 


-2,1 


CLA 


SAVT 


LXD 


$CPPI ,1 


AXT 


**,2 


TRA 


2,4 



RESTORE THE AC 
MAKE 1X1 AND $CPPI 

EXIT 



AGREE 



TEMPORARY STORAGE FOR AC 

TIMING INFORAMTION .. SAVE AND UNSAVE 34 + 4N 
THE 709 i SUBTRACT 5 CYCLES FOR SAVE AND 4 
THE 7090} 



ON 
ON 



CYCLES 
FOR UNSAVE 



CLA 
STO 
TRA 

TXL 
SXD 
TSX 

eci 



TERPDL 
RESETS 

$CSSI 

CPPI 

1,4 



*+l,4,*# 

$ERRCR,4 
$ERRCR+1, 4 

1»*G 2* 



PUBLIC PUSH DOWN LIST TO ZERO 



OUT OF POL TEST INSTRUCTION (IS XEC) 



OUT OF PUBLIC PUSH DOWN LIST 



HEAD 



* CNSFWL 






USED BY SETUP TO MOVE ALL FULL WORDS ON PERMENENT 

TO THE FULL WORD SPACE. 

ALSO BUCKET SORTS THE PERMENENT OBJECTS. 



CNSFWL 



CNMLP 



SXA 
SXA 
PDX 
CLA 
STD 
PAX 
SXD 
CLA 



CNFWX,4 

CNFWY.2 

0,4 

0,4 

CNXT 

0,2 

CNAT,2 

0,2 



SAVE INDE^X REGISTERS 

POINTER TO OBJECT LIST 

NEXT WORD ON LIST 

POINTER TO NFXT WORO 

POINTET TO AN ATOM 

SAVE THE POINTER TO THE ATOM 



LS018550 
LSO 18560 
LS018570 
LS018580 
LS018590 
LS018600 
LS018610 
LS018620 
LS018630 
LS018640 
LS018650 
LS018660 
LS018670 
LS018680 
LSO 18690 
LS018700 
LS018710 
LS018720 



LS018730 
LS018740 
LS018750 
LS018760 
LS018770 
LS018780 
LS018790 
LS018800 
LS018810 
LS018820 
LS018830 
LS018840 
LS018850 
LS018860 
LS018870 
LS018880 
LS018890 
LS018900 
LS018910 
LS018920 
LS018930 
LS018940 
LS018950 
OBJECTSLS018960 
LS018970 
LS018980 
LS018990 
LS019000 
LS019010 
LS019020 
LS019030 
LS019040 
LS019050 
LS019060 
LSO 19070 



'mmmiimmimmm 
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03220 
03221 
3222 
03223 
03224 

BINARY CAR 
03225 
3 226 
03227 
03230 
03231 
03232 
03233 
03234 
03235 
03236 
03237 
0324C 
03241 

3242 
03243 
03244 
03245 
03246 
03247 
03250 



•0320 
•01C0 

oXoo 

734 



GO 
CO 
00 
CO 



3 10440 



00524 
G3242 

00000 
00000 
03226 



3 
3 
3 
3 

3 



D NC. 
104 
116 
116 
110 
110 
-0 734 

3 COO 
-0534 

3 000 
-0754 
774 
07 74 
CO 20 

C500 
-0120 
-0 734 
5 GO 
0074 
0622 
CC20 



LISPO 
37 2 



30 
27 
62 
61 
CO 
00 
CO 
CO 
00 
00 
CO 
CO 

CO 
CO 
GO 
CO 
GO 
CO 
CO 



074 

03251 

03 230 

03251 

03232 

03266 

COOOC 

03222 

04052 

03213 

00000 

00000 

OOOQG 

00001 

OOOQG 
03234 
CO 000 
00000 
04451 
GOOGO 
G3234 



03251 -0734 CO 

03252 0500 CO 



2 COOOO 
2 COOOO 



ANA 
TNZ 
CNSLP CLA 
PAX 
TXH 



TXH 
TXH 
TXH 
TXH 
TXH 
PCX 
TXH 
LXO 
TXH 
PXD 
A XT 
AXT 
TRA 

CLA 
TMI 
PCX 
CLA 
TSX 
STD 
TRA 

POX 
CLA 



CNRS 
CNRT 
CNNR 



CNFWX 
CNFWY 

* 
CNNM 



CMKO 



TAGMSK 

CNNM 

0,2 

0,2 

*+2,2,$SUBR 

CMK0,2,$SUBR-1 

*+2,2 f $FSUBR 

CMK0,2,$FSUBR~1 

*+2,2,$PNAME 

CMPNT,2 t $PNAME-l 

0,2 

CNSLP, 2,0 

CNXT,4 

CNMLP,4,0 

0,0 

** ,4 

**,2 

1,4 

C2 

CNNR 

0,4 

0,4 

$C0NSW,4 

0,2 

CNNR 

0,2 

0,2 



TEST FOR NUMBER LS019080 

MAKE A NUMVER LS019090 

NEXT WORD ON ATOM LS019100 

CAR OF ATOM, SEARCH FOR FULL WORD LS019110 

SUCH AS $SUBR LS019120 



LS019130 
LS019140 
LS019150 
LS019160 
LS019170 
LS019180 
LS019190 
LS019200 
LS019210 
LS019220 
LS019230 
LS019240 
LS019250 
LS019260 
LS019270 
LS019280 
LS019290 
LS019300 
LS019310 
LS019320 
LS019330 
LS019340 
LS019350 
LS019360 



IS NONE OF A80VE SO COR TO IR 2 

GO BACK IF NOT END OF PROPERTY LIST 

POINTER TO NEXT OBJECT 

GO BACK IF NOT END 

CLAER AC 

RESTORE INDEX REGISTERS 

EXIT 



CONT MOVE NUMBERS WITH MZE PREFIX 



MAKE UP THE NEW NUMBER 

PUT ONE WORD LN FULL WORD SPACE 
GET NEXT WORD ON PROPERTY LIST 



BINARY CARD NO. LISPC075 



03253 
3254 
03255 
03256 
03257 
0326C 
03261 
03262 
03263 

03264 
03265 

03 266 
03267 
03270 
03271 
03272 
03273 
03274 
03275 
03276 



622 
-C120 
734 
C5C0 
0074 
771 
0621 
•0 5 34 
020 



CO 

CO 
00 
CO 
GO 
CO 
CO 
GG 
CO 



04053 
G G3264 
4 00000 
4 COOOO 
4 04451 



000 22 



COOOO 
0405 3 



03233 



0602 CO 2 COOOO 
0C2O GO 03232 



•0 734 
0500 
622 
0734 

•0634 
500 

•0120 
0622 
07 34 



00 
GO 
CG 
00 
CO 
GO 
GO 
CO 
00 



2 00000 
2 COOOO 
04053 
2 OGOOO 
2 04O56 
2 OOOQG 
C 03305 
04054 
4 OOOQG 



CMK 



CMPNT 



CMPLP 



STD 
TMI 
PAX 
CLA 
TSX 
ARS 
STA 
LXO 
TRA 

SLW 
TRA 

PDX 
CLA 
STD 
PAX 
SXD 
CLA 
TMI 
STD 
PAX 



CNX 

CMK 

0,4 

0,4 

$C0NSW,4 

18 

0,2 

CNX, 2 

CNRT 

0,2 
CNRS 

0,2 

0,2 

CNX 

0,2 

CNVA,2 

0,2 

CMPS 

GNFT 

0,4 



POINTE 
SKIP M 
SENSED 
WORD A 
PUT If 
MOVE P 
REPLAC 
POINTE 
RETURN 

RESTOR 
GO 8AC 

PUT PR 
NEXT W 
POINTE 
POINTE 
SAVE I 
FIRST 
SKIP I 
POINTE 
POINTE 



R TO REST OF OBJECT LS019370 

OVING THIS WORD IF MINUS SIGN I SL SO 19380 
, OTHERWISE GET POINTER TO FULL LS019390 
NO WORD IT SELF IN AC LS019400 

IN FULL WORD SPACE LS019410 

GINTER TO WORD IN FWS TO ADDRESSLS019420 



THE ADDRESS 
TO NEXT WORD 



ON PROPERTY LIST 



WORD WITH PLUS SIGN 



SPACE 



INT NAME IN FULL WORD 

ORD ON PROPERTY LIST 

R TO NEXT WORD ON PROPERTY 

T TO PNAME LIST 

T 

FORD ON PNAME LIST 

F WORD IS FLAGGED 

R TO NEXT WORD ON PNAME LIST 

R TO FULL WORD 



LS019430 
LS019440 
LS019450 
LS019460 
LS019470 
LS019480 
LS019490 
LS019500 
LS019510 
LIST LS019520 
LS019530 
LS019540 
LS019550 
LS019560 
LS0I9570 
LS019580 



Q 
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03277 
03300 



5C0 
CC74 



CO 
CO 



4 COOOO 
4 04451 



CLA 
1 SX 



0,4 

$CCNSW,4 



FULL WORD 

PUT IN FULL WORD SPACE 



LS019590 
L SO 19600 



BINARY CARD NO. LISP0076 



03301 
3 302 
03303 
03304 
03305 
03306 
03 307 
033 IC 
03311 



03312 
03313 
03314 
03315 
03316 
03317 
03320 
03321 
03322 
03323 
03324 
03325 
03326 



0771 CO 
C621 CO 

•0534 CC 
3 OOOCC 
G5C0 CO 
0560 CO 
0074 CO 

-0534 CO 
CC20 CO 



0634 

0634 

0634 

0604 

0601 
-C6C0 

0600 

5 60 

0774 

06 CO 

2 C0OC1 
-C534 CO 
-0634 CO 



CO 
CO 
CO 
CO 
CO 
CC 
CO 
CO 
OC 
CO 




2 
2 
2 

■0 
4 
2 
C 



4 
2 

L 

C 




c 

4 
4 
4 
4 
4 



00022 
00000 
04O54 
03273 
04056 
04055 
07245 
04053 
03233 



03603 
03604 
03605 
03764 
04050 
04051 
03765 
04030 
00000 
00000 
03 323 
03204 
03330 



ARS 
STA 
LXD 
TXH 
CMPS CLA 
LDQ 
TSX 
LXD 
TRA 

* RECLAIMER 
# 

RECLAM SXA 
SXA 
SXA 
STI 
STO 
STQ 
STZ 
LDQ 
AXT 
STZ 
T1X 
LXD 
SXD 



RCA 
A 

B 



18 

0,2 

CNFT,2 

CMPLP,2,0 

CNVA 

CNAT 

BUKSRT.4 

CNX,2 

CNRT 



POINTER TO 
R PLACE THE 
POINTER TO 
GO BACK IF 
POINTER TO 
ATOM THAT 



WORD 
ADDRESS 

NEXT WORD ON PNAME LIST 
NOT END 
PNAME LIST 
WE ARE WORKING ON 



PUT ON BUCKET SORTED OBJECT LIST 
POINTER TO NEXT WORD ON ATOM 
GO BACK 



LISP 1.5 STORAGE CONTROL PROGRAM. CODED 1 MARCH 1961 



RCX,4 
RCY,2 
RCZ,1 

RCIND 

RCAC 

RCMQ 

RCBE 

RCSGNL 

«»,4 

a » , 4 

*- 1 , 4 , 1 

ENDPDL,4 
RCIA,4 



SAVE INDEX REGISTERS 



AND MACHINE REGISTETS 



INITIALIZE BAD EXIT CELL 

SIGNAL PHASE 1 

BIT TABLE LENGTH 

DOTTOM FREE STORAGE 

ZERO THE BIT TABLE 

END OF POL 

SET UP TNX INSTRUCTION 



LS019610 
L SO 19620 
LS019630 
LS019640 
LS019650 
LS019660 
LS019670 
LS019680 
LS019690 
LS019700 
LS019710 
LS019720 
LS019730 
LS019740 
LS019750 
LS019760 
L SO 19 770 
LS019780 
LS019790 
LS019800 
LS019810 
LS019820 
LS019830 
L SO 19840 
LS019850 
LS019860 
LS019870 



BINARY CARD NO. LISP0077 



03327 
03330 
03331 
03332 
3 333 
3334 
0333 5 
03336 
03337 



03 34C 
0334 1 
03342 
334 3 
3344 
03345 



-0534 CO 
-2 000 CO 
-0634 CO 

06 34 
-0 7 74 

0441 

0520 

CQ56 

00 74 



0600 
-0534 
C500 
0622 
0734 
05C0 



CO 
CO 
CC 
CO 
00 
CC 



CC 
CC 
CO 
CC 
00 
CC 



03110 
03643 
03642 
03510 
6462 3 
11254 
12507 
0C00Q4 
4 03626 



04033 
04046 
00000 
04033 
GGOOO 
00000 



RCI.A 



* 
* 

« 
* 



TMLJ 



LXD 
TNX 
SXD 
SXA 
AXC 
LDI 
ZET 
RNT 
TSX 



STZ 

LXD 
CLA 

STD 
PAX 
CLA 



$CPPI ,4 

NLP0E,4,** 

MLPDC4 

ZPDLA.4 

OB LI ST, 2 

SYSIND 

EVQRTS 

DEBUGI 

MRKLST,4 



CURRENT PUSH DOWN LIST LOG. 

AMMOUNT OF PUSH DOWN LIST AVAILABLE 

SET CELL IN MRKLST 

LENGTH LEFT BAR FOR ZEROIND PDL 

POINTER TO OBJECT LICT 

SYSTEM INDICATORS 

SKIP IF DURING READ IN IN EVALQUOTE 

SKIP MARKING OBLIST IF IN A DEBUG 

MARK THE LIST 



TEMLIS MARKER 

TEMLIS IS A LIST IN FREE STORAGE AND FULL WORD SPACE 
OF THE FORM (CONS (CONSW BBC-ENO) TEMLIS) AND INDICATE 
PLACES WHERE LIST STRUCTURE MAY BE DURING A GARBAGE 
COLLECTION. USED PRINCIPALLY BY THE COMPILER 



TMLM 

TEMLIS, 4 

0,4 

TMLM 

0,4 

0,4 



SET EXIT SWITCH 

NEXT WORD ON TEMLIS 
SAVE POINTER TO NEXT 
POINTER TO FULL WORD 
FULL WORD 



WORD 



LS019880 
LS019890 
L SO 19900 
LS019910 
LS019920 
LS019930 
LS019940 
LS019950 
LSO 19960 
LS019970 
LS019980 
LS019990 
SLS020000 
LS020010 
LS020020 
LS020030 
LS020040 
LS020050 
LS020060 
LS020070 
LS020080 
LS020090 
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03346 


0734 


CO 


4 


ccooo 




PAX 


0,4 


• 03347 


-C 6 34 


CO 


4 


03353 




SXD 


TMLD,4 


03350 


-0734 


00 


1 


COOOC 




PCX 


0,1 


03351 


1 C00C1 


1 


03352 




TXI 


•+1,1,1 


• 03352 


0634 


CO 


1 


03355 


TMLK 


SXA 


TMLE,1 


0335 3 


-2 GOOGO 


1 


03367 


TMLD 


TNX 


TMLH,1,*» 


03354 


0634 


GO 


1 


03756 




SXA 


GCPDLC1 


BINARY CARD NO. 


LISP0G78 








03 355 


0441 


00 


1 


00000 


TMLE 


LDI 


**,1 


• 03356 


0444 


CO 





04034 




OFT 


TMPTM 


03357 


0020 


CO 





03366 




TRA 


TMLG 


0336 


-CO 46 


CO 





ooooo 




PIA 




• 03361 


0621 


CO 





03364 




STA 


TMLF 


03362 


-0734 


CO 


2 


COOQO 




PDX 


0,2 


3 363 


0074 


GO 


4 


03626 




TSX 


MRKLST,4 


• 03364 


774 


CO 


2 


OOOOO 


TMLF 


AXT 


**,2 


03365 


0074 


GO 


4 


03626 




TSX 


MRKLST,4 


1 ^ 03 36 6 


2 00001 


1 


03355 


TMLG 


TIX 


TMLE, 1,1 


1 • 03 367 


-0534 


GO 


4 


04033 


TMLH 


LXD 


TMLM.4 


03370 


3 OOOCO 


4 


03342 




TXH 


TMLJ,4,0 


1 - 03371 


0520 


GO 





040 33 




ZET 


TMLM 


• 03372 


0020 


CO 





03401 




TRA 


MPDLF 


0337 3 


-0 535 


CO 


4 


03203 




LDC 


$CSSI ,4 


03374 


-0634 


CO 


4 


03353 




SXD 


TMLD, 4 


• 03 375 


-0 535 


CO 


1 


03110 




LDC 


SCPPI,! 


03 376 


-0625 


GO 


G 


04 033 




STL 


TMLM 


0337 7 


C6C0 


CO 





03756 




STZ 


GCPDLC 


• 0340C 


020 


CO 





03352 




TRA 


TMLK 


03401 


-0534 


CO 


4 


04047 


MPDLF 


LXD 


ARYLIS,4 


03402 


-3 OOOCO 


4 


C3437 


MARYS 


TXL 


RCB,4,0 


BINARY CARD NO. 


LISP0079 








m 03403 


0500 


CO 


4 


COOQO 




CLA 


0,4 


• 03404 


0622 


CO 





03766 




STD 


MARYT 


03405 


734 


00 


4 


OOOOO 




PAX 


0,4 


_ 03406 


05 00 


CO 


4 


OOOOO 


MARY A 


CLA 


0,4 


• 03407 


0734 


00 


A 


OOOOO 




PAX 


0,4 


03410 


-3 12513 


4 


03412 




TXL 


* + 2,4,$ARRAY-*l 


03411 


-3 12514 


4 


03416 




TXL 


MRKA,4,$ARRAY 


• 03412 


-0734 


CO 


4 


OOOOO 




PDX 


0,4 


03413 


3 OOOCO 


4 


03406 




TXH 


MARYA,4,0 


~ 03414 


-0534 


CO 


4 


03766 


MARYC 


LXD 


MARYT, 4 


• 03415 


0020 


CO 





03402 




TRA 


MARYB 


03416 


-0 734 


CO 


4 


OOOOO 


MRKA 


PDX 


0,4 


• 03417 


0500 


CO 


4 


OOOOO 




CLA 


0,4 


03420 


734 


CO 


4 


OOOOO 




PAX 


0,4 


~ 03421 


0500 


GO 


4 


OOOOO 




CLA 


0,4 


• 03422 


0734 


GO 


4 


OOOOO 




PAX 


0,4 


03423 


500 


GO 


4 


OOOOO 




CLA 


0,4 


03424 


0734 


CO 


2 


OOOOO 




PAX 


0,2 


W 0342 5 


0621 


CO 





03432 




STA 


MRKE 


03426 


500 


CO 


4 


00001 




CLA 


1,4 


_ 0342 7 


0601 


CO 





04035 




STO 


MRKP 



BEGINNING OF ARRAY 



END 
AOD 



OF ARRAY 
1 



SUBTRACT BEGINNING , GIVES COUNT IN 
LAST USE IS MARKING PDL, SAVE LENGTH 



PICK UP WORD 

SKIP IF NOT AG OR PREFIX 

NOT A LIST, DO NOT MARK 

ITEM TO AC 

SAVE ADDRESS 

MARK THE DECREMENT 

ADDRESS OF WORD TO IR 

MARK IT 

GET NEXT WORD IN ARRAY 

NEXT TEMLTS ITEM 

GO IF NOT DONE 

TEST FOR EXIT 

ALL DONE 

BEGINNING OF POL 

SET UP CELL 

FIRST FREE CELL ON PDL 

INDICATE LAST USE OF LOOP 

PUSH DOWN LENGTH INITIALLY ZERO 

GO MARK PUSH DOWN LIST 

START TO MARK ACTIVE ARRAYS 

GO IF NO ARRAYS 



NEXT WORD ON ARYLIS 
SAVE POINTER TO NEXT WORD 
ARYATOM TO AC 
NEXT WORD ON ATOM 

SERCH FOR ARRAY SPECIFICATION 

GO IF FOUND 

POINTER TO NEXT WORD 

GO IF NOT END OF ATOM 

NEXT WORD ON ARYLIS 



GET ARRAY SPECIFICATIONS 



FIRST SPEC. WORD 
END OF ARRAY + 1 
END OF ARRAY + 1 

SECOND SPEC. WORD TOTAL L, , LIST L 



L SO 2 01 00 
LS020110 
LS020120 
LS020130 
LS020140 
IRLS020150 
LS020160 



LS020170 
LS02018O 
LS020190 
LS020200 
LS020210 
LS020220 
LS020230 
LS020240 
LS020250 
LS020260 
LS020270 
LS020280 
LS020290 
LS020300 
LS020310 
LS020320 
LS020330 
LS020340 
LS020350 
LS020360 
LS020370 
LS020380 



LS020390 
LS020400 
LS 02 0410 
LS020420 
LS020430 
LS020440 
LS020450 
LS020460 
LS020470 
LS020480 
LS020490 
LS020500 
LS020510 
LS020520 
LS020530 
LS020540 
LS020550 
LS020560 
LS020570 
LS020580 
LS020590 
LS020600 



mm 



mmm 
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03430 


-C534 CO 


■1 


0403 5, 


MRKF 


LXD 


MRKP, 1 


BINARY CARD NC. LISP0080 








03431 


-3 00000 


1 


03414 




TXL 


MARYC,1,0 


03432 


05CO CO 


1 


OOOQO 


MRKE 


CLA 


**, 1 


03433 


-0734 CO 


2 


ooooo 




PDX 


0,2 


03434 


0074 CO 


4 


03626 




TSX 


MRKLST,4 


343 5 


2 000 CI 


1 


03432 




TIX 


MRKE, 1,1 


03436 


CO 20 CO 





03414 


* 
* 


TRA 


MARYC 
ALL MARK I 


03437 


774 CO 


2 


COOOO 


it 

RCB 


AXT 


0,2 


0344C 


0600 CO 





03752 




STZ 


FSC 


03441 


G560 GO 





04031 




LDQ 


RCSGNM 


03442 


-0774 CO 


1 


04512 




AXC 


$FREE,1 


03443 


-0774 CO 


4 


OOOOO 


F 


AXC 


**,4 


03444 


0502 CC 


4 


OOOOO 


SFSL 


CLS 


0,4 


03445 


-C120 CO 





03454 




TMI 


SFSC 


03446 


C601 CO 


4 


OOOOO 




STO 


0,4 


0344 7 


1 000 CI 


4 


03450 


SFSA 


TXI 


*+l,4,l 


03450 


-3 COOOO 


4 


03444 


G 


TXL 


SFSL, 4,** 


0345 1 


0600 CO 


1 


OCOOO 




STZ 


0,1 


03452 


0634 CO 


2 


03752 




SXA 


FSC, 2 


03453 


0020 CO 


C 


03460 




TRA 


SWPFWS 


03454 


-0754 CO 


4 


COOOO 


SFSC 


PXD 


0,4 


03455 


C6C1 CO 


1 


OOOOO 




STO 


0,1 


03456 


-0734 00 


1 


COOOO 




PDX 


CI 


BINARY CARD NC. LISP0081 








03457 


1 C00C1 


2 


03447 


* 


TXI 


SFSA, 2,1 
NOW SWEEP 


0346C 


0774 OC 


4 


04470 


SWPFW5 


AXT 


FW0RDL,4 


03461 


6 34 00 


4 


03617 




SXA 


SFWA,4 


346 2 


C600 CO 


C 


03750 




STZ 


FWC 


03463 


-C774 CO 


1 


OCOOO 


H 


AXC 


**,1 


3464 


1 OOOCO 


1 


03465 


I 


TXI 


*+l,l,«* 


03465 


C754 CO 


1 


COOOO 




PXA 


0,1 


03466 


-0765 CC 


c 


00005 




LGR 


5 


03467 


C734 CO 


4 


COOOO 




PAX 


0,4 


03470 


1 000 CI 


4 


03471 




TXL 


*+l,4,l 


03471 


-0 754 GO 





OOOOO 




PXD 


0,0 


03472 


-0763 CO 





00005 




LGL 


5 


0347 3 


0734 00 


2 


COOOO 




PAX 


0,2 


03474 


1 00001 


2 


03475 




TXI 


*+l,2,l 


03475 


0535 CC 


1 


03463 




LAC 


H,l 


03476 


0441 CO 


4 


OOOQO 


SFWLD 


LDI 


*#,4 


03477 


0446 CO 





00526 




ONT 


8TMASK 


03500 


0020 00 





03607 




TRA 


SFWSC 


03501 


1 77740 


1 


03502 




TXI 


*+l, 1,-32 


03502 


2 COCCI 


4 


03476 


SFWB 


rix 


SFWLD, 4,1 


03503 


0500 CO 





03750 


SFWDN 


CLA 


FWC 


03504 


0601 60 





03617 




STO* 


SFWA 



GET LIST LENGTH IF ANY 



EXIT 
LIST 



IF A 

ITEM 



NQN-LIST ARRAY 



MARK IT 

GET NEXT ITEM 

EXIT 

NOW SWEEP FREE STORAGE 

ZERO COUNT IR 

INITIALIZE COUNTER 

SWEEPING SIGNAL TO MQ 

INITIAL I Z.E LAST LOC IR 

TOP FREE STORAGE 

PICK UP WORD 

COLLECT IF SIGN NOW MINUS 

RESTORE WORD WITH + SIGN 

INCREMENT BY ONE 

LOOP IF LESS THAN BOTTOM FREE STORAGE 

ZERO LAST WORD COLLECTED 

SAVE COUNT 



THIS LOCATION 

STORE POINTER IN LAST 

UP DATE LASTL WORD IR 



WORD COLLECTED 



UPDATE COUNTER 

FULL WORD SPACE WITH THE BIT TABLE 

BEGINNING OF FULL WORD LIST 

INITIALIZE ADDRESS 

ZERO FULL WORD COUNTER 

BOTTOM FULL WORD SPACE 

TOP FULL WORO SPACE 

GET ADDRESS OF BIT TABLE CORRESPOND! 

TO THE BOTTOM OF FULL WORD SPACE 

BIT TABLE WORD 

MAKE INDEXING EASY 

ZERO AC 

BIT NUMBER 

INTO IR 2 

MAKE INDEXING EASY 

SET UP IR 1 

BOTTOM FREE STORAGE, <TBT + 11 

SEARCH FOR THE WORDS TO BE COLLECTED 

DECREMENT CURRENT LOC IR 

INDEX THROUGH BIT TABLE 

ALL DONE, GET FULL WORD COUNTER 

SET UP LAST CELL COLLECTED 



LS020610 



LS020620 
LS020630 
LS020640 
LS020650 
LS020660 
LS020670 
LS020680 
LS020690 
LS020700 
LS020710 
LS020720 
LS020730 
LS020740 
LS020750 
LS020760 
LS020770 
LS020780 
LS020790 
LS020800 
LS0208I0 
LS020820 
LS020830 
LS020840 
LS020850 
LS020860 



LS020870 
LS020880 
LS020890 
LS020900 
LS020910 
LS020920 
LS020930 
LS020940 
LS020950 
NGLS020960 
LS020970 
LS020980 
LS020990 
LS021000 
LS021010 
LS021020 
LS021030 
LS 02 1040 
LS021050 
LS021060 
LS021070 
LS021080 
LS021090 
LS021100 
LS021110 
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BINARY CARD NO. 


LISP0082 






03505 


0560 


CO 





04032 


LDQ 


RCSGNN 


03506 


0520 


CO 





03760 


ZEV 


RCT 


03507 


0C74 


CO 


4 


03725 


TSX 


REL0C.4 


03510 


0774 


00 


4 


00000 ZPDLA AXT 


**,4 


03511 


0600 


CO 


4 


00000 ZPDL STZ 


**,4 


035L2 


2 000C1 


4 


03511 


TIX 


*-l,4,l 


03513 


C5 60 


CO 





00436 


LDQ 


CRITWN 


03514 


0600 


00 





03765 


STZ 


RC8E 


03515 


0500 


CO 





03750 


CLA 


FWC 


3 516 


0040 


CO 





03520 


TLQ 


RCEA 


03517 


-0625 


CO 





03765 


STL 


RCBE 


03520 


0400 


CO 





03762 RCEA ADD 


TFWC 


03521 


0601 


GO 





03762 


STO 


TFWC 


03522 


-0763 


CO 





00004 


LGL 


4 


03523 


0500 


CO 





03752 


CLA 


FSC 


03524 


0040 


CO 





03526 


TLQ 


RCEB 


352 5 


-0625 


CO 


a 


03765 


STL 


RCBE 


03526 


0400 


CO 





03763 RCE8 ADD 


TFSC 


03527 


0601 


CO 





03 763 


STO 


TFSC 


03530 


0500 


CO 





03757 


CLA 


RCC 


03531 


C4C0 


CO 





00425 


ADD 


$G1 


03532 


0601 


CO 





03757 


STO 


RCC 


BINARY CARD NO. 


LISRG083 






0353 3 


05 CO 


00 





03761 


CLA 


RLC 


03534 


520 


CO 





03760 


ZET 


Rcr 


03535 


0400 


CO 





00425 


ADD 


$Q1 


03536 


0601 


CO 





03761 


STO 


RLC 


03537 


-0520 


CO 





03765 


NZT 


RCBE 


3540 


0020 


00 





03542 


TRA 


RCED 


03 541 


0020 


CO 





03544 


TRA 


RCEC 


03542 


-0520 


00 





04027 RCED NZT 


VERBOS 


03543 


020 


CO 


a 


3600 


TRA 


RCEXIT 


03544 


05 35 


CO 


4 


03603 RCEC LAC 


RCX,4 


03545 


-0754 


CO 


4 


00000 


PXD 


0,4 


03 546 


0131 


CO 





GO 000 


XCA 




3547 


0074 


CO 


4 


11731 


TSX 


0CTALP,4 


03550 


-C501 


CO 





00506 


ORA 


OBLANK 


03551 


0602 


GO 





03741 


SLW 


RCT1 


03552 


5 00 


CO 





03750 


CLA 


FWC 


03553 


0074 


CO 


4 


04653 


TSX 


$DECGN,4 


03554 


■0602 


CO 





03750 


SLW 


RCT4 


03555 


5 00 


CO 


C 


03752 


CLA 


FSC 


03556 


0C74 


CO 


4 


04653 


TSX 


$DECGN,4 


3557 


0602 


CO 





03752 


SLW 


RCT5 


03560 


500 


CO 





03756 


CLA 


GCPDLC 


BINARY CARD NO. 


LISR0084 






03561 


0074 


CO 


4 


04653 


TSX 


$DEC0N,4 


03562 


0602 


CO 





03756 


SLW 


RCT6 


03563 


-0520 


CO 





15702 


NZT 


TCNTMA 


03564 


0020 


CO 





03573 


TRA 


TGCPRT 


03565 


0500 


CO 





15677 


CLA 


TCNTMN 


3 566 


0074 


CO 


4 


04653 


TSX 


$0ECGN,4 



PASE 3 SIGNAL 

TEST FOR OUT OF ARRAY SPACE ENTRANCE 

RELOCATE AND COMPACT FULL WORD SPACE 

ZERO UNUSED PDL 

ZERO PDL WORD 

CRITACL WORD NUMBER 

INITIALIZE BAD EXIT TEST CELL 

NUMBER OF FULL WORDS COLLECTED 

TRANSFER IF MORE THAN CRITACL COLLECT 

NOT ENOUGH, SIGNAL BAD EXIT 

ADD TOTAL OF FULL WORDS COLLECTED 

UPDATE COUNTER 

INCREASE TOLERENCE BY 2 TO THc 4 TH 

NUMBER OF FREE STORAGE CELLS PICKED 

TRA IF GREATER THAN CRITACL NUMBER 

NO, SIGNAL BAD EXIT 

ADO TOTAL OF FREE COLLECTED TO DATE 

UPDATE TOTAL 

NUMBER OF RECLAMATION CYCLES 

INCREMENT BY 1 

UPDATE TOTAL 



LS021120 
LS02U30 
LS021140 
LS021150 
LS021160 
LS021170 
LS021180 
LS021190 
LS021200 
LS021210 
LS021220 
LS021230 
LS021240 
LS021250 
UPLS021260 
LS021270 
LS021280 
LS021290 
LS021300 
EXECUTE0LS021310 
LS021320 
LS021330 



NUMBER OF TIMES RELOCATION OF FWS 
SKIP IF NO RELOCATION 

UPDATE COUNTER 

SKIP IF BAD EXIT 

DO GOOD EXIT 

DO VERBOSE AND BAD EXIT 

SKIP IF TALKATIVE 

DO EXIT 

GET EXIT IR4 

AND CONVERT FOR PRINTING 



FULL WORD COUNTER 

CONVERT TO BCD DECIMAL 

PUT IN MESSAGE 

FREE STORAGE COUNTER 

TO DECIMAL 

PUT IN MESSAGE 

NUMBER OF ACTIVE REGISTERS ON POL 



TO 

IN 



DECIMAL 
MESSAGE 



LS021340 
LS021350 
LS021360 
LS021370 
LS021380 
LS021390 
LS021400 
LS021410 
LS021420 
LS021430 
LS021440 
LS021450 
LS021460 
LS021470 
LS021480 
LS021490 
LS021500 
LS021510 
LS021520 
LS021530 
LS021540 
LS021550 



LS021560 
LS021570 
LS021580 
LS021590 
LS021600 
LS021610 
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03567 


C6C2 


CO 





03745 




SLW 


RCT1+4 


03570 


-0130 


CO 





00000 




XCL 




03571 


CI CO 


CO 





03573 




TZE 


* + 2 


03572 


0602 


CO 





03744 




SLW 


RCT1+3 


03 573 


00 74 


CO 


4 


01527 


TGCPRT 


TSX 


OUTPUT, 4 


03574 


COO CO 


c 


00365 






BCDOUT 


03575 


COO 2 3 





03 734 






, RCTM,,19 


0357 6 


C520 


CO 





03765 




ZET 


RCBE 


0357 7 


0020 


CO 





03712 




TRA 


RCBEX 


03600 


0500 


CO 





04050 


RCEXIT 


CLA 


RCAC 


03601 


0560 


CO 





04051 




LDQ 


RCMQ 


03602 


0441 


CO 





03764 




LDI 


RCIND 


0360 3 


0774 


00 


4 


COOOO 


RCX 


AXT 


** ,4 


03604 


774 


CO 


2 


00000 


RCY 


AXT 


**,2 


03605 


0774 


CO 


1 


COOOO 


RCZ 


AXT 


** ,1 


0360 6 


020 


GO 


4 


00001 




TRA 


1,4 


RY CARD NO. 


LISP0085 








03607 


0446 


CO 


2 


04027 


SFWSC 


ONT 


MBIT, 2 


03610 


002O 


CO 





03615 




TRA 


SFWC 


03611 


1 77777 


1 


03612 




TXI 


*+ 1,1,-1 


03612 


2 000 01 


2 


03607 


SFWD 


TIX 


SFWSC, 2,1 


3613 


0774 


CC 


2 


00O4O 




AXT 


32,2 


03614 


0020 


CO 





03502 




TRA 


SFWB 


3615 


-0754 


CO 


1 


COOOO 


SFWC 


PXD 


0, 1 


03616 


04G0 


00 





03750 




ADO 


Fl*C 


03617 


0601 


00 





00000 


SFWA 


STO 


»* 


0362 


0400 


00 


c 


00425 




ADD 


$Q1 


0362 1 


0621 


CC 





03750 




STA 


FWC 


03622 


-0737 


00 


i: 


COOOO 




PDC 


0,1 


0362 3 


0634 


00 


l 


03617 




SXA 


SFWA, 1 


03624 


-0734 


CO 


i 


CGOQO 




PDX 


0, 1 


03625 


i 77777 


i 


C3612 




TXI 


SFWD, 1,-1 












* MRKLST 


THE RECURS 


03626 


3 OOOOC 


2 


03672 


FRKLST 


TXH 


MLEXT,2,»* 


03627 


-3 00000 


2 


03672 




TXL 


ML£XT,2 t ** 


03630 


0634 


CO 


I 


03670 




SXA 


MSRTN,1 


0363 1 


06 34 


CO 


4 


03671 




SXA 


MRKX,4 


363 2 


774 


00 


L 


00001 




AXT 


1,1 


03633 


0020 


CO 





03651 




TRA 


MLIST 



03634 0502 CO 2 OOOOO MWIN CLS 



BINARY CARD NC. LISP0086 



0363 5 


0120 CC 





03667 




TPL 


0363 6 


0601 CC 


2 


COOOO 




STO 


03637 


734 CO 


2 


OOOOO 




PAX 


0364C 


0622 00 


1 


COOOO 


MLEPD 


STD 


03641 


1 00001 


1 


0364 2 




TXI 


3642 


-3 OOOOO 


1 


03651 


ML PDC 


TXL 


03643 


0074 CO 


4 


03673 


MLPDE 


TSX 


03644 


004546604724 




SCI 



SKIP IF GOOD EXIT 

DO BAD EXIT 

RESTORE MACHINE REGISTERS 



AND INDEX REGISTERS 



EXIT 



CHECK FOR CURRENT B 
IS OFF, COLLECT WOR 
IS ON, DECREMENT CU 
INDEX THROUGH THE B 
SET UP IR WITH NUMB 
EXAMINE NEXT WORD I 

COLLECT THIS WORD, 
D PLUS NUMBER OF WO 
SET LAST WORD COLLE 
INCREMENT NUMBER OF 
SAVE FULL WORD COUN 
COMPLEMENT CURRENT 
TO FORM TRUE ADORES 
CURRENT LOCATION PO 
DECREMENT CURRENT L 



LS021620 
LS021630 
LS02164Q 
LS021650 
LS021660 
LS021670 
LS02I680 
LS021690 
LS021700 
LS021710 
LS021720 
LS021730 
LS021740 
LS021750 
LS021760 
LS021770 



IT LS021780 

D LS021790 

RRENT LOC IR LS021800 
ITS LS021810 

ER OF BITS PER W0RDLS021820 
N BIT TABLE LS021830 

LS021840 

POINTER TO THIS W0RLS021850 

RDS COLLECTED IN ACLS021860 

CTED LS021870 

FULL WORDS COLLECTLS021880 



TER 

LOCATION 

S FOR UPDATE 

INTER 

OCATION AND RETURN 



STORE 



SUBROUTINE THAT DOES ALL LIST MARKING 



NTERS TO PROGRAM 
POINTERS TO 



0,2 



MOUT 



BFW BAR, REJECT POI 

TFS BAR - 1, REJECT 

SAVE IR 1 

SAVE LINK IR 

PRESET TO ONE FOR FAST PUSH 

00 ACTUAL MARKING 



MARK THIS WORD IN FREE 



LS021890 
LS021900 
LS021910 
LS021920 
LS021930 
LS021940 
L SO 2 1950 
LS021960 
LS021970 
LOADERLS021980 
LS021990 
L SO 22000 
DOWN ACESSLS022010 
LS022020 
LS022030 
STORAGE LS022040 



0,2 

0,2 

**,1 

•♦1,1,1 

ML I ST, 1, 

RCERR,4 



TRANSFER OUT IF ALREADY MARKED 



LS022050 



*■* 



CAR OF LIST 

CAR TO IR 2 

ENDPOL ♦ 1, SAVE CDR OF LIST 

INCREMENT PUSH DOWN COUNTER 

ENDPOL - CtSCPPI) BAR,. GO IF 

OUT OF PUSH DOWN LIST, FATAL 



3,0N0 POL -MRKLST- 



LS022060 

LS022070 
ON POL LS022080 

LS022090 
NOT NOPDLLS022100 
ERROR LS022110 

LS022120 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
STORAGE CONTROL 



9/20/67 



PAGE 49 



03645 
03646 
03647 
03650 
03651 
03652 
03653 
03654 
03655 

03656 
03657 
03660 
0366 1 
03662 



43604C445 
4362634G6 



05C0 CO 
-0734 CO 
-3 00000 
-3 00000 
-3 OOCCC 
-3 COO CO 

0020 CO 

1 000 CC 
0754 CO 

-0765 00 
0734 00 

-0754 CO 



142 

060 
00000 
00000 
03667 
G3634 
03667 
03656 
03667 

03657 
00000 
00005 
00000 
00000 



BINARY CARD NO. LISP0087 



03663 
03664 
03665 
03666 
03667 
03670 
03671 
03672 



03673 
03674 
03675 
03676 
03677 
0370C 
03701 
03702 
0370 3 
03704 
03705 
03706 
03707 
03710 



-0763 CO 
0734 CO 
•0500 CG 
-C6C2 CO 
2 00001 
0774 CO 
0774 CG 
0020 CO 



-0634 CO 
0634 CO 

-0774 CO 
I 00001 
634 CO 
0074 00 
OOCCC 
C 00003 
0600 CO 
600 
0441 
0C55 
06C4 
0074 



00005 
OCOOO 
04026 
00000 
03647 
00000 
00000 
00001 



CO 
CO 
CO 
CC 
CO 



02 3 13 
03675 
00000 
03677 

03 702 
01527 
00365 
00000 
G4512 
04470 
11254 

000010 
11254 
4 01767 



BINARY CARD NC. LISP0G88 

03711 CC20 CC 11140 



03712 


0441 


CO 





03764 


03 713 


5 CO 


00 





04050 


03 714 


0560 


CO 





04051 


03715 


0534 


CO 


4 


03603 


03716 


0534 


CO 


2 


03 604 


03717 


534 


CO 


1 


360 5 


03720 


-0634 


CO 


4 


02313 


03721 


601 


CO 





02307 


03722 


-0 7 54 


CO 





OOOQO 



MLEPE 

ML 1ST 
MLBFA 
MLBBJ 
MLBDW 



MONE 



* 



MLTBT 

MOOT 

MSRTN 

MRKX 

MLEXT 

RCERR 

RC6RR 



CLA 
PDX 
TXL 
TXL 
TXL 
TXL 
TRA 

TXI 

PXA 
LGR 
PAX 
PXD 



LGL 
PAX 
CAL 
ORS 
TIX 
AXT 
AXT 
TRA 



RCFEM 



RC8EX 



SXD 
SXA 
AXC 
TXI 
SXA 
TSX 



STZ 
STZ 

LDI 
SIR 
ST I 
TSX 



TRA 

LDI 
CLA 

LDQ 
LXA 
LXA 
LXA 
SXD 
STO 
PXD 



**, 1 
0,2 

MOOT, 2,** 
MWIN»2,*» 
MGUT„2,*» 
MGNE,2,»* 
MOUT 

*+l,2,*» 
0,2 

5 
0,2 

0,0 



5 

0,4 
BIT, 4 
**,2 

MLEPE, 1,1 
**» I 
**,4 
1,4 



ENDPDL + 1, GET CDR OF LIST 

PUT IN m 2 

TFS BAR - 1, OUT IF 

BOTTOM FREE STORAGE 

BBT BAR OUT IF PQI 

BOTTOM FULL WORD BA 

EXIT „ NOT ANY OF ABOVE 



NOT IN LISP 
BAR, IN FREE 
NTER TO BIT TABLE 
R, IN FULL WORD 



TOP FULL WORD 
CALCULATE BIT TABLE 

BIT TABLE WORD 



WORD AND BIT 



BIT TABLE BIT 

PICK UP BIT 

TOP BIT TABLE,. PUT IN BIT 

GO BACK IF IN RECURSION 

OTHERWISE RESTORE IR 1 

AND LINK IR 

AND EXIT 



RECLAIMER FATAL ERROR DUMP ROUTINE 



$ERR0R,4 
* + l,4 
** ,4 
*+l ,4, 1 

RCFEM, 4 
OUTPUT, 4 
BCDOUT 
**>»3 

$FREE 

FWORDL 

SYSIND 

ERRORI 

SYSIND 

$TIME,4 



CVRLRD 

RCIND 

RCAC 

RCMQ 

RCX,4 

RCY,2 

RCZ,1 

$ERR0R,4 

$ERAC 

0,0 



SAVE IR 4 

COMPLEMENT IR 4 TO GET ERROR MESSAGE 

LOCATION OF ERROR MESSAGE 

BUILD 0U1PUT CALL 

WRITE ERROR MESSAGE ON TAPE 

WRITE OUT 3 WORDS 

ZERO STORAGE LISTS 

GET SYSTEM INDICATORS 

SET ERRIR INDICATOR 

UPDATE REGISTER 

PRINT THE CURRENT TO TIME 



GET NEXT DIRECTION CARD 
RESTORE MACHINE REGISTERS 

AND INDEX REGISTERS 



SAVE IR 4 

SAVE THE CONTENTS OF THE AC 



LS022130 
LS022140 
ST0RAGLS02215O 
LS022160 
LS022170 
LS022180 
LS022190 
LS022200 
LS022210 
LS022220 
LS022230 
LS022240 
LS022250 



LS022260 
LS022270 
LS022280 
LS022290 
LS022300 
LS022310 
LS022320 
LS022330 
LS022340 
LS022350 
LS022360 
LS022370 
LS022380 
LS022390 
LS022400 
LS022410 
LS022420 
LS022430 
LS022440 
LS022450 
LS022460 
LS022470 
LS022480 
LS022490 
LS022500 



LS022510 
LS022520 
LS022530 
LS022540 
LS022550 
LS022560 
LS022570 
LS022580 
LS022590 
LS022600 
LS022610 



mm 
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3 723 
03724 



0074 CO 4 02314 
54272360C254 



03725 
03726 
03727 
0373C 
03731 
03732 
03733 



0634 CO 4 03732 
0074 CC 4 03673 
004546605125 
434623216346 
516060606060 
0774 CO 4 0000-0 
C02O CO 4 00001 



03734 
03735 
03736 

BINARY CA 
03737 
03 740 
03741 
03742 
3743 
03 744 
03745 
03 746 
03747 
03750 
03751 
03752 
03 753 
03754 
03755 
03756 



03757 

03760 

0376 1 
03762 

03763 



602721512221 
2 7 256C234 643 
432523634651 

RD NO. LISP0089 
602545632551 
25246C216360 
COOOO COOOO 
604623632143 
33606C606060 
606060606060 
6C6O6G606060 
606026644343 
606646512462 
OOOCO OCOQO 
602651252560 
C COOOO COOQO 
606047646230 
6C2446664560 
242547633060 
COOOO OCOOO 
03750 
03752 
03756 
00000 
COOOO 
03760 
00000 
00000 
COOOO 
00525 
00 52 5 
00000 



c 



C 






GOOOO 
OOOCO 

COOOO 
00000 
OOOCO 



03764 00000 



BINARY CARD NC. LISP0G90 

03765 C 00000 00000 

03766 COOOO 00000 

00436 



TSX 

BCI 



$ERR0R+1,4 
1,*GC 2* 



* RELOC 
* 



RELOC SXA 
TSX 

BCI 



RELX AXT 

TRA 



GO TO ERROR LS022620 

NOT ENOUGH WORDS COLLECTED -RECLAIMER-LS022630 

LS022640 
RELOCATES ALL ITEMS IN FULL WORD SPACE INTO A COMPACTED 
BLOCK TO MAKE BLOCKS OF CONTIGOUS STORAGE AVAILABLE FOR 
ARRAYS. 



RELX, 4 

RCERR,4 

3,CN0 RELOCATCR 



** ,4 
1,4 



SAVE LINK IR 

THIS RPUTINE HAS NOT BEEN CODED YET. 



RESTORE LINK IR 
RETURN TO MAIN PROGRAM 



* MESSAGES AND CONSTANTS PLUS STORAGE GO HERE 
RCTM BCI 5, GARBAGE COLLECTOR ENTERED AT 



LS022650 
LS022660 
LS022670 
LS022680 
LS022690 
LS022700 
LS022710 



LS022720 
LS022730 
LS022740 
LS022750 
LS022760 
LS022770 



RCTl 



RCT4 



RCT5 



RCT6 

fwc 

FSC 

GCPDLC 
RCC 
RCT 

RCRLOC 
RLC 
TFWC 
TFSC 
MONES 
MONS 
RCIND 



BCI 



BCI 



BCI 



BCI 



SYN 
SYN 
SYN 



SYN 



SYN 
SYN 



RCBE 
MARYT 
CRITWN SYN 



4, OCTAL. 

2, FULL WORDS 

1, FREE 

3, PUSH DOWN DEPTH 



THE CALL LGCATION IS PUT HERE 



NUMBER FOIL WORDS COLLECTED 
FREE STORAGE WORDS COLLECTED 



LS022780 
LS022790 



LS0228O0 

LS022810 
LS022820 
LS022830 
LS022840 



RCT4 
RCT5 
RCT6 



RCT 



SEVENS 
SEVENS 



DEPTH ON PUSH DOWN LIST GOES HERE 
STORAGE SAVING SYN S 



TOTAL NUMBER OF RECLAMATION 
TEST CELL TO SEE IF RELOCAT 



LS022850 
LS022860 
LS022870 
LSO22880 
CYCLES LS022890 
ION WAS DONLS022900 
LS022910 



NUMBER OF TIMES RELOCATION WAS DONE 
TOTAL FULL WORDS COLLECTED 
TOTAL FREE STORAGE COLLECTED 



INDICATOR STORAGE 



TEST CELL FOR BAD EXIT 
TEMPORARY STORAGE 



SQ10 



LS022920 
LS022930 
LS022940 
LS022950 
LS022960 
LS022970 



LS022980 
LS022990 
LS023000 



mmmm 
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03767 
03770 
03771 
03772 
03773 
03774 
03775 
03776 
03777 
04000 
0400 1 
0400 2 
04003 
04004 
04005 
04 006 
04007 
0401C 
04011 
04012 



+CCG0O0 
+OCCOOC 
+CGG00C 
+CG0OCC 
+000OOC 
+0CC00C 
+OCGGOC 
+CCGCOC 
+0C0OOC 
+C0000C 
+C0COCC 
+CC00OC 
+000000 
+00CCOC 
+CC0001 
+C 00002 
+00 COO 4 
+C0GO1C 
+CCG02C 
+00004C 



000020 
000040 
0CC100 
COO 200 
000400 
00100G 
002000 
004000 
01O000 
0200C0 
040000 
100000 
200000 
400C00 
000 000 
000000 

ccoooo 

CGCOOO 
GGOGCO 
GOO 000 



* BIT TABLES FOR MARKING AND SWEEPING FULL WORD SPACE 

OCT 20 

OCT 40, 100, 200, 400, 1000,2000, 4000, 10000,20000,40000,100000 



OCT 



LS023010 
LS023020 
LS023030 
LS023040 
LS023050 



200000,400000, 10000CO, 2000000,4000000, 10000000,20000000 LS023060 



OCT 



40000000,100000000,200000000,400000000,1000000000 



LS023070 



BINARY C 
0401 
0401 
0401 
0401 
0401 
0402 
0402 
0402 
0402 
0402 
0402 
0402 



ARD NG. 

3 +00010 
+0C02O 
+C0C40 
+00100 
+00200 
+CC400 
+.01 COO 
+G2C00 
+04 COO 
+1CC00 
+2CC00 
-0 G COO 



LISPOC?! 
CCOCOOG 
CCOOOCC 
CO 00 000 
C 000000 

ooooooo 

COGOG0G 

CGCCOOO • 

CCOOOGG 

OGOOOOO 

COCOOOO 

COGCOGG 

CCOGOOO 

04027 
03766 



OCT 



OCT 



BIT OCT 
MBIT SYN 
MBITF SYN 



04027 -377777777777 



04030 
04031 
0403 2 
04033 
04034 

0403 5 

040 36 
04037 

0404 C 



■mini linn 

+222222222222 
+333333333333 

C OOOCO C CGOOG 
-3 OOOCO 7 00000 

C OOOCO 00000 



73740 
0056 7 
73736 



73741 
00530 
73737 



VERBOS 

* 

RCSGNL 

RCSGNM 
RCSGNN 
TMLM 
TMPTM 
MRKP 
* 
TEMXX 



OCT 

OCT 
OCT 
OCT 

SVN 



2000000000,4000000000,10000000000,20000000000 



40000000000,100000000000 ,.200000000000 



400000000000 
BIT+1 

BIT-32 



7 77777777777 

111111111111 
222222222222 
333333333333 



LS023080 



LS023090 



~~*-L f ,-*-2 
BCCNAT,,ECONAT 
-*-l, ,-*-2 



LS023100 
LS023110 
LS023120 
LS023130 
LS023140 
THIS CELL NON ZERO MAKES THE RECLAIMERLS023150 
VERY TALKATIVE LS023160 

LS023170 
LS023180 
PHASE SIGNALS FOR MQ LS023190 

TEMPORARY STORAGE LS023200 

PREFIX AND TAG MASK LS023210 

TEMPORARY STORAGE LS023220 

LS023230 
PERMENANT TEMLIS ITEMS LS023240 

LS023250 
LS023260 
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BINARY CARD NC. LISPCCS2 



04041 


C 


20056 





2G052 


04042 


c 


000 CO 





73735 


04043 


c 


C445C 





04046 



C$PROBE,,C$PRCEN 
BEGBLK, , FNDBLK-1 



LAP PROTECTED AREA 
END OF TEMIilS 
FUNCTION STORAGE 



VERB£S(X} SETS VERBOS CELL TO X — 
X = NIL TURNS OFF GC CONVERSATION 



04044 C601 CO 04027 GCTALK STO VtRBCS 



04045 0020 CO 4 00001 



TRA 1,4 



LS023270 
LS023280 
LS023290 
LS023300 
LS023310 
LS023320 
LS023330 
LS023340 
LS023350 
LS023360 



A: 



('^AA'.qA'"''^ ^ 



(s-,/;/: 



f i{ : 



WN 
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04046 

04 046 
0404 7 
04050 
04051 

04052 
04053 
04054 
04055 
04056 



04057 
O4O60 



7374 2 00000 

GOOGO COOOO 

C COOCC € 00000 

C OOOOO COOQO 

C COOCC OOOQO 
C COO GO 00000 
OOOCC ocooo 
G CGOCC 04055 
00000 00000 



OOCCO ooooo 
G 00000 ooooo 



BEGBLK 
* 

TEMLIS 

ARYLIS 
RCAC 
RCMQ 

* 
CNXT 
CN'X 
CNFT 
CNAT 
CNVA 

*** *** 



CSV 
ALIST 



EJECT 



BSS 



STORAGE BLOCK FOR FUNCTIONS ALL OVER THE PACKAGE 





RECLAIMER 

,,-TEMXX 



STORAGE TC BE MARKED 

LIST OF ACTIVE 
AC STORAGE 
MQ- STORAGE 



ARRAYS 



CNSFWL STORAGE 



POINTER 
POINTER 
POINTER 
POINTER 
POINTER 



TO NE<XT WORD 
TO NEiXT WORD 
TO NEXT WORD 
TO FIRST WORD 
TO FIRST WORD 



LS023370 
LS023380 
LS023390 
LS023400 
LS023410 
LS023420 
LS023430 
LS023440 
LS023450 
LS023460 
ON LINEAR 0BJLISTLS023470 
ON PROPERTY LIST LS023480 
ON PNAME LIST 
CURRENT ATOM 
PNAME LIST 



OF 
OF 



THESE CARDS ARE A BLOCK 

HEAD A 



HEAD 



SAL I ST AND RET IRA 

ARGUMENT REGISTERS 

REFEREO TO BY COMPILED FUNCTIONS 



RfcGISTERS FOR 
NORMALLY 



FUNCTION 
USED. 



ARGUMENTS. 



ARG1 ANDARG2 ARE MOT 



04061 


C 


000 GG 





COOOO 


ARG1 


04062 





OOOGO 





OOOOO 


ARG2 


04063 





OOOCC 





OOOOO 


ARG3 


04064 


c 


OOOCC 


c 


COOOO 


ARG4 


04065 





COO CO 





OOOOO 


ARG5 


04066 





000 GO 


G 


OOOOO 


ARG6 


BINARY CARD NC. LISP0C93 




0406 7 





OOOGO 





OOOOO 


APvGT 


04070 





OOOOO 


C 


COOQO 


ARG8 


040 71 


C 


GOOCG 


C 


OOOOO 


ARG9 


040 72 


c 


COOCC 





OOOOO 


ARG10 


04073 





OOOGO 





ooooo 


ARG11 


04074 





OOOCC 


C 


ocooo 


ARG12 


04075 





COCGG 


G 


OOOQO 


ARG13 


040 76 


c 


OOOOO 





OOOOO 


ARG14 


04077 





OOOGO 


G 


COOOO 


ARG15 


04100 


G 


OOOCC 





OOOQO 


ARG16 


04101 





COOCC 





OCOOO 


ARG17 


04102 


G 


OOOOO 





COOOO 


ARG18 


0410 3 


C 


OOOOO 





ooooo 


ARG19 


04104 





OOOGO 





ooooo 


ARG20 



#***««**«*««***««#»*****#*****««****** *'<* * * *i» * ; ..»:ttt.i* * 



0410 5 





OOOCC 





12551 


EVA1 


0410 6 


C 


OOOGO 





CGOOO 


EVA2 


04107 


c 


GOOGO 





OOOOO 


EVA9 



HEAD 



HEAD 



041 IC OOOGO 12541 AS! 



R 
$AND 



A 
$F1 



AND 



APPEND 



LS023490 
LS023500 
LS023510 
LS023520 
LS023530 
LS023540 
LS023550 
LS023560 
LS023570 
LS023580 
LS023590 
LS023600 
LS023610 
LS023620 
LS023630 
LS023640 
LS023650 
LS023660 
LS023670 



LS023680 
LS023690 
LS023700 
LS023710 
LS023720 
LS023730 
LS023740 
LS023750 
LS023760 
LS023770 
LS023780 
LS023790 
LS023800 
LS023810 
LS023820 
LS023830 
LS023840 
LS023850 
LS023860 
LS023870 
LS02388G 
LS023890 
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04111 C COOCO 00000 CWR1 

04112 C COOCO 00000 ASS1 

04113 OOOCC 00000 ASSL 

04114 OOOCC OOOOO ASSA 

BINARY CARD NO. LISPCG94 

04115 COOCO OOOOO AST1 

04116 C COOCO C CGOOO AST2 

04117 C COOCO OOOOO AST3 
0412C OOOCO OOOOO AST4 

04121 C COOCC 12207 CS1 

04122 C COOCC OOOQO CS2 

04123 OOOOO OOOQO CPF 



04124 


C 


OOOCC 





12237 


0412 5 





OOOCC 


C 


OOOOO 


04126 





OOOCO 





OOOOO 


04127 





COOCC 





OOOOO 


04130 





OOOCO 





11736 


04131 





OOOCO 





OOOQO 


04132 


c 


COOCO 





OOOOO 


04133 


c 


COOCC 





OOOOO 


04134 


c 


COOCO 





OOOOO 


04135 


-0 


COOCC 





OOOOO 


0413 6 


c 


OOOOO 





OOOQO 


04151 











BINARY CARD NO. LISP 009 5 

0415 1 COOCO OOOOO 

04152 COOCO OOOOO 

04153 COOCC 11564 

04154 COOCO OOOQO 

04155 OOOCC COOOO 

04156 COOCO COOOO 



04157 C COOCO OOOQO 

04160 C OOOCC OOOQO 

04161 COOCO 11373 

04162 OOOCC COOOO 

04163 C OOOCO OOOOO 

04164 C OOOCO 11363 

04165 C COOCO OOOOO 

04166 C COOCO OOOOO 

04167 OOOCO OOOQO 



HEAD 



HEAD 



HEAD 



APPLY 



R 
$CCPYN 





HEAD 


A 


ECS1 




4CCND 


ECS2 






EC S3 






ECS 4 








HEAD 


R 


EVLX 




EVLISL 


ELA 








HEAD 


A 


EVS1 






EVSE 






EVSA 






EVTRK 


MZE 




EVCDR 






EAG11 


BES 


10 


EVTDE 






EVD2 








HEAD 


R 


GOX 




$G0 




HEAD 


R 


BFS4 








HEAD 


R 


BFS2 






BFS3 

At 








HEAD 


C 


LNKA 






LNKG 








HEAD 


D 


RET 




$PMAPCA 


L 






F 








HEAD 


R 


MCN5 




-$)069B 


MCN4 






MCN3 






MCN2 







COPY 



CP1 

CP1 ANSWER CELL 

EVCON 



ALIST 



EVLIS 
LINK T.R 

EVP26 

IR4, BOTTOM OF PROTECTED TEMP, 



TRACE SWITCH 

ARG IT ST FOR SUBR ARGUMENTS 

ARGUMENT BLOCK FOR EVAL 



CDRIE) 

GO SPECIAL FORM 

LINK IR 

LABP 

LAMP 



LINK FOR COMPILED FUNCTIONS 
LINK STORAGE FDR AC 
LINK STORAGE FOR MQ 
MAPCAR 



MAPCON 



LS023900 
LS023910 
LS023920 
LS023930 
LS023940 



LS023950 
LS023960 
LS023970 
LS023980 
LS023990 
LS024000 
LS024010 
LS024020 
LS024030 
LS024040 
LS024050 
LS024060 
LS024070 
LS024080 
LS024090 
LS024100 
LS024110 
LS024120 
ST0RAGELS024130 
LS024140 
LS024150 
LS024160 
LS024170 
LS024180 



LS024190 
LS024200 
LS024210 
LS024220 
LS024230 
LS024240 
LS 024250 
LS024260 
LS024270 
LS024280 
1S024290 
LS024300 
LS024310 
LS024320 
LS024330 
LS024340 
LS024350 
LS024360 
LS024370 
LS024380 
LS024390 
LS024400 



IPIPPillWilBfillllilWiBfWWWIWHiW^ 
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HEAD 



04170 
04171 
0417 2 
04173 
04174 



C 


c 
c 


cooco 
coooo 
oooco 
oooco 
oooco 









11353 

OOOQO 
COOOO 
COOOO 

coooo 


04175 
04176 






oooco 
cooco 






11162 

OOOQO 



MSI 
MS2 

MS3 
MS4 



EVR1 
EVR2 



HEAD 



R 

-$)069A 



R 
$0R 



MAPLIS 

LINK IR STORAGE 
ARGUMENT L 
FUNCTIONAL ARGUMENT 
FINAL ANSWER 
INTERMEDIATE ANSWER 

OR 



LS024410 
LS024420 
LS024430 
LS024440 
LS024450 
LS024460 
LS024470 
LS024480 
L SO 24490 



BINARY CARD NC. LISP0096 

04177 OOOCO 00000 



EVR9 



HEAD 



0420G 





cooco 





coooo 


TEM 






04201 


C 


oooco 





OOOQO 


LIS 


HEAD 


P 


04202 


C 


oooco 





OOOQO 


PAS3 






0420 3 





cooco 





00 000 


PAS4 


HEAD 


R 


04204 





cooco 





11025 


INTRX 




$PROG 


04205 





oooco 





OOOQO 


INTB 






04206 


C 


cooco 





OOOQO 


INTGL 






04207 


C 


coooo 





COOOO 


INTPL 






04210 





cooco 





CGOQO 


INTGS 


HEAD 


I 


04211 


a 


coooo 





10753 


RSI 




*F13 


04212 


c 


oooco 





00000 


RS2 






04213 





oooco 


c 


coooo 


PRINTL 


HEAD 


R 


04214 





cooco 





10547 


SRS1 




$SKCH 


04215 


c 


oooco 





OOOQO 


SRS2 






04216 





cooco 





COOOO 


SRS3 






04217 





oooco 


c 


COOQO 


SRS4 






04220 


c 


000 00 





COOOO 


SRS5 


HEAD 


R 


04221 





oooco 





10527 


REPS1 




$SETQ 


04222 


c 


COO CO 





00000 


REPV 






04223 


G 


cooco 





coooo 


REPT1 


HEAD 


B 


04 22 4 





oooco 





10433 


XI 




$F17 



PAIR 

FIRST ARGUM 
SECOND ARGU 
PRINAR 



PROGRAM FEA 
LINK INDEX 
CURRENT ST A 
GO LIST, (LI 
PAIR LIST 
GO SWITCH , 
READ! 



TEMPORARY S 

SEARCH 

IR4 

L 

P 

F 

U 

SETQP 



SUBLIS 
IR4 OF 



ENT 
MENT 



TURE 

REGISTER 
TEMENT 
ST OF PROGRAM POINTS) 



LS024500 
LS024510 
LS024520 
LS024530 
LS024540 
LS024550 
LS024560 
LS024570 
LS024580 
LS024590 
IR2LS024600 
LS024610 

NON-ZERO IF GO OR RETURN LS024620 

LS024630 
LS024640 
LS024650 

ORAGE FOR PRINT OR PUNCH LS024660 

LS024670 
LS024680 
LS024690 
LS024700 
LS024710 
L SO 24720 
LS024730 
LS024740 
LS024750 
LS024760 
LS024770 
SUBLIS LS024780 



BINARY CARD NC. LISP0G97 



0422 5 





GOO CO 





coooo 


X2 


04226 





COOCO 


c 


OOOQO 


X3 


0422 7 





OOOCO 


G 


00000 


X4 


04230 


G 


COOCO 





00000 


X5 


04231 


c 


cooco 





coooo 


X6 


04232 





G00CC 





OOOQO 


P 


0423 3 


c 


000 cc 





00000 


E 


04234 





cooco 





coooo 


SXT 


04235 





cooco 


c 


OOQQQ 


SI 


04236 





cooco 





COOQO 


SX 


0423 7 


c 


cooco 





OOOOG 


SY 


0424 C 


G 


oooco 





00000 


ST 



HEAD 



SAVED E 
D E 

SU8A JA E) 
SUBA ID E) 
X FOR THE FUNCTION 



SUBST 



IN ADDRESS PART 



SUB1 



LS024790 
LS024800 
LS024810 
LS024820 
LS024830 
LS024840 
LS024850 
LS024860 
LS024870 
LS024880 
LS024890 
LS024900 
LS024910 
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HEAD 



Q 



04241 OOOCO 00000 

04242 OOOCO 00000 
0424 3 C OOOCO OOOQO 
04244 OOOCO GOOOG 



04245 
04246 

04247 
04250 



COOCO 00000 
G COOCO CGOQO 

OOOCO 00000 



BINARY CARD NC. LISPCC98 

04414 -0 OOOCO 00000 



04415 
04416 



AMIR 






AM INO 






AMLIS 






AMQ 






AFAT 






ATMP 








HEAD 


S 


EVQAN 








BSS 


ICC 


EVQB 


MZE 






HEAD 


F 
CHA 


B8PNT 


BSS 


1 


PIND 


BSS 


1 



ADD, ETC. 

IR 4 STORAGE 

INDICATOR REGISTER STORAHE 

LIST STORAGE 

TYPE STORAGE 

ARRAY MAKE PROGRAM 

ARRAY ATOM GOES HERE 

TEMPORARY STORAGE 

EVALQUOTE STORAGE 

EVALQOOTE BUFFER 



TEST CELL FOR READ IN 



CHARACTER FUNCTIONS 

POINTER TO REMAINDER OF LIST 

MKNO 



LS024920 
LS024930 
LS024940 
LS024950 
LS024960 
LS024970 
LS024980 
LS024990 
L SO 2 5000 
LS025010 
LS025020 



LS025030 
LS025040 
LS025050 
LS025060 
LS025070 
LS025080 



BINARY CARD NC. LISP0C99 

04417 00000 OCOQO 

04420 

04451 



MKT1 

BSS 
ENDBLK BSS 



TEMP STORAGE TYPE (FIX OR FLO) 
ROOM FCR WORE STORAGE 



LS025090 
LS025100 
LS025110 
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EJECT 
















HEAD 















* CONSW 


PUTS FULL 


WORDS IN 


BINARY CARD NO. LISP0100 










04451 


0634 00 


4 


04465 


CONSW 


SXA 


CSWX, 4 




04 45 2 


-0 5 34 CO 


4 


04470 


FWLOR 


lxp 


FW0RDL t 4 




04453 


-3 000 CO 


4 


04606 




TXL 


FWL0UT,4,0 




04454 


-0600 CC 





04467 




STQ 


CSWQ 




04455 


0560 CO 


4 


00000 




LOQ 


0,4 




04456 


-0620 00 





04470 




SLQ 


FWORDL 




04457 


0601 CO 


4 


00000 




STO 


C4 




04460 


-C754 00 


4 


CGOOO 




PXD 


0,4 




04461 


-C5 34 CC 


4 


04 470 




LXD 


FWORDL, 4 




04462 


3 00000 


4 


04464 


LOWARY 


TXH 


CSWO, 4,** 




04463 


-0634 CO 


4 


04 462 




SXD 


*-l,4 




04464 


560 CC 





04467 


CSWO 


LDQ 


CSWQ 




04 465 


07 74 CO 


4 


00000 


CSWX 


A XT 


**,4 




04466 


002O 00 


4 


00001 




TRA 


1,4 




0446 7 


00000 





coooo 


CSWQ 








04470 


COOCO 


C 


ooooc 


FWORDL 
# 

* CONS 




BASIC LISP 


FUNCTION 


04471 


6 34 CO 


4 


04 510 


CONS 


SXA 


CNSX, 4 




04472 


-0534 CO 


4 


04512 




LXD 


*FREE,4 




04473 


3 00000 


4 


04475 




TXH 


*+2,4,0 




04474 


0074 CO 


4 


04614 




TSX 


F ROUT, 4 




04475 


0771 CO 





00022 




ARS 


18 




04476 


0621 CO 


4 


00000 




STA 


0,4 




BINARY CARD NO. LISP 0101 










04477 


0500 CO 


4 


coooo 




CLA 


0,4 




0450C 


0622 CO 





04512 




STD 


FREE 




04501 


-0620 00 


4 


COOOO 




SLQ 


0,4 




04502 


-0754 GO 


4 


00000 




PXD 


0,4 




04503 


0774 00 


4 


00000 


CNTR1 


AXT 


** ,4 




04 504 


2 000 CI 


4 


0450 7 




TIX 


*+3,4 ,1 




04505 


0074 GO 


4 


04513 




TSX 


ARREST, 4 




04 506 


0774 GO 


4 


7 7777 




AXT 


-1,4 




04507 


634 CO 


4 


04503 




SXA 


CNTR1,4 




045 1 C 


774 00 


4 


CGOOO 


CNSX 


AXT 


**,4 




04511 


0020 00 


4 


00O01 




TRA 


1,4 




04512 


00000 





00000 


FREE 








04513 


-0520 CO 





12662 


3t 

ARREST 


NZT 


TCOUNT 




04 514 


020 CO 


4 


00001 




TRA 


1,4 




04515 


0601 00 





04651 




STO 


CNTM 




04516 


C50O 00 





04 650 




CLA 


CNTS 




04517 


C100 00 





04524 




TZE 


A WHOA 




04520 


4 02 CO 





04652 




SUB 


CTG 




04521 


0601 GO 


c 


04650 




STO 


CNTS 




04522 


C500 CO 





04651 




CLA 


CNTM 




04523 


0020 CO 


4 


C0001 




TRA 


1,4 





FULL WORD SPACE 



SAVE LINK IR 

PICK UP FULL .WORD LIST 

TEST FOR NO WORE 

SAVE MQ 

PICK UP POINTER TO NEXT WORD ON FWL 

UP DATE FULL WORD LIST POINTER 

PUT AC IN FULL WORD AREA 

POINTER TO AC 

POINTER TO NEXT AVAILABLE WORD 

BOTTOM FULL WORD SPACE, TEST FOR ARY 

AVAILABLE LOCATION AND UPDATE SAME 

RESTORE MQ 

RESTORE LINK LR 

EXIT 

TEMPORARY STORAGE FOR MQ 

POINTER TO FULL WORD LIST 



PUTS A WORD IN FREE STORAGE 

SAVE LINK IR 

GET FREE STORAGE LIST POINTER 

SKIP IF NOT OUT OF FREE STORAGE 

GUT OF ?R£E STORAGE 

DECREMENT TO ADDRESS 

PUT ADDRESS ANY 



GET POINTER TO NEXT WORD IN FREE 

PUT IN FREE 

PUT DECREMENT AWAY 

POINTER TO WORD 

LOW ORDER 15 BITS OF CONS COUNTER 

DECREMENT COUNT BY 1 

COUNT EXHAUSTED, RELOAD OR STOP 

RELOAD NUMBER 

PUT IN COUNTER 

RESTORE LINK IR 

EXIT 

POINTER TO FREE STORAGE LIST 

SKIP TF COUNS COUNTER ON 

OTERWaSE RETURN 

SAVE AC 

GET REST OF COUNTER 

GO TO ERROR CALL TF EXHAUSTED 

DECREMENT BY 32*7%8 

UPDATE COUNTER 

RESTORE AC 

E7IT TO RELOAD CNTR1 



LS025120 
LS025130 
LS025140 
LS025150 



LS025160 
LS025170 
LS025180 
LS025190 
LS025200 
LS025210 
LS025220 
LS025230 
LS025240 
LS025250 
LS025260 
LS025270 
LS025280 
LS025290 
LS025300 
LS025310 
LS025320 
LS025330 
LS025340 
LS025350 
LS025360 
LS025370 
LS025380 
LS025390 
LS025400 



LS025410 
LS025420 
LS025430 
LS025440 
KEPTLS025450 
LS025460 
LS025470 
LS025480 
LS025490 
LS025500 
LS025510 
LS025520 
LS025530 
LS025540 
LS025550 
LS025560 
LS025570 
LS025580 
LS025590 
LS025600 
LS025610 
LS025620 
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04524 0634 CO 12662 



BINARY CARD NO. LISP0102 



04525 0500 CO 

04526 0560 GO 

04527 -C634 CC 

04530 CC74 00 

04531 0074 00 



04 642 

00532 

4 02313 

4 13624 

4 02314 



04532 54266C600154 



04533 
04534 
04535 
04536 
045 3 7 
04540 
04 541 
04542 



04543 
04 544 
04545 
04546 
04547 
04550 

0455 1 
04552 

BINARY CA 
04553 
04554 
04555 
04556 
04557 
0456C 
04 561 
04562 
04563 
04564 

0456 5 
04566 
04 567 
04570 
04571 
04572 
04573 
04 574 
04575 



05C0 
-0320 
•■0 501 
601 
500 
0402 
C5 60 
0020 



0634 
0621 
•0520 
0534 
0520 
5 34 
07 54 
0401 



CC 

CO 
CO 
CO 
CO 
CO 
CO 
CO 



00513 
04503 
04650 
04651 
04642 
04651 
00532 
13624 



CC 

CC 
CC 
CO 
CO 
CO 
CO 
CC 



RD NC. 

0621 

734 

0402 

0621 
-0 520 

0522 

0520 

0522 
-0520 

0634 

0520 

0634 

0774 

0600 

2 0OOC1 

0500 00 

0774 CO 

0020 CO 

COOCO 



LI 

CO 
CO 
GO 
CO 
CO 
CC 
CO 
CO 
CO 
00 
GO 
CO 
00 
GO 



4 04573 

04567 

03073 

4 03O65 

03073 

4 03O54 

4 00 000 

04567 

SP0103 
04 570 
4 CO 000 
00425 
04575 
0307 3 
04 5 77 
03073 
04576 
03073 
4 03065 
03073 
03054 
OGOQO 
00000 
045 70 



C 
C 



C 
4 
4 
4 
4 
04575 



4 
4 



OGOOO 
00001 



» 
* 



AWHOA SXA 



CLA 
LDQ 
SXD 
TSX 
TSX 
BCI 

SPEAK 



SPEAK 



CLA 
ANA 
ORA 
STO 
CLA 
SUB 
LDQ 
TRA 



* BLOCKR 



BLOCKR 



BKOR 



00000 



BLKB 
BLKC 



BLKX 



BLKBB 



SXA 
STA 
NZT 
LXA 
ZET 
LXA 
PXA 
ADM 



STA 
PAX 
SUB 
STA 
NZT 
XEC 
ZET 
XEC 
NZT 
SXA 
ZET 
SXA 
AXT 
S7Z 
TIX 
CLA 
AXT 
TRA 



TCOUNT,0 



CNTST 

$FIXD 

$ERR0R,4 

$MKN0,4 

$ERR0R+1,4 

li*F 1* 



DEACTIVATE THE CONS COUNTER 



PICK UP INITAL COUNT 

PICK UP $FIX 

SAVE LINK IR 

MAKE THE COUNT A NUMBER 

GO TO ERROT 

CONS COUNTER TRAP 



TURNS THE CONTENTS OF THE CONS COUNTER INTO A FIXED PO I 

NUMBER. 



$AMASK 

CNTR1 

CNTS 

CNTM 

CNTST 

CNTM 

$F1XD 

$WKNO 



GET ADDRESS MASK 

PICK UP 15 LOW ORDER BITS 

OR IN REST OF COUNT 

SAVE CURRENT VALUE 

PICK UP INITIAL VALUE 

SUBTRACT CURRENT ;VALUE TO GET NUMBER 

OF CONSES. PUT $FIX IN MQ 

MAKE THE RESULT A NUMBER 



BLOCK RESERVATION ROUTINE USED IN DECLARING ARRAYS. 



BLKX, 4 

BLKB 

BPLACE 

$0RG,4 

BPLACE 

$X0RG,4 

0,4 

BLKB 



BLKC 

0,4 

$Q1 

BLKBB 

BPLACE 

C$LBPTP 

BPLACE 

LTBPFJ 

BPLACE 

$0RG,4 

BPLACE 

$X0RG,4 

**»4 

**,4 

*- 1 , 4 , 1 

BLKBB 

**,4 

1,4 



SAVE LINK IR 

BE RESERVED 

TEST IF BPS OR EXCISABLE AREA 

TEST IF BPS OR EXCISABLE AREA 

ADDRESS OF FIRST REGISTER FOR ARRAYS 
ADDRESS OF END OF BLOCK 



LS025630 
LS025640 



LS025650 
LS025660 
LS025670 
LS025680 
LS025690 
LS025700 
LS025710 
NTLS025720 
LS025730 
LS025740 
LS025750 
LS025760 
LS025770 
LS025780 
LS025790 
LS025800 
LS025810 
LS025820 
LS025830 
LS025840 
LS025850 
LS025860 
LS025870 
LS025880 
LS025890 
LS025900 
LS025910 
LS025920 
LS025930 



INITIALIZE STZ* LO€P TO CLEAN OUT BL0CKLS025940 

LS025950 
LS025960 
LS025970 
LS025980 
LS025990 
LS026000 
LS026010 
LS026020 
LS026030 
LS026040 
LS026050 
LS026060 
LS026070 
LS026080 
LS026090 
LS026100 
LS026110 
LS026120 
L SO 26 130 



CHECK IF OUT OF BPS 



TEST IF BPS OR EXCISABLE AREA 

UPDATE ORG 

TEST IF BPS OR EXCISABLE AREA 

LENGTH OF BLOCK 
ZERO THE BLOCK 

GET ANSWER 
RESTORE LINK IR 

ANSWER STORED HERE 



<*MM 



WMMI 



LISP 1.5 FCR SHARE DISTRIBUTION, MARCH 1965 
STORAGE CONTROL 
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04576 
04577 
04 60C 



3 767C2 

3 000 GO 

■0634 CO 



4 04600 
4 04600 
4 02313 



BINARY CARD NC. LISP01G4 



04601 
0460 2 
04 60 3 
04604 
04605 



•0754 
0560 
C074 
CG74 



CO 
CO 
CO 

CO 



4 COOOO 
00540 
4 13624 
4 02314 



544360600254 



* 



LTBPFJ CHECKS IF OUT OF EXCISABLE SPACE 



HEAD 
LTBPFJ TXH 
LBPTP TXH 

SXD 



PXD 
LDQ 
TSX 
TSX 
BCI 



*+2,4,LAP-l 

*+l,4,*# 

$ERR0R,4 



FOR LAP 

SETUP FILLS THIS CELL 



* 



* 



JUST REDUCE 
HEAD 



04606 


■0 601 


CO 





04467 


F 


0460 7 


-0754 


CO 





00000 




04610 


0600 


CC 





03760 




04611 


074 


cc 


4 


03312 




04612 


5 GO 


CC 





04467 




04613 


C020 


CO 





04452 




04614 


0634 


CC 


4 


04617 




04615 


C6C0 


CC 





03760 




04616 


CO 74 


CC 


4 


03312 




04617 


774 


CO 


4 


00000 




04620 


€ 6 20 


CO 


4 


77776 


* 

* 

* 

X. 


04621 


-C625 


CO 





12662 


« 

* 


04622 


-0 100 


CO 





04626 




0462 3 


500 


CO 





04651 




0462 4 


C621 


CC 





04503 




0462 5 


CC20 


CO 





04640 




04626 


0634 


CO 


4 


04 636 




RY CARD NO. 


LISP0105 




0462 7 


06 34 


CO 


2 


04637 




04630 


-0734 


CO 


? 


COOOO 




046 3 1 


0074 


GO 


4 


14065 




04632 


0601 


CC 





04642 




04633 


C621 


00 





04503 




04634 


-0 320 


CC 





00521 




04635 


0601 


CO 





04650 




046 36 


7 74 


CC 


4 


GGOQG 





FWLOUT 



FROUT 



FRX 



STO 
PXO 
STZ 
TSX 
CLA 
TRA 

SXA 
STZ 

TSX 
AXT 

TRA 



COUNT 



COUNT 



CNTA 



0,4 
$OCTD 
$MKN0,4 
$ERR0R+1,4 
1,*L 2* 

S THE AC MOD 2** 15. THE RESULT IS 15 BITS IN ADOR OF AC 

VAROIUS ENTRANCES TO THE RECLAIMER 

FWLOUT - OUT OF FULL WORD LIST 



CSWQ 

0,0 

RCRLOC 

RECLAM,4 

CSWQ 

FWLQR 

FROUT - OUT 

FRX, 4 

RCRLCC 

RECLAM,4 

*»,4 

-2,4 



SAVE FULL WORD 
ZERO AC 

SIGNAL NO RELOCATION IS NECESSARY 
CO THE WORK 
RESTORE AC 
RETURN TO CONSW 
OF REE STORAGE 

SAVE LINK IR 

SIGNAL NQ RELOCATION NECESSARY 

DO THE WORK 

RESTORE LINK OR 

NON-STANDARD EXIT 



CNTX 



A FUNCTION OF 1 ARGUMENT (A FIXED POINT NUMBER) TURNS 

THE CONS COUNTER AND LOADS IT WITH THAT NUMBER 

A LOAD OF NIL SIMPLY LEAVES THE PREVIOUS CONTENTS IN 

COUNTER 



ACTIVATE THE CONS COUNTER 

GO IF ARUGMENT IS NOT NULL 

OLD VALUE OF CNTR1 

PUT If THERE 

CLEAR AC AND EXIT 

RELOAD COUNTER WITH FIXED POINT ARG 



SAVE INDEX REGISTERS 

ARGUMENT TO INDEX 2 

EVALUATE AS A FIXED POINT NUMBER 

SET INITIAL VALUE CELL 

LOW ORDER 15 BITS TO CNTR1 

MASK OUT LOW ORDEfl 15 BITS 

STORE REMAINDER IN HIGH ORDER CELL 

RESTORE INDEX REGISTERS 



STL 


TCOUNT 


TNZ 


CNTA 


CLA 


CNTM 


STA 


CNTR1 


TRA 


CNTB 


SXA 


CNTX,4 


SXA 


CNTY,2 


PCX 


0,2 


TSX 


FIXVAL,4 


STO 


CNTST 


STA 


CNTR1 


ANA 


PDTMSK 


STO 


CNTS 


AXT 


»*,4 



LS026140 
LS026150 
LS026160 
LS026170 
LS026180 
LS026190 
LS026200 



LS026210 
LS026220 
LS026230 
LS026240 
LS026250 
LS026260 
LS026270 
LS026280 
LS026290 
LS026300 
LS026310 
LS026320 
LS026330 
LS026340 
LS026350 
LS026360 
LS026370 
LS026380 
LS026390 
LS026400 
LS026410 
LS026420 
LS026430 
L SO 2 6440 
LS026450 

ON LS026460 
LS026470 

THELS026480 
LS026490 
LS026500 
LS026510 
LS026520 
LS026530 
LS026540 
LS026550 
LS026560 



LS026570 
LS026580 
LS026590 
LS026600 
LS026610 
LS026620 
LS026630 
LS026640 
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04637 


774 GO 


2 


OOOQO 


CNTY 


AXT 


**,2 


0464C 


-0754 CO 





OOOQO 


CNTB 


PXD 


0,0 


04641 


0020 CO 


4 


00001 




TRA 


1,4 


04642 


000 CO 





00000 


CNTST 














* UNCONT 


OEACTIVA 


04643 


0634 CO 





12662 


■ft 

UNCONT 


SXA 


TCOUNT,0 


04644 


5 00 CO 





04503 




CLA 


CNTR1 


0464 5 


0621 CO 





04651 




STA 


CNTM 


04646 


-0754 CO 





00000 




PXD 


0,0 


0464 7 


0020 CO 


4 


00001 




TRA 


1,4 


04 65 


C COO CO 





00000 


CNTS 






04651 


000 CO 





00000 


CNTM 






04652 


00000 


1 


COOOO 


CTG 




,1 



GIVE VALUE OF NIL 

EXIT 

INTAL VALUE OF COUNT 



DEACTIVATE THE CONS COUNTER 
GET CORENT CONTENST OF COUNTER 
SAVE IN TEMP STORAGE 
GIVE VALUE OF NULL 
EXIT 

HIGH ORDER BITS OF CONS COUNTER 

TEMPORARY STORAGE 

LOW ORDER BIT OF SHIGH ORDER 20 BITS 



LS026650 
LS026660 
LS026670 
LS026680 
LS026690 
LS026700 
LS026710 
LS026720 
LS026730 
LS026740 
LS026750 
LS026760 
LS026770 
LS026780 
LS026790 
LS026800 
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TTL 



LISP FUNCTIONS 



04653 0600 CO 77660 

04654 06 00 CO 77662 

BINARY CARD NO. LISP 0106 

04655 0634 CO 4 04740 
0465 6 0020 00 04663 



0465 7 
04660 
04 661 
04662 
04663 
04664 

0466 5 
04666 

0466 7 
04670 
04671 

04672 
04673 
04674 

0467 5 
04676 
04677 
0470C 
04701 



CO 4 
GO 4 



-0625 

0634 
-0734 

0500 
-0625 

0601 

0760 

761 
-CI 30 

0774 

0600 

-0754 

221 

076 7 
-06C2 
-06 00 
-0520 

020 

2 00OC6 



CO 77660 
CO 4 04740 



CCOOC 
00000 



GO 77661 

CO 7 7665 

CO 00012 

CO OOOQO 

00 COOGO 

CO 4 C0044 

CO 77663 



00 
CO 
CO 

cc 

CO 
GO 
CO 



OOOQO 
00436 
4 CC044 
77663 
77664 
7 7664 
04706 
4 04672 



* 

E 
* 
» 
« 
* 
* 

* 
* 



DEI 



HED 

DECON AND NUMNAM 

DECON TAKES A DECIMAL 
GIVES AS OUTPUT THE BC 
BITS ARE IN AC, HI ORC 
SUPPRESSED. IF THERE 
P BIT AND SIGN OF AC W 

NUMNAM TAKES AS INPUT 
CAUSES THE BCD REPRESE 
LEADING ZEROS SUPPRESS 



DECON STZ 
STZ 



SXA 
TRA 

NUMNAM STL 
SXA 
PDX 
CLA 

DE7 STL 
STO 
OCT 
NOP 
XCL 
AXT 

DE4 STZ 



04702 C5G0 CO 77663 



PXD 
DVP 
ALS 
ORS 
STQ 
NZT 
TRA 
TIX 

CLA 



DETS1 

OELOD 



DEIR4,4 
DE7 

DETS1 

DEIR4,4 

,4 

0,4 

DETS2 

DEINP 



36,4 

DEDIG 

,0 

$Q10 

36,4 

DEDIG 

DEMQ 

DEMQ 

DE2 

DEI, 4, 6 

DEDIG 



LS026810 

LS026820 

LS026830 

LS026840 

LS026850 

LS026860 

LS026870 

LS026880 

LS026890 

LS026900 

LS026910 

A POINTER TO A DECIMAL INTEGER ( * OR - ), ANDLS026920 

NTATICN OF THAT NUMBER TO BE PRINTED, WITH LS026930 

ED. LS026940 

LS026950 

LS026960 

SIGNAL FOR DECON EXIT LS026970 

SET LO ORDER DIGITS TO ZERO LS026980 



INTEGER i+ OR ^} AS INPUT IN THE AC AND 
D REPRESENTATION OF THAT NUMBER. LO ORDER 
ER BITS IN MQ. LEADING ZEROS ARE 
ARE NO HI 0RD6R BITS. MQ IS ZERO. THE 
ILL AGREE. 



SAVE IR4 



SIGNAL FOR NUMNAM EXIT 

SAVE IR4 

PLACE INPUT NUMBER IN AC 

SIGNAL FOR NO HI- ORDER DIGITS 
SAVE INPUT FOR SIGN TEST 
SHUT OFF DIVIDE CHECK LIGHT 

NUMBER TO MQ 

INDEX FOR SHIFTING 

DEDIG WILL RECIEVE DIGITS 



PUT ANOTHER DIGIT IN DEDIG 



IF QUOTIENT ZERO, CONVERSION 
IS DONE 



STORE LQ ORDER DIGITS 



LS026990 
LS027000 
LS027010 
LS027020 
LS027030 
LS027040 
LS027050 
LS027060 
LS027070 
LS027080 
LS027090 
LS027100 
LSG27110 
LS027120 
LS027130 
LS027140 
LS027150 
LS027160 
LS027I70 
LS027180 
LS027190 
LS027200 
LS027210 
LS027220 
LS027230 



BINARY CARD NO. LISPC107 






04703 


0601 CO 77662 


STO 


DELOD 


04704 


0600 CO 7 7661 


STZ 


DETS2 


04705 


1 00036 4 04671 


TXI 


DE4,4,30 


04706 


0560 CO C 77665 DE2 LDQ 


DEINP 


04707 


0162 GO 04721 


TOP 


DEV 


04710 


2 00006 4 04716 


TIX 


DEQ,4,6 



SIGNAL THAT HI ORDER DIGITS EXIST 
RESTORE SHIFT INDEX AND LOOP AGAIN 

SEE IF MINUS SIGN NEEDED 



LS027240 
LS027250 
LS027260 
LS027270 
LS027280 
LS027290 
LS027300 
LS027310 



•mmmm 



MM 
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MINUS SIGN BEGINS A NEW WORD 



04711 


5 CO 


CO 





77663 




CLA 


DEDIG 


04712 


601 


CO 


c 


77662 




STO 


DELOD 


04713 


0600 


CO 


c 


77661 




STZ 


DETS2 


04714 


0600 


cc 





77663 




STZ 


DEDIG 


04715 


C774 


CO 


4 


C0044 




AXT 


36,4 


04716 


C5C0 


CO 


c 


CC457 


DEQ 


CLA 


DEMIN 


04717 


0767 


cc 


4 


00044 




ALS 


36,4 


04720 


-06C2 


CO 





77663 




ORS 


DEDIG 


04 721 


760 


CO 





C0012 


DEV 


DCT 




04722 


00 74 


CO 


4 


02442 




TSX 


$DCT,4 


0472 3 


C520 


cc 





7766C 




ZET 


DETS1 


04 724 


0020 


CO 





04742 


* 


TRA 

DECON 


DE5 
EXIT 


0472 5 


-05 CO 


cc 





77663 




CAL 


DEDIG 


04726 


-3 000 06 


4 


04732 




TXL 


DEJ, 4, 6 


04727 


-0765 


00 


4 


C0052 




LGR 


42,4 


04730 


-05 CO 


cc 





00527 




CAL 


BLANKS 


BINARY CARD NC. 


LISPC108 








04 731 


-0763 


CO 


4 


00052 




LGL 


42,4 


04732 


0560 


CO 


c 


77662 


DEJ 


LDQ 


DELOD 


047 33 


-0520 


CO 


c 


77661 




NZT 


DETS2 


04 734 


-C130 


CO 





000 QO 




XCL 




04735 


-0 760 


CO 





000Q1 




PBT 




04736 


020 


CC 





04740 




TRA 


*+2 


0473 7 


-0760 


CC 


c 


C0003 




SSM 




04 74C 


0774 


CO 


4 


COO 00 


DEIR4 


AXT 


#*,4 


04741 


0020 


CO 


4 


C0001 


* 


TRA 
NUMNAM 


1,4 
EXIT 


04 742 


-0 5 CO 


CO 





77663 


DE5 


CAL 


DEDIG 


0474 3 


560 


CO 





00525 




LDQ 


SEVENS 


04 744 


-0765 


CO 


4 


00052 




LGR 


42,4 


04745 


C131 


CO 





00000 




XCA 




04746 


CO 74 


00 


4 


C5662 




TSX 


$PRIN2,4 


04747 


0520 


cc 





77661 




ZET 


DETS2 


04 75C 


0020 


cc 





04 753 




TRA 


DEY 


04 751 


-C5C0 


CO 





77662 




CAL 


DELOD 


04752 


0074 


cc 


4 


05662 




TSX 


$PRIN2,4 


04753 


534 


CO 


4 


C4740 


DEY 


LXA 


DEIR4,4 


04754 


-0754 


CO 


C 


coooe 




PXD 


,0 


04755 


0020 


CO 


4 


00001 




TRA 


1,4 



04756 

77660 
77661 
77662 



00457 


DEMIN 


SYN 


$Q040 




OEORG 


BSS 





77660 




ORG 


COMMON 




DETS1 


BSS 


1 




DETS2 


BSS 


1 




DELOD 


BSS 


1 



STORE LO ORDER DIGITS 

SIGNAL THAT HI ORDER DIGITS EXIST 
CLEAR DIGITS REGISTER 
RESTORE SHIFT IND6X 
INSERT MINUS SIGN 



MACHINE ERROR 

SEE WHICH EXIT TO USE 



PICK UP DIGITS 
TRANSFER IF FULL WORD 
INSERT LEADING BLANKS 



OF DIGITS 



LO ORDER DIGITS OR ZERO - 

SEE WHICH 
LO ORDER DIGIfS TO AC 
SIGN AND P BUT MUST AGREE 



RESTORE LR4 AND EXIT 



INSERT TRAILING SEVENS INTO 
DIGITS WORD 



PRINT WORD OF DIGITS 
SEE IF ANOTHER WORD MUST 

BE PRINTED 
PRINT LO ORDER DIGITS 



RESTORE IR4, CLEAR AC, AND EXIT 



BCD MINUS SIGN 



ZERO MEANS BBCCN EXIT 
ZERO MEANS HI CRD€R DIGITS 
LO ORDER DIGLTS 



LS027320 
LS027330 
LS027340 
LS027350 
LS027360 
LS027370 
LS027380 
LS027390 
LS027400 
LS027410 
LS027420 
LS027430 
LS027440 
LS027450 
LS027460 
LS027470 
LS027480 
LS027490 
LS027500 
LS027510 



LS027520 
LS027530 
LS027540 
LS027550 
LS027560 
LS027570 
LS027580 
LS027590 
LS027600 
LS027610 
LS027620 
LS027630 
LS027640 
LS027650 
LS027660 
L SO 2 7670 
LS027680 
LS027690 
LS027700 
LS027710 
LS027720 
LS027730 
LS027740 
LS027750 
LS027760 
LS027770 
LS027780 
LS027790 
LS027800 
LS027810 
LS027820 
LS027830 
LS027840 



"ma 



MMMMM 
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77663 
77664 
77*65 



04756 



DEDIG BSS 

DEMQ BSS 

DEINP BSS 

ORG 


1 
1 
1 
DEORG 


CURRENT DIGITS 
MQ FOR ZERO TEST 
INPUT NUMBER 


THIS 


ROUTINE USES COMMON, 


SEVENS* $PRIN2, 8 



BLANKS, AND $Q10 



HED 



MAPLIS 



NEW, FASTER VERSION WITH OPEN SAVE AND 
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LS027850 
LS027860 
LS027870 
LS027880 
LS027890 
LS027900 
LS027910 
LS027920 
LS027930 
C0NSLS027940 
LS027950 



BINARY CARD NO:. 


LISPC109 






04756 


ClOO 


00 


4 


0000 1 


MAPLIS TZE 


1,4 


04757 


-06 34 


CO 


4 


04170 


SXD 


MSI, 4 


0476C 


-0534 


CO 


4 


03110 


LXD 


$CPPI,4 


0476 1 


1 777 72 


4 


04 762 


TXI 


*+l,4,-6 


04762 


522 


CO 





03204 


XEC 


$ENDPDL 


0476 3 


-C6 34 


00 


4 


03110 


SXD 


$CPPI ,4 


04764 


-C534 


CO 


1 


03110 


LXD 


$CPPI ,1 


04765 


0601 


CO 





04061 


STO 


$ARG1 


04766 


G5C0 


CO 





04170 


CLA 


MSI 


04767 


601 


CO 


4 


77772 


STO 


-6,4 


0477C 


500 


CO 





04171 


CLA 


MS2 


04771 


0601 


CO 


4 


77773 


STO 


-5,4 


04772 


C5C0 


CO 





04172 


CLA 


MS3 


04773 


0601 


CO 


4 


77774 


STO 


-4,4 


04774 


0500 


CO 





04173 


CLA 


MS4 


0477 5 


0601 


CO 


4 


77 775 


STO 


-3,4 


04776 


5 CO 


CC 





04174 


CLA 


MS5 


04777 


0601 


CO 


4 


77776 


STO 


-2,4 


05000 


05CO 


CO 





05110 


CLA 


MS6 


05001 


6 1 


en 


4 


77777 


STO 


-1,4 


05002 


5 00 


CO 





04061 


CLA 


$ARG1 


0500 3 


0601 


CO 





04171 


STO 


MS2 


BINARY CARD NO.. 


LISP0110 






5004 


-0600 


CO 





04172 


STQ 


MS3 


05005 


0162 


CO 





05100 


TQP 


CMP 


05006 


0074 


CO 


4 


04172 


TSX 


MS3,4 


05007 


-0 5 34 


CO 


4 


04512 


MAIN LXD 


$FREE,4 


05010 


3 00000 


4 


05012 


TXH 


*+2,4,0 


05011 


74 


CO 


4 


04614 


TSX 


$FRQUT,4 


05012 


7 71 


CC 





00022 


ARS 


18 


05013 


0560 


CO 


4 


00000 


LDQ 


0,4 


05014 


-0620 


CO 





04512 


SL« 


$FREE 


05015 


0601 


CO 


4 


COOOG 


STO 


0,4 


05016 


-0634 


CO 


4 


04173 


SXD 


MS4,4 


05017 


-06 34 


CO 


4 


04174 


SXD 


MS5,4 


05020 


0534 


00 


4 


04503 


LXA 


$CNTR1,4 


05021 


2 G00G1 


4 


05024 


TIX 


*+3,4,i 


05022 


0074 


CC 


4 


04513 


TSX 


ARREST, 4 


05023 


0774 


CO 


4 


77777 


AXT 


-1,4 


05024 


0634 


CO 


4 


04503 


SXA 


$CNTR1,4 


05025 


-0 534 


CC 


4 


04171 


ML0P1 LXO 


MS2,4 



NULLtL) = NIL 
SAVE LINK IR 
GET PDL POINTER 

SAVE TOTAL OF 6 ITEMS 

TEST FOR OUT OF P.USH DOWN LIST 
UPDATE PDL POLNTER LOCATION 

MAKE 1X1 AND $CPPI AGREE 
SAVE AC 
START SAVING LINK IR 

L ARGUMENT 

FUNCTIONAL ARGUMENT 

FINAL ANSWER 

INTERMEDIATE ANSWER 

SAVE MARKER 

SAVING ALL DONE, RESTORE AC 
PUT L ARGUMENT AWAY 



PUT FUNCTIONAL ARGUMENT AWAY 

IF TRANSFER, F NOT A TXL , SO GO TO COMPAT 

EXECUTE FUNCTIONAL ARGUMENT 

START OPEN CONS 

TEST FOR OUT OF FREE 

GO IF NO MORE FS 

PUT FID IN ADDRESS 

GET NEXT REGISTER ON 

UPDATE FREE 

CONS(FCL)»NIL) 

FINAL ANSWER 

INT. ANSWER 

PICK UP CONS 

DECREMENT BY 

GO IF OUT OF 

RELOAD OF -1 

RESTORE CONS 
MAUN LOOP, GET L 



STORAGE 



FSL 



COUNTER 

1 

COUNTER 

FOR COUNTER 

COUNTER 



LS027960 
LS027970 
LS027980 
LS027990 
LS028000 
LSO2801O 
LS028020 
LS028030 
LS028040 
LS028050 
LS028060 
LS028070 
LS028080 
LS028090 
LS028100 
LS028110 
LS028120 
LS028130 
LS028140 
LS028150 
LS028160 
LS028170 



LS028180 
LS028190 
LS028200 
LS028210 
LS028220 
LS028230 
LS028240 
LS028250 
LS028260 
LS028270 
LS028280 
LS028290 
LS028300 
LS028310 
LS028320 
LS028330 
LS028340 
LS028350 



© 
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05026 0500 CO 

05027 -0/34 GO 
05O3C 3 OOOCO 
05031 0500 GO 



4 00000 

4 COOOO 

4 0505 2 

04173 



BINARY CA 
05032 
05033 
05034 
05035 
05036 
05037 
0504C 
05041 
05042 
05043 
05044 
05045 
05046 
05047 
05050 
05051 

0505 2 
05053 
05054 
0505 5 
05056 
05057 

BINARY CA 
05060 
05061 
05062 
05063 
05064 
05065 
05066 
05067 
0507C 
05071 
05072 
05073 
05074 
05075 
05076 
507 7 

05100 
05101 
05102 
05103 

05104 
05105 



LI 

CO 
CO 

cc 

CO 
CO 
CO 
CO 
CC 
CO 
CO 
CO 



RD NO. 
-0534 

5 60 
-0600 

560 
-G600 

560 
-0600 

0560 
-0600 

0560 
-0600 

1 G00C6 
-C634 CO 
-0 5 34 CO 
-0 534 CO 

0020 CO 

-0 7 54 CO 
0601 CO 

-0534 CO 
3 00012 
0074 CO 

-0534 CO 



SP0111 
4 03110 
77776 
04174 
77775 
04173 
77774 
04172 
77773 
04171 
77772 
04170 
05046 
03110 
04170 
03110 
00001 



4 



4 
C 
4 

4 

4 
4 
4 
1 
4 



ccooc 

04171 
04172 
05104 
04172 
04512 



RD NC. LI 

3 OOOCO 

CO 74 CO 

560 
-0620 

0771 

0601 
-0 754 

5 34 

2 000 CI 

CO 74 CO 

0774 

0634 
-C534 

0622 

0601 

0020 



SP0U2 



CC 

CC 
CO 
CO 
00 
00 



CO 

CO 
CO 
CO 
CO 
CO 



-0 620 CO 
0074 CO 
C COO CO 
0020 CO 



-0634 
CC74 



CO 
CC 



4 
4 
4 



4 
4 
4 
4 
4 
4 
4 
4 




4 



4 



05062 
04614 
00000 
04512 
00022 
00000 
00000 
04503 
05O73 
04513 
77777 
04503 
04174 
00000 
04174 
05025 

05102 
13000 
00001 
05007 

05106 
13000 



CLA 
PDX 
TXH 
CLA 



LXD 
LDQ 
STQ 
LDQ 
STQ 
LDQ 
STQ 
LDQ 
STQ 
LDQ 
STQ 
TXI 
SXD 
LXD 
LXD 
TRA 



0,4 

0,4 

MPRG1,4,0 

MS4 



$CPPI ,4 

-2,4 

MS5 

-3,4 

MS4 

-4,4 

MS 3 

-5,4 

MS2 

-6,4 

MSi 

*+ 1,4,6 

$CPPI ,4 

MSI, 4 

$CPPI ,1 

1,4 



MPRG1 PXD 0,4 

STO MS2 

LXD MS3,4 

TXH CMP1,4,10 

TSX MS 3, 4 

MAIN1 LXD $FREE,4 



TXH *+2,4,0 

TSX $FR0UT,4 

LDQ 0,4 

SLQ $FR£E 

ARS 18 

STO 0,4 

PXO 0,4 

LXA $CNTR1,4 

TIX *+3,4,l 

TSX ARREST, 4 

AXT -1,4 

SXA $CNTR1,4 

LXD MS5,4 

STO 0,4 

STO MS5 

TRA ML0P1 
t 

CMP SLQ *+2 

TSX C0MPAT,4 

1, »■** 

TRA MAIN 
t 

CMP1 SXD *+2,4 

TSX COMPAT, 4 



TAKE COR(L) 

IF NOT NULL GO QN TO MAIN PROPRAM 
ALL DCNE, PICK UP FINAL ANSWER 



START OPEN UNSAVE BY GETTING POL POINTER 



RESTORE PDL COUNTER 
SET CPPI 
PICK UP LINK IR 

MAKE 1X1 AND $CPPI AGREE 
RETURN 

MAIN PROGRAM PUT L IN AC 

SAVE IN L ARGUMENT REGISTER 

SEE IF FUNCTIONAL ARG IS S EXPRESSION 

GO IF S EXPRESSION 

EXECUTE FUNCTIONAL ARGUMENT (TXL INS.) 

START OPEN CONS 



TEST FOR OUT OF FREE STORAGE 

GO IF OUT 

PICK UP POINTER TO NEXT FREE REGISTER 

UPDATE FREE 

ITEM TO AODRESS 

CGNS<F(L),NIL) 

ANSWER TO AC 

PICK UP CONS 

DECREMENT BY 

GO IF OUT OF 

RELOAD OF -1 

RESTORE CONS 
PICK UP LAST ANSWER 
CONCATENATE THE ANSWERS BY RPLACD 
UPDATE INT. ANSWER 
GO TO HEAD OF MAIN LOOP 



COUNTER 

1 

COUNTER 

FOR COUNTER 

COUNTER 



COMPAT CALL FOR S EXPRESSION FUN. ARG. 

FUNCTION OF I ARGUMENT 
GO BACK TO MAIN PROGRAM 

ANOTHER COMPAT CALL 



LS028360 
LS028370 
LS028380 
LS028390 



LS028400 
LS0284I0 
LS028420 
LS028430 
LS028440 
LS028450 
LS028460 
LS028470 
LS028480 
LS028490 
LS028500 
LS028510 
LS028520 
LS028530 
LS028540 
LS028550 
LS028560 
LS028570 
LS028580 
LS028590 
LS028600 
LS028610 
LS028620 



LS028630 
LS028640 
LS028650 
LS028660 
LS028670 
LS028680 
LS028690 
LS028700 
LS028710 
LS028720 
LS028730 
LS028740 
LS028750 
LS028760 
LS028770 
LS028780 
LS028790 
LS028800 
LS028810 
LS028820 
LS028830 
LS028840 
LS028850 
LS028860 
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BINARY CARD NO. LISPC113 

05106 GOGCO 0CO01 

05107 002O CC 05057 

05110 -3 04176 03161 



05111 
05112 
05113 
05114 
05115 
05116 
05117 
05120 
05121 
05122 
05123 
05124 
05125 

0512 6 
05127 
05130 
05131 
05132 

0513 3 



GO 
CO 
CO 
CO 
CO 
CO 



eico 

-0634 
-0 734 
-0634 

C500 

0734 
-3 77776 

C5G0 CC 
-C534 CO 

0020 CO 

0074 CO 
-3 04124 
-0 534 CO 

500 

0601 
•0320 

74 

534 

601 



CO 
CO 
CO 

CO 
CC 
CC 



4 
4 
4 
4 
4 
4 
4 

4 
4 
4 

4 
4 
C 

4 
4 




00001 
04121 
00000 
05143 
CCOQO 
00000 
05123 
05143 
04121 
00001 
03104 
03167 
05143 
COO 00 
04122 
00514 
05111 
04122 
04122 



BINARY CARD f\C. LISP0114 



05134 
05135 
05136 
05137 
0514C 
05141 
05142 
05143 



-0754 
0074 
560 
0074 
CO 74 

-0534 
020 



CO 
CO 
CO 
CO 
CC 
CO 
CO 



COOCG 



00000 
05111 
04122 
04471 
03117 
04121 
00001 
00000 
00514 



MS6 



R 



COPY 



CI 



CT1 

DECM 



TRA 
TXL 



1* »** 
MAIN1 

$END5,,MS5+2 



RETURN TO MAIN PROGRAM 
SAVE 5 ITEMS 



FUNCTION 
CCPY{L)= 



COPY 



HED 
TZE 
SXD 
PDX 
SXD 
CLA 
PAX 
TXL 
CLA 
LXD 
TRA 
TSX 
TXL 
LXD 
CLA 
STO 
ANA 
TSX 
LXA 
STO 



YIELDS 0, CAR{1)=-1 YIELDS L, 
OTHERWISE C0NS(C0PY(CARIt) J , COPY{C0R< L ) )) J 



1,4 

C S I ' , 4 

0,4 

CT1,4 

0,4 

C4 

Cl,4»-2 

CT1 

CS1,4 

1,4 

$SAVE,4 

*END2,,CS2+2 
CT1,4 
0,4 
CS2 
DECM 
COPY, 4 
CS2,4 
CS2 



L=0 

L 

L 

CWRIL) 

CARtLJ 

CAR(L)=-I 

L 



SAVE 2 ITEMS 

L 

CWRIL J 

CDR(L) 

C0PYICDRJL1) 
CAR(L) 
COPYtCDRMU 



COPYiCARTL) I 



PXD 0,4 
TSX C0PY,4 
LDQ CS2 
TSX $C0NS,4 
TSX UNSAVE,4 
LXD CS1,4 
TRA 1,4 



SYN $DMASK 

FUNCTION SEARCH 

SEARCHR,P,F,U) = IL=0 YIELDS U,P*L) YIELDS FID, 
OTHERWISE SEARCH {CORi LiW P,R,U);j: 









R 


HED 








05144 


-C634 CO 4 


04214 


SEARCH 


SXD 


SRS1,4 






05145 


CC74 CO 4 


03104 




TSX 


$SAV£ t 4 






05146 


-3 04222 


03161 




TXL 


$END5, , 


SRS5+2 


SAVE 5 ITEMS 


05147 


-0600 CO 


04216 




STQ 


SRS3 




P 


05150 


CI 00 00 


05211 


SR3 


TZE 


SR4 






05151 


0601 CO 


0421.5 




STO 


SRS2 




L 


05152 


560 CC 


04063 




LDQ 


$ARG3 




F 


0515 3 


-0600 CO 


04217 




STQ 


SRS4 






05154 


560 CO 


04064 




LDQ 


$ARG4 




U 



LS028870 
LS028880 
LS028890 
LS028900 
LS028910 
LS028920 
LS028930 
LS028940 
LS028950 
LS028960 
LS028970 
LS028980 
LS028990 
LS029000 
LS029010 
LS029020 
LS029030 
LS029040 
LS029050 
LS029060 
LS029070 
LS029080 
LS029090 
LS029100 
LS029110 
LS029120 
LS029130 
LS029140 



LS029150 

LS029160 

LS029170 

LS029180 

LS029190 

LS029200 

LS029210 

LS029220 

LS029230 

LS029240 

LS029250- 

LS029260 

LS029270 

LS029280 

LS029290 

LS029300 

LS029310 

LS029320 

LS029330 

LS 029340 

LS029350 

LS029360 

LS029370 

LS029380 



mmmmmmmmmmmm 
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05155 


-0 6 CO 


CO 





04220 


STQ 


SRS5 


05156 


-0 534 


00 


4 


04216 


LXD 


SRS3,4 


05157 


3 00012 


4 


05162 


TXH 


*+3,4, 10 


0516C 


74 


GO 


4 


04216 


TSX 


SRS3,4 


05161 


0020 


GO 





05165 


TRA 


*+4 


BINARY CARD NO. 


LISP0115 






0516 2 


-C634 


CO 


4 


C5164 


SXD 


*+2,4 


05163 


074 


CO 


4 


13 000 


TSX 


C0MPAT,4 


051 6 A 


C GOO CO 


C 


00001 




1, »** 


05165 


0100 


CO 





05201 


tze 


SRI 


05166 


G5C0 


CO 





04215 


CLA 


SRS2 


05167 


-C534 


CO 


4 


04217 


LXD 


SRS4,4 


0517G 


3 GOO 12 


4 


05173 


TXH 


*+3,4, 10 


05171 


0074 


CO 


4 


04217 


TSX 


SRS4,4 


05172 


0020 


CO 





05176 


TRA 


*+4 


05173 


-0634 


CO 


4 


05175 


SXD 


* + 2,4 


05174 


0074 


CO 


4 


13000 


TSX 


CGMPAT,4 


05175 


OOOCO 





00001 




1m** 


05176 


00 74 


CO 


4 


03117 


TSX 


UNSAV£,4 


05177 


-0 5 34 


CO 


4 


04214 


LXD 


SRS1,4 


05200 


0020 


CO 


4 


GOOD 1 


TRA 


1,4 


05201 


G5C0 


CO 





04220 


SRI CLA 


SRS5 


05202 


C601 


CC 





C4064 


STO 


$ARG4 


05203 


G5C0 


CO 





04217 


CLA 


SRS4 


05204 


0601 


CC 





04063 


STO 


$ARG3 


05205 


-0 5 34 


CO 


4 


04215 


LXD 


SRS2.4 


05206 


0500 


CC 


4 


CCOOG 


CLA 


0,4 


05207 


-C320 


CG 





00514 


ANA 


DECM 


BINARY CARD NC. 


LISP0116 






052 1C 


0020 


CO 





05150 


TRA 


SR3 


05211 


C074 


CO 


h 


03117 


SR4 TSX 


UNSAVE,4 


05212 


-0534 


00 


4 


04064 


LXD 


$ARG4,4 


05213 


3 00012 


4 


05216 


TXH 


SRCMPT, 4,10 


05214 


-0 534 


00 


4 


04214 


LXD 


SRS1,4 


05215 


0020 


CO 





04064 


TRA 


$ARG4 


05216 


C600 


CO 


C 


C4063 


SRCMPT STZ 


$ARG3 


05217 


0560 


CO 





04063 


LDQ 


$ARG3 


05220 


0074 


CO 


4 


04471 


TSX 


$C0NS,4 


05221 


0131 


00 





00000 


XCA 




05222 


C5C0 


CO 





04064 


CLA 


$ARG4 


05223 


-0 5 34 


CO 


4 


04214 


LXD 


SRS1,4 


05224 


C020 


CO 





15721 


TRA 


iAPPLY 



NOT 
L 



P(L} 



1 YIELDS 

U 

F 
L 

CDR(i) 



FUNCTION EQUAL 

EQUAL(Ll,L2) = lLl=sL2 Y IELDSI ,t 1=0>VL2*0 YIELDS 0, 

CAR{L1)=-1VCAR(L2)=-1 YIELDS 0, OTHERWISE 

EQUAL(CAR(Ll,CAR{L2nAEQUALJeeR(LI) ,CDRl L2))l 



L HED 
* EQUAL 



* 



A FUNCTION OF 2 ARGUMENTS 
STRUCTURES ARE EQUIVELENT, 
TO MAKE USE OF THE NUMBER 



DETERMINES WETHER 2 LIST 

REPROGRAMMED 5 OCTOBER I960 
CONVENTIONS CURRENTLY IN USE. 



LS029390 
LS029400 
LS029410 
LS029420 
LS029430 



LS029440 
LS029450 
L SO 2 9460 
LS029470 
LS029480 
LS029490 
LS029500 
LS029510 
LS029520 
LS029530 
LS029540 
LS029550 
LS029560 
LS029570 
LS029580 
LS029590 
LS029600 
LS029610 
LS029620 
LS029630 
LS029640 
LS029650 



L SO 29660 
LS029670 
LS029680 
LS029690 
LS029700 
LS029710 
LS029720 
LS029730 
LS029740 
LS029750 
LS029760 
LS029770 
LS029780 
LS029790 
LS029800 
LS029810 
LS029820 
LS029830 
LS029840 
LS029850 
LS029860 
LS029870 
LS029880 
LS029890 



OUR 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
LISP FUNCTIONS 



05225 


-0634 


CO 


4 


05 3 36 


EQUAL SXD 


EGXR,4 


05226 


-0600 


CO 





05340 


STQ 


EQL2 


0522 7 


0601 


CO 





05337 


STO 


EQL1 


05230 


0402 


CO 





05340 


EQLP SUB 


EQL2 


05231 


C100 


CO 





05262 


TZE 


EGT 


05232 


-0520 


00 





05337 


NZT 


EQL1 


0523 3 


00 20 


CO 





05265 


TRA 


EQF 


05234 


-C520 


CO 





05340 


NZT 


EQL2 


05235 


0020 


CO 





05265 


TRA 


EGF 


BINARY CARD NO. 


LISP0117 






05236 


-0 534 


CO 


4 


05 340 


LXD 


EQL2,4 


05237 


C500 


CO 


4 


00000 


CLA 


0,4 


05240 


7 34 


00 


4 


GOOOO 


PAX 


0,4 


05241 


3 77776 


4 


05270 


TXH 


EQA, 4, -2 


05242 


622 


CO 





05340 


STD 


EQL2 


0524 3 


-0754 


00 


4 


00000 


PXD 


0,4 


05244 


1 3 1 


CO 





00000 


XCA 




0524 5 


-0 534 


CO 


4 


05337 


LXD 


EQL1,4 


05246 


500 


GO 


4 


00000 


CLA 


0,4 


05247 


06 22 


CO 





05 337 


STD 


EQL1 


05250 


0734 


GO 


4 


COO 00 


PAX 


0,4 


05251 


3 77776 


4 


05265 


TXH 


EQF, 4, -2 


05252 


-0 7 54 


GO 


4 


OOOQO 


PXD 


0,4 


05253 


0074 


CO 


4 


03104 


TSX 


$SAVE,4 


05254 


-3 05342 





03165 


TXL 


$EN03,,E0L2+2 


05255 


74 


CO 


4 


5225 


TSX 


$£QUAL,4 


05256 


0074 


00 


4 


03117 


TSX 


UNSAVE,4 


0525 7 


C1G0 


00 





05265 


TZE 


EQF 


05 260 


0500 


CO 





05337 


CLA 


EQL1 


05261 


20 


CC 





05230 


TRA 


EQLP 


05262 


5 00 


00 





00476 


EQT CLA 


$QD1 


05263 


-0 534 


CO 


4 


05336 


LXD 


EQXR,4 


BINARY CARD NO. 


LISP0118 






05264 


002O 


00 


4 


C0O01 


TRA 


1,4 


05265 


-0 7 54 


00 


G 


GOOOO 


EQF PXD 


0,0 


05266 


-0 534 


CO 


4 


05336 


LXD 


EQXR,4 


05267 


020 


CO 


4 


00001 


TRA 


1.4 


05270 


-0534 


CO 


4 


05337 


EQA LXD 


EQLL,4 


05271 


500 


00 


4 


00000 


CLA 


0,4 


05272 


0734 


GO 


4 


00000 


PAX 


0,4 


05273 


-3 77776 


4 


05265 


TXL 


EGF, 4, -2 


05274 


-0534 


00 


4 


05 336 


LXD 


EQXR,4 


05275 


500 


CO 





05337 


CLA 


EQL1 


05276 


5 60 


CO 





05340 


LDQ 


EQL2 


05277 


0Q20 


00 





05300 


TRA 

* EQP 


EQPROG 
TESTS FOR £Q BETW 
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LS029900 


SAVE LINK IR 






LS029910 


SAVE ARGUMENT 2 






LS029920 


SAVE ARGUMENT 1 






LS029930 


EQ TEST 






LS029940 


TWO LIST ARE EQ, EXIT TRUE 




LS029950 


SKIP IF LI NGN NULL 






LS029960 


LI NULL BUT NOT EQ L2, EXIT 


FALSE 


LS029970 


NULL TEST" L2 






LS029980 


L2 NULL BUT NOT EQ 1 


LI, EXIT FALSE 


LS029990 


PICK UP LIST 2 






LS030000 


GET NEXT ELEM€NT 






LS030010 


CAR OF LIST 2 






LS030020 


GO IF ATOM 






LS030030 
LS030040 


CAR OF LIST TO DECREMENT OF 


AC 


LS030050 


SWITCH TO MQ 






LS030060 


PICK UP LIST 1 






L SO 30070 


GET NEXT ELEMENT 






LS030080 


SAVE COR OF LIST 1 






LS030090 


CAR OF LIST TO IR 4 






LS030100 


GO TO FALSE €XIT IF 


THIS IS 


AN ATOM 


LS030110 


CAR OF LIST TO DECREMENT OF 


AC 


LS030120 


SAVE CALL 






LS030130 


SAVE 3 ITEMS 






LS030140 


TEST FOR EQUALITY IN 


CAR DIRECTION 


LS030150 


UNSAVE CAiL 






LS030160 


WHOLE LIST IS FALSE 


IF CAR DIRECTION 


FLS030170 


PICK UP REST OF LIST 


1 




LS030180 


TEST EQUALITY IN COR 


DIRECTION 


LS030190 








LS030200 


TRUE EXIT, PICK UP 1 


IN DECREMENT 


LS030210 


RESTORE LINK IR 






LS030220 

LS030230 
LS030240 


FALSE EXIT, CLEAR AC 






LS030250 


RESTORE LINK IR 






LS030260 


EXIT 






LS030270 
LS030280 


L2 IS ATOM* IS LI 






LS030290 
LS03030G 
LS030310 
LS030320 


OTHERWISE DO EGP 






LS030330 
LS030340 
LS030350 
LS030360 
LS030370 


STS AND NUMERICAL EQUALITY BETWEEN 


LS030380 


IN TESTIONG FLOATION PT NUMBERS 


LS030390 








LS030400 
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DEFINE (UEQP (LAMBDA (X Y) (COND 

({AND {NUMBERP X) (NUMBERP ¥)) 
IT F) ) 3 ) J) 



(ZEROP I DIFFERENCE (X Y))J 













-» 
* 


IF THIS DEFINITION 












* 


MAKE 


HIS OWN USING 


0530C 


0040 


CO 





05305 


It 

EQPROC 


TLQ 


EQPF 


05301 


C131 


CO 





00000 




XCA 




05302 


CC40 


00 





05305 




TLQ 


ECPF 


0530 3 


500 


CO 





00476 




CLA 


$GD1 


05304 


0020 


CO 


4 


00001 




TRA 


1*4 


05305 


0634 


CO 


L 


05 327 


EQPF 


SXA 


EGPRX,4 


05306 


-0734 


CO 


4 


00000 




PDX 


0,4 


05307 


C634 


CO 


2 


05330 




SXA 


EQPRY, 2 


05310 


0500 


CO 


4 


000 00 




CLA 


0,4 


05311 


734 


00 


2 


00 000 




PAX 


0,2 


BINARY CARD NO. 


LISP0119 








05312 


-3 77776 


2 


05332 




TXL 


EQPFX, 2, -2 


05313 


-0320 


CO 





00524 




ANA 


TAGMSK 


05 31 A 


0100 


00 





05332 




TIE 


EQPFX 


05315 


-0 7 54 


CO 


4 


OGOOO 




PXD 


0,4 


05316 


131 


CO 





OCOQO 




XCA 




05317 


-0734 


00 


4 


00000 




PDX 


0,4 


0532C 


500 


CO 


4 


coooo 




CLA 


0,4 


05321 


0734 


CO 


2 


00000 




PAX 


0,2 


05322 


-3 777 76 


2 


05332 




TXL 


EQPFX, 2, -2 


05323 


-0320 


CO 


C 


00524 




ANA 


TAGMSK 


05324 


C100 


CO 





05332 




TZE 


EQPFX 


05 325 


-07 54 


CO 


4 


OCOQO 




PXD 


0,4 


05326 


74 


CO 


4 


14504 




TSX 


$DIFFER,4 


05 32 7 


774 


CO 


4 


COOQO 


EQPRX 


AXT 


**,4 


05330 


C774 


CO 


2 


00000 


EQPRY 


AXT 


**,2 


05 331 


0020 


CO 





15510 




TRA 


$ZEROP 


05 33 2 


C534 


CO 


4 


0532 7 


EQPFX 


LXA 


EQPRX, 4 


05333 


5 34 


cc 


2 


05 330 




LXA 


EQPRY, 2 


05334 


-0 754 


CO 





COOQO 




PXD 


0,0 


05335 


020 


CO 


4 


00001 




TKA 


1,4 


05336 


0000 





12010 


it 

EQXR 




$F8 


05 337 


00000 


C 


OCOQO 


EQL1 






BINARY CARD NO, 


LISP0120 








05 340 


COO CO 





00000 


EQL2 






05341 


C 00000 





00000 


EQTS 







OF EQP DOES NOT SUIT THE USER„LET HIM 
LISP COMPILER OR LAP. 



ARE EQ, EXIT TRUE 



INVESTIGATE FURTHER 



INDEX REGISTER STORAGE 
LIST 1 STORAGE 



LIST 2 STORAGE 

TEST CELL FIX, NON FLO 



* EQUAL USES $SAVE, $QD1 ,UNSAVE r $EQUAL AND FIXFLO 

PRINT f«AY 14,1959 

T HED 



LS030410 
LS030420 
LS030430 
LS030440 
LS030450 
LS030460 
LS030470 
LS030480 
L SO 30490 
LS030500 
LS030510 
LS030520 
LS030530 
LS030540 
LS030550 
LS030560 
LS030570 
LS030580 



LS030590 
LS030600 
LS030610 
LS030620 
LS030630 
LS030640 
LS030650 
LS030660 
LS030670 
LS030680 
LS030690 
LS030700 
LS030710 
LS030720 
LS030730 
LS030740 
LS030750 
LS030760 
LS030770 
LS030780 
LS030790 
LS030800 
LS030810 
LS030820 



LS030830 
LS030840 
LS03O85O 
LS030860 
LS030870 
LS030880 
LS030890 
LS030900 
LS030910 
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PRINT MASTERMINDER 




LS030920 
LS030930 


05342 


C634 


CO 


4 


053 52 


PRINT 


SXA 


PRPS1,4 


SAVE LINK IR 


LS030940 


_ 0534 3 


-G534 


CO 


4 


03110 




LXD 


$CPPI ,4 


SAVE CURRENT CONTENTS OF GPP I 


LS030950 


• 05344 


-0634 


CO 


4 


06121 




SXD 


PCPPI,4 




LS030960 


05 34 5 


600 


CO 





06122 




STZ 


foALLPC 


ZERO WALL PAPER COUNTER 


LS030970 


05346 


06 CI 


GO 





04213 




STO 


PRINTL 


SAVE THE ARGUMENT 


LS030980 


• 05347 


74 


CO 


4 


05356 




TSX 


PRINO, 4 




LS030990 


05350 


0074 


CO 


4 


06026 


PRTT 1 


TSX 


TERPRI,4 




LS031000 


05351 


G500 


GO 





04213 




CLA 


PRINTL 


RESTORE THE ARGUMENT 


LS031010 


• 05352 


774 


00 


4 


00000 


PRPS1 


AXT 


** ,4 


RESTORE LINK IR 


LS031020 


05353 


00 20 


CO 


4 


00001 




TRA 


1,4 




L SO 3 1030 


05354 


0500 


CO 





05436 


PRNIL 


CLA 


PRBLW 


PICK UP NIL REPRESENTATION 


LS031040 


• 0535 5 


20 


CO 





05662 




TRA 


$PRIN2 


PUT IN PRINT LINE AND EXIT 


LS031050 


05356 


-0634 


CO 


4 


05437 


PRINO 


SXD 


PS 1,4 




LS031060 


05357 


0100 


CO 





C5354 




TZE 


PRNIL 


PRINT THE NULL LIST 


LS031070 


• 0536C 


-0 734 


CO 


4 


00000 




PDX 


0,4 




LS031080 


05361 


-0634 


GO 


4 


C544 5 




SXD 


LI, 4 




LS031090 


- 05362 


0500 


oe 


4 


00000 




CLA 


0,4 




LS031100 


• 05363 


6 01 


CO 





05444 




STO 


CWRL 




LS031110 


05364 


0734 


CO 


4 


COOQO 




PAX 


0,4 




LS031120 


05365 


-3 777 76 


4 


05 371 




TXL 


X A 1,4,-2 




LS031130 


BINARY CARD NO, 


LISP 0121 












05366 


5 00 


CO 





0544 5 




CLA 


LI 




LS031140 


• 05367 


-0 534 


CO 


4 


05437 




LXD 


PSI,4 




LS031150 


0537C 


020 


GO 





05446 




TRA 


$PRIN1 




LS031160 


05 371 


520 


CO 





06306 


XA1 


ZET 


PUNACT 


DONT TERMINATE EAKLY ON PUNCH 


LS031170 


W 05372 


0020 


CO 





C5376 




TRA 


*+4 




LS031180 


0537 3 


-C534 


CO 


4 


06070 




LXD 


K0RDS,4 




LS031190 


05374 


3 000 02 


h 


0537 6 




TXH 


*+2,4,2 


IF NEAR END OF LIME 


LS031200 


• 0537 5 


074 


00 


A 


06026 




TSX 


TERPRI,4 


THEN DO A TERPRI 


LS031210 


05 376 


0500 


GO 





05442 




CLA 


LPAR2 




LS031220 


05377 


0074 


CO 


4 


05662 




TSX 


$PRIN2,4 




LS031230 


• 05400 


0500 


GO 





05444 




CLA 


CWRL 




LS031240 


05401 


0074 


CO 


4 


03 104 




TSX 


$SAVE,4 




LS031250 


_ 05402 


-3 05442 





0316 7 




TXL 


$END2,,PS2+2 


SAVE 2 ITEMS 


LS031260 


• 05403 


0622 


CO 





05440 


A3 


STD 


PS2 


SAVE LIST 


LS031270 


05404 


07 34 


GO 


4 


00000 




PAX 


0,4 


CAR TO IR 4 


LS031280 


0540 5 


-3 00000 


4 


05432 




TXL 


PRP2,4»0 




LS031290 


• 05406 


-0754 


CO 


4 


00000 




PXD 


0,4 




LS031300 


540 7 


0074 


GG 


'+ 


05356 




TSX 


PRINO, 4 




LS031310 


~ 0541G 


-0 534 


CO 


4 


G5440 


A4 


LXD 


PS2,4 




LS031320 


• 05411 


-3 OOOCO 


4 


C5421 




TXL 


A6,4,0 


EXIT IF NULL 


LS031330 


05412 


500 


CO 


4 


COOOO 




CLA 


0,4 


TEST FOR ATOM 


LS031340 


05413 


0734 


CO 


4 


0000 G 




PAX 


0,4 




LS031350 


BINARY CARD NO. 


LISP0122 












05414 


-3 777 76 


4 


05425 




TXL 


A2,4,-2 


GO TO A2 IF MOT AN ATOM 


L SO 3 1360 


• 05415 


0500 


CO 





C5435 




CLA 


DOT 


OTHERWISE PRINT IN DOT NOTATION 


LS031370 


05416 


00 74 


00 


4 


05662 




TSX 


$PRIN2,4 


PUT IN PRINT LINE 


LS031380 


05417 


500 


CO 





05440 




CLA 


PS2 


CDR OF LIST 


LS031390 


W 05420 


0074 


CO 


4 


05446 




TSX 


$PRIN1,4 


PRINT AS ATOM 


LS031400 


05421 


0074 


CO 


A 


03117 


A6 


TSX 


UN SAVE, 4 




LS031410 


_ 0542 2 


0500 


GO 





05441 




CLA 


RPAR2 




LS031420 
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05423 
05424 
05425 
05426 
05427 
05430 
05431 

05432 
05433 
05434 
05435 
05436 
05437 
0544C 
05441 



-0534 
0020 
0500 
0074 

-0534 
500 
C020 



CO 

CO 
CO 

CO 
CO 
CO 
CO 



C5437 
05662 
05443 
05662 
05440 
00000 
C5403 



0500 CO 05436 
0074 CO 4 05662 
0020 CC C541C 
-2C336C777777 
-053143777777 
OOOCO 11045 
OOOCO OGOOO 
+347777777777 



A2 



PRP2 



DOT 

PRBLW 

PS1 

PS2 

RPAR2 



LXD PS1.4 

TRA $PRIN2 
CLA CCMM2 
TSX $PRIN2,4 
LXD PS2,4 
CLA 0,4 
TRA A3 

CLA PRBLW 
TSX $PRIN2,4 
TRA A4 

OCT 603360777777 
OCT 453143777777 
$F4 

OCT 347777777777 



NIL 



LS031430 
LS031440 
LS031450 
LS031460 
LS031470 
LS031480 
LS031490 
LS031500 
LS031510 
LS031520 
LS031530 
LS031540 
LS031550 
LS031560 
LS031570 
LS031580 



BINARY CARD NO. LISP012 3 
05442 -347777777777 
0544 3 -207777777777 
05444 OOOCO OOOQO 
0544 5 OOOCO OOOQO 



LPAR2 OCT 
C0FM2 OCT 
CWRL 
LI 



HED 



747777777777 
607777777777 



BLANK 



INSfEAD OF A COMMA 



/ 
Al 



A3 
A2 



*/ 



05446 


-0 634 CO 


4 


05644 


PR INI SXD 


PR1, 


4 


05447 


0601 CO 





05 643 


STO 


PRSS 


0545C 


520 CO 





C6306 


ZET 




PUNACT 


05451 


0020 CO 





05455 


TRA 




* + 4 


05452 


-G534 GO 


4 


06070 


LXD 




WORDS, 4 


05453 


3 000 C 2 


4 


05455 


TXH 




*+2,4,2 


05454 


00 74 CO 


4 


06026 


TSX 




TERPRI,4 


05455 


-0 534 CO 


4 


05643 


LXD 




PRSS, 4 


05456 


5 GO CO 


4 


00000 


CLA 


,4 




05457 


0625 CO 





05655 


STT 




PTTGR 


05460 


-0320 CO 





00513 


ANA 


ADDM 



SUBROUTINE (PRINK L3 J 

CAR(L) N=-l YIELDS 6KR0R 

ST = L 

CDR(L) = YIELDS ERROR 

L - CDR(L) 

CAR(L) = PNAKE YIELDS G0(A3J 

CAR(L) N= FLOAT YIELDS GO(Al) 

L = CAR(CDRIL) ) 

VAL = FLONAK(L) 

REPLACD(CONS(PNAME,CONS(VAl t C0R{ST} ) } f ST) 

L = CDR(ST) 

L= CAR(CDR(L») 

PRIN21CWR(CAR(L)) 

L ~ CDRiL) 

L=0 YIELDS RETURN 
G0IA2) 



SAVE OBJECT 



IF NEAR WUB OF LINE 
THEN DO A TERPRI 



L SO 3 1590 
LS031600 
LS031610 
LS031620 
LS031630 
LS031640 
LS031650 
LS031660 
LS031670 
LS031680 
LS031690 
LS031700 
LS031710 
LS031720 
LS031730 
LS031740 
LS031750 
LS031760 
LS031770 
LS031780 
LS031790 
LS031800 
LS031810 
LS031820 
LS031830 
LS031840 
LSO 31850 
LS031860 
LS031870 
LS031880 
LSO 31890 
LS031900 
LS031910 
LS031920 
LS031930 
LS031940 
LS031950 
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05461 


C402 


00 





00513 




SUB 


ACDM 


05462 


C1G0 


CO 





05470 




TZE 


PR3 


05463 


-0634 


CO 


4 


02313 


PR2 


SXD 


$ERRCR,4 


05464 


0C74 


CO 


4 


06 02 6 




TSX 


TERPRI,4 


05465 


-07 54 


CO 





CO 000 




PXD 


0,0 


05466 


0074 


GO 


4 


02314 




TSX 


$ERR0R+1,4 


05467 


54476C600154 




BCI 


lt*P 1* 










00513 


AD CM 


SYN 


$AMASK 


BINARY CARD NC. 


LISP0124 








05470 


C520 


CO 





05655 


PR3 


ZET 


PTTGR 


05471 


020 


CO 





05503 




TRA 


PR3N 


05472 


C500 


CO 


4 


OOOQO 




CLA 


0,4 


05473 


0020 


CO 





05476 




TRA 


* + 3 


05474 


-3 11061 


4 


05476 


PR3P 


TXL 


*+2,4,$PNAME-l 


05475 


-3 110 62 


4 


05520 




TXL 


PA3,4,$PNAME 


05476 


-0734 


GO 


4 


CO 000 




PCX 


0,4 


05477 


-3 000 CO 


4 


05630 




TXL 


PR5t4,0 


05500 


C5C0 


CO 


4 


OOOQO 




CLA 


0,4 


05501 


0734 


00 


4 


OOOQO 




PAX 


0,4 


0550 2 


0020 


CO 





05474 




TRA 


PR3P 


05503 


-0534 


CC 


4 


05643 


PR3N 


LXO 


PRSS,4 


05504 


0500 


CO 


4 


00000 




CLA 


0,4 


0550 5 


-C734 


00 


4 


COOOO 




PDX 


0,4 


05506 


06 34 


CO 


4 


05654 




SXA 


PTPNT,4 


05507 


500 


CO 





05655 




CLA 


PTTGR 


05510 


-0 3 20 


CO 





00473 




ANA 


$GT2 


05511 


-0100 


CO 





05 534 




TNZ 


PR4F 


05512 


C500 


CO 





05655 




CLA 


PTTGR 


05513 


-0320 


CO 





00474 




ANA 


$QT4 


05514 


-C1C0 


CC 





05537 




TNZ 


LUCY 


05515 


-0754 


CO 


4 


COOOO 




PXD 


0,4 


BINARY CARD NO. 


LISP0125 








05516 


0074 


CO 


4 


04657 




TSX 


NUMNAM,4 


05517 


00 20 


CO 





0553* 




TRA 


PR4E 


05520 


-0734 


CO 


4 


00000 


"It 

PA3 


PDX 


0,4 


05521 


500 


CO 


4 


COOOO 




CLA 


0,4 


05522 


C734 


GO 


4 


GOOOO 




PAX 


0,4 


05523 


500 


CC 


4 


COOOO 


PR 4 


CLA 


0,4 


05524 


0622 


CO 





05645 




STD 


L 


0552 5 


0734 


00 


4 


00000 




PAX 


0,4 


05526 


G5G0 


CO 


4 


COOOO 




CLA 


0,4 


0552 7 


0074 


CO 


4 


C5662 




TSX 


$PRIN2,4 


05530 


-C534 


CO 


4 


05645 




LXD 


L,4 


05531 


3 000 GO 


4 


05523 




TXH 


PR4,4,0 


05532 


-0534 


00 


4 


05644 


PR4E 


LXD 


PR1,4 


05533 


0020 


CO 


4 


00001 




TRA 


1,4 


5534 


-0754 


GO 


4 


00000 


PR4F 


PXD 


0,4 


05535 


GG74 


CO 


4 


06326 




TSX 


FL0NAM.4 


05536 


00 20 


CC 





C5532 




TRA 


PR4E 












if 

* 


PRINT THE NUMBER OCTALLY 


05537 


0634 


CO 


2 


05626 


LUCY 


SXA 


JUDY, 2 



CAR(L) N^-l YIELDS ERROR 



TRIED TO PRINT NON-OBJECT -PRLN1- 



FIRS* WORD OF ATOM 



COR 

UNPRINTABLE 
NEXT WORD 

EXAMINE WORD 



FOUND A PNAME 

POINTER TO PRINT LIST 

LIST ITEM 

SAVE KESrr OF LIST IF ANY 

POINTER TO FIKST FULL FULL WORD 

FULL WORD 

PRINT IT 

PICK UP REST OF LIST 

PRINT MORE IF MORE 

EXIT BY RESTORING LINK IR 

EXIT 



LS031960 
LS031970 
LS031980 
LS031990 
LS032000 
LS032010 
LS032020 
LS032030 



LS032040 
LS032050 
LS032060 
LS032070 
LS032080 
LS032090 
LS032100 
LS032110 
LS032120 
LS032130 
LS032140 
LS032150 
LS032160 
LS032170 
LS032180 
LS032190 
LS032200 
LS032210 
LS032220 
LS032230 
LS032240 
LS032250 



LS032260 
LS032270 
LS032280 
LS032290 
LS032300 
LS032310 
LS032320 
LS032330 
LS032340 
LS032350 
LS032360 
LS032370 
LS032380 
LS032390 
LS032400 
LS032410 
LS032420 
LS032430 
LS032440 
LS032450 
LS032460 



© 
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05 54C 
05541 
05542 
05543 



C534 
C560 
0162 
C5C0 



CO 

CO 
00 

cc 



2 05654 
2 00000 



05547 
05652 



BINARY CARD NO. LISP0126 



05544 0074 CC 

05545 €500 CO 

05546 -0130 00 

05547 -0520 CO 

05550 0020 CO 

05551 -0754 00 

05552 0774 00 
0555 3 -0763 CO 

05554 1 77777 

05555 0100 CO 



4 C5662 
2 00000 
000 00 
2 00000 
05624 

COOQO 
2 00014 
0GOQ3 
2 05555 
05553 



05556 
05557 
5560 
05561 
0556 2 
05563 
05564 
0556 5 
05566 
05567 
05570 
05571 



-0 501 GO 

140 CO 

-0 6 00 CO 

162 CO 

1 777 7 7 
-0520 CO 

0020 CO 

1 777 7 7 

767 CO 

-0763 CO 

-0140 CO 

-0 600 CC 



00450 
05560 
05646 
05563 
05566 
05646 
05603 
05566 
00003 
00003 
05560 
05 646 



BINARY CARD NO. LISP0127 



05572 
05573 
05574 
05575 
05576 
05577 
05600 
05601 
05602 

05603 
05604 
05605 
05606 

05607 
0561C 
05611 
05612 

05613 
05614 
05615 



00 74 
C500 
0560 
C140 
01fc2 

1 777 7 7 
0520 CO 
1 777 77 
0020 CO 



CO 
CO 
CO 
CO 
GO 



05662 
00425 
05646 
05576 
05600 
05566 
05646 
05566 
05607 



0560 CO 00525 

-0763 CO 00006 

-0140 CO 05604 

0074 CC 4 05662 

3 GOO CO 2 C5612 

0500 CO 05653 

0020 GO 05625 

-3 00011 2 05617 

-0754 00 2 00000 

0400 00 05647 

-0760 CO 00003 



BETTY 



GRETA 



FIFI 



LXA 
LDQ 
TOP 
CLA 



TSX 

CLA 

XCL 

NZT 

TRA 

LOOK 

PXD 

AXT 

LGL 

TXI 

TZE 

A NO* 

ORA 

TOV 

STO 

TOP 

TXI 

NZT 

TRA 

TXI 

ALS 

LGL 

TNO 

STQ 



DEBBY 



VICKI 



MICKY 



PTPNT,2 

0,2 

BETTY 

MISGN 



$PRIN2,4 
0,2 



GET POINTER TO NUMBER 

TEST FOR NEGATIVE NUMBER 
IF SO, PRINT - 



REMOVE MINUS SIGN 

TEST IF NUMBER ALL ZEROS 



0,2 

MARIE 
FOR NON-ZERO DIGIT ON LEFT 

,0 

12,2 IR2 COUNTS ZEROS ON RIGHT 

3 

«+ 1,2,-1 COUNT VACATED POSITIONS 

*-2 
l-ZERO DIGIT HAS APPEARED ON THE LEFT 

$Q64 PUT IN OVERFLOW FLIPPER 

*+l SHUT OFF OVERFLOW LIGHT 

TONI TEST IF ALL DIGITS ARE SPREAD 

* + 2 TEST FOR NON-ZERO SIGN BIT 

FIFI, 2,-1 SOME DIGITS NOT SPREAD, SO CONTINUE 

TONI 

DEBBY TRA IF ALL WIN-ZERO DIGITS SPREAD 

*+l,2,-l 

3 SPREAD ONE DIGIT 

3 

GRETA SEE IF FULL WORD OF DIGITS 

TONI PRINT THE WORD 



TSX $PRIN2,4 

CLA $Q1 

LDQ TONI 

TOV *+l 

TQP * + 2 

TXI FIFI, 2, -I 

ZET TONI 

TXI FIFI, 2,-1 

TRA VICKI 

FORM WORD FOR PRINTING 

LDQ SEVENS 

LGL 6 

TNO *-l 

TSX $PRIN2,4 

PRINT Q AND SCALE FACTOR 

TXH MICKV,2,0 

CLA BCIQ 

TRA PATSY 

TXL SANDY ,2,9 

OCTAL SCALE FACTOR MORE 

PXD ,2 

ADD BQ1C 

SSM 



PUT IN OVERFLOW FLIPPER 



SHUT 
TEST 



OFF 
FOR 



OVERFLOW 
NON-ZERO 



LIGHT 
SIGN BIT 



SEE IF ALL DIGITS SPREAD 



PUT 77S IN 
OVERFLOW 



RIGHT END OF 
SIGNALS LEFT 



WORD 
END OF 



WORD 



IF ANY 
CONTINUE 



IF SCALE FACTOR 



TRA IF 

THAN 10 



SCALE FACTOR LESS THAN 10 



FORM SCALE FACTOR FOR PRINTING 



LS032470 
LS032480 
LS032490 
LS032500 



LS032510 
LS032520 
LS032530 
LS032540 
LS032550 
LS032560 
LS032570 
LS032580 
LS032590 
LS032600 
LS032610 
LS032620 
LS032630 
LS032640 
LS032650 
LS032660 
LS032670 
LS032680 
LS032690 
LS032700 
LS032710 
LS032720 
LS032730 
LS032740 



LS032750 
LS032760 
LS032770 
LS032780 
LS032790 
LS032800 
LS032810 
LS032820 
LS032830 
LS032840 
LS032850 
LS032860 
LS032870 
LS032880 
LS032890 
LS032900 
LS032910 
LS032920 
LS032930 
LS032940 
LS032950 
LS032960 
LS032970 



LISP 1.5 FCR SHAKE ISTR I BUTICN, 
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05616 0C2O CC 05625 



05617 -0754 00 2 COOOG 



BINARY CARD NC. LISP0128 



TRA PATSY 
» CCTAL SCALE FACTOR LESS TH 
SANOY PXD ,2 



AN 10 



05620 


0767 


CO 





00OQ6 




ALS 


6 


05621 


0400 


CO 


c 


G5650 




ADD 


BQO 


05622 


-C760 


CO 


c 


00003 




SSM 




05623 


020 


CO 





C5625 




TRA 


PATSY 


05624 


0500 


CC 


c 


05651 


MARIE- 


CLA 


BCIOQ 


05625 


0074 


CC 


4 


05662 


PATSY 


TSX 


$PRIN2,4 


05626 


7 74 


CO 


2 


00000 


JUDY 


AXT 


»*,2 


05627 


CO 20 


CO 





05532 




TRA 


PR4E 



PRINT OQ 

ONLY THIS SECTION USES 1X2 

GENERATE A PRINT NAME FOR AN OBJECT; WITHOUT ONE. 

THE PRINT NAME IS OF THE FORM LDODDD WHERE THE D»S ARE THE 
OCTAL DIGITS OF THE 2,S COMPLIMENT OF THE FIRST WORD OF 
THE PROPERTY LIST OF THE OBJECT. 



0563C 


-0535 


CO 


4 05643 


PR5 


LDC 


PRSS, 4 


0563 I 


-0 7 54 


00 


4 CGOOO 




PXD 


0,4 


0563 2 


0131 


CC 


00000 




XCA 




05633 


0074 


CO 


4 11731 




TSX 


CCTALP,4 


05634 


-0501 


CO 


05642 




ORA 


PRC1 


05635 


-0760 


CO 


COO 03 




SSM 




05636 


-C760 


CO 


00001 




PBT 




05637 


0760 


CO 


00002 




CHS 




05640 


-0534 


CO 


4 05644 




LXD 


PR1 T 4 


05 641 


0020 


CO 


05662 




TRA 


$PRIN2 


05642 


43O0OCG0CGCO 


PRC1 


BCI 


1,L00C00 


05643 


COOCO 


CCOOC 


PRSS 






05644 


C COOCO 


CCOOC 


PR1 






05645 


00000 


00000 


L 






05646 








TONI 


BSS 


1 


RY CARD NO. 


L ISP0129 








05647 


+100066777777 


BQ1G 


OCT 


100066777777 


05650 


+100077777777 


BQO 


OCT 


100077777777 


05651 


+C05077777777 


BCIOQ 


OCT 


005077777777 


05652 


-007777777777 


MISGN 


OCT 


407777777777 


0565 3 


-107777 777777 


BCIQ 


OCT 


507777777777 


05654 








PTPNT 


BSS 


1 



FIX SIGN TO AGREE WITH P BIT FOR PRIN2 



RESTORE LINK IR 

PUT IN PRINT LINE AND EXIT 

L SYMBOL 

STORAGE FOR POINTER TO OBJECT 



USED 


TO 


FORM 


BCI 


Q1N 


USED 


TO 


FORM 


BCI 


QN 


BCI OQ 








BCI - 











BINARY CARD NC. LISP013O 

0565 5 CGOOO 00000 PTTGR 



TEST CELL FOR NUMBER FLAGS 



PRIN2 PRINTS UP TO 6 CHARACTERS IN ONE WORD WHEN THE 
CHARACTERS ARE JUSTIFIED TO THE LEFT AND FOLLOWED BY THE 
ILLEGAL CHARACTER WHOSE OCTAL FORM IS 77 



05656 -0634 CO 4 06O67 PRINT2 SXD PR9,4 



LS032980 
LS032990 
LS033000 



LS033010 
LS033020 
LS033030 
LS033040 
LS033050 
L SO 3 30 60 
LS033070 
LS033080 
LS033090 
LS033100 
LS033110 
LS033120 
LS033130 
LS033140 
LS033150 
LS033160 
LS033170 
LS033180 
LS033190 
L SO 33200 
LS033210 
LS033220 
LS033230 
LS033240 
LS033250 
LS033260 
LS033270 
LS033280 
LS033290 
LS033300 
LS033310 



LS033320 
LS033330 
LS033340 
LS033350 
LS033360 
LS033370 



LS033380 
LS033390 
LS033400 
LS033410 
LS033420 
LS033430 
LS033440 
LS033450 
LS033460 



• 


LISP 


1. 


5 


FOR SHARE DISTRIBUTION, MARCH 1 
LISP FUNCTIONS 


^ 05657 


-0734 


00 


4 


OOOOG 




PCX 


0,4 


• 0566C 


C500 


CO 


4 


OCOOO 




CLA 


C,^ 


05661 


20 


CO 





05664 




TRA 


» + 3 


0566 2 


3 000 CO 





06153 


PRIN2 


TXH 


$PUN2,,0 


• 05663 


-0634 


CO 


4 


06067 




SXD 


PR9,4 


05664 


-C634 


CO 


2 


06066 




SXD 


PR8,2 


m 05665 


-06 34 


00 


1 


06065 




SXD 


PR7,1 


• 05666 


-0 5 34 


CO 


4 


0&070 




LXD 


WORDS, 4 


05667 


-3 00000 


4 


0605 7 




TXL 


INIT,4,0 


0567 C 


0774 


CO 


1 


0000 I 


C0MB4 


AXT 


1,1 


• 05671 


0601 


CO 





06O74 




STC 


TEMP 


0567 2 


-0 500 


CO 





06074 




CAL 


TEMP 


0567 3 


-0340 


CO 


C 


00525 




LAS 


SEVENS 


• 05674 


0020 


CO 





05676 




TRA 


* + 2 


05675 


CO 20 


CO 


c 


05727 




TRA 


NCJ08 


05676 


-0320 


CO 


-o 


06072 


SHIFL 


ANA 


RCHM IS T 


• 0567 7 


04C2 


CO 





06072 




SUB 


RCHM 


05700 


-0100 


CO 





C5705 




TNZ 


JUST 


05701 


-C5C0 


CO 





06074 




CAL 


TEMP 


• 05 70 2 


0771 


CO 





00006 




ARS 


6 


BINARY CARD NO. 


LISP0I31 








• 0570 3 


602 


CO 





06074 




SLW 


TEMP 


05704 


1 000 CI 


1 


05676 




TXI 


SHIFL, 1,1 


— 05705 


-0500 


CO 





06074 


JUST 


CAL 


TEMP 


• 05706 


0C20 


CO 


1 


05715 




TRA 


LSHIF+i,i 


05707 


0767 


GO 


c 


00006 




ALS 


6 


^ 057 1G 


0767 


CO 


c 


00006 




ALS 


6 


• 05711 


C767 


CO 





GOO 06 




ALS 


6 


05 712 


767 


CC 





00006 




ALS 


6 


_ 05713 


767 


CO 





00006 




ALS 


6 


• 05714 


0602 


CO 





06074 


LSHIF 


SLW 


TEMP 


05715 


0560 


CO 


c 


060 74 




LDQ 


TEMP 


a 05716 


-0 500 


CO 





06073 




CAL 


PART 


• 05717 


-0534 


CO 


2 


06071 




LXD 


PARTS, 2 


05720 


-0763 


CO 





00OO6 


COMB 


LGL 


6 


_^ 05721 


0602 


CC 





06073 




SLW 


PART 


• 05722 


-2 0000 1 


2 


C5734 




TNX 


WFULL, 2,1 


05 72 3 


1 000C1 


1 


05724 


C0MB5 


TXI 


t+1,1,1 


~ 05724 


-3 000C6 


1 


05720 




TXL 


CCMB*i,6 


• 05 72 5 


-0 6 34 


CO 


2 


06071 


C0MB1 


SXD 


PARTS, 2 


0572 6 


-0634 


CO 


4 


06070 




SXD 


WORDS, 4 


05727 


-0534 


CC 


1 


06065 


NO JOB 


LXD 


PR7,1 


• 05730 


-0 534 


CO 


2 


06066 




LXD 


PR 8, 2 


BINARY CARD NO. 


LISP0132 








W 05731 


-0534 


CO 


A 


06067 




LXD 


PR9,4 


0573 2 


-0 754 


00 





00000 




PXD 


0,0 


0573 3 


0020 


CO 


4 


00001 




TRA 


i,4 


• 05 734 


06C2 


CC 


4 


06121 


WFULL 


SLW 


REC,4 


05735 


-? 00001 


4 


05740 




TNX 


RECFL, 4,1 


05 736 


774 


CO 


2 


0000 6 


CO MB 3 


AXT 


6,2 


• 0573 7 


CO 20 


CO 





05723 




TRA 


C0MB5 


0574 C 


-0600 


GO 





06074 


RECFL 


STQ 


TEMP 


^ 05741 


0500 


CO 





06122 




CLA 


WALLPC 



1965 
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BRING BCD WORD TO AC 



SWITCH TO PUNCH OUT ROUTINE 



ROOM LEFT IN OUTPUT RECORD 
CAN BE ZERO ONLY IF ROUTINE 



NGTUSED 



WORD OF ALL 77-S CAUSES NO ACTION 



RIGHT CHARACTER 77 



NOT 77 



GET MAX NUMBER OF LINES PER LIST 



LS033470 
LS033480 
LS033490 
LS033500 
LS033510 
LS033520 
LS033530 
LS033540 
LS033550 
LS033560 
LS033570 
LS033580 
LS033590 
LS033600 
LS033610 
LS033620 
LS033630 
LS033640 
LS033650 
LS033660 



LS033670 
LS033680 
LS033690 
LS033700 
LS033710 
LS033720 
LS033730 
LS033740 
LS033750 
LS033760 
LS033770 
LS033780 
LS033790 
LS033800 
LS033810 
LS033820 
LS033830 
LS033840 
LS033850 
LS033860 
L SO 33870 
LS033880 



L SO 33 890 
LSO 33900 
LS033910 
LS033920 
LS033930 
LS033940 
LS033950 
LS033960 
LS033970 



mum 



mm 



mmm 



LISP 1,5 FOR SHARE DISTRIBUTION, 
LISP FUNCTIONS 



MARCH 1965 
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— , 05742 


04 00 


CO 





00425 


ADD 


$G1 


• 05743 


0340 


cc 


C 


06123 


CAS 


BRKOUT 


05744 


20 


CO 





05746 


TRA 


* + 2 


05745 


G020 


CO 





05761 


TRA 


PRTB 


• 05746 


0601 


CO 


c 


06122 


STO 


WALLPC 


05747 


74 


CO 


4 


01527 


TSX 


OUTPUT, 4 


5 750 


o eoooo 


c 


00365 


PR INTO 


BCDOUT 


• 05751 


G 00024 


c 


06075 




REC-20,,20 


05752 


0560 


CO 





06074 


LDQ 


TEMP 


05753 


-C534 


CO 


4 


C0503 


LXD 


GD20.4 


• 05754 


-0500 


cc 





00527 


CAL 


BLNKA 


05755 


0602 


CO 





06073 


SLW 


PART 


05756 


-C534 


CO 


4 


00503 


LXD 


QD20,4 


BINARY CARD NC. 


LISP0133 






05757 


-0534 


CO 


2 


C050C 


LXD 


Q05,2 


• 0576C 


0020 


00 





0572 3 


TRA 


C0MB5 


05761 


-0534 


CO 


1 


06121 


PRTB LXD 


PCPPI.l 


05 76 2 


-0634 


CO 


1 


03110 


SXD 


$CPPI,1 


• 05763 


-0534 


CO 


2 


06066 


LXD 


PR8,2 


05764 


0020 


CO 


C 


05350 


TRA 
* 
* TAB 

* 


PRTT1 

TAKES NUM 
OUT THAT 


• 05765 


0634 


CO 


4 


06020 
C5765 


TAB SXA 
TAB TAB SYN 


TABX,4 
TAB 


05766 


0634 


CO 


2 


06021 


SXA 


TABY,2 


• 05767 


-0 734 


CO 


4 


GOGOO 


PDX 


0,4 


05 770 


5 GO 


CO 


4 


OOOOO 


CLA 


0,4 


05 771 


-0 734 


00 


4 


ooooo 


PCX 


G,4 


• 05772 


500 


00 


4 


00000 


CLA 


0,4 


05773 


0734 


CO 


4 


ooooo 


PAX 


0,4 - 


05774 


-3 00000 


4 


0602 


TXL 


TABX,4,0 


• 05775 


3 000 2 3 


4 


06024 


TXH 


TABC,4,19 


05776 


-0 634 


CO 


4 


06O0C 


SXD 


* + 2,4 


05777 


0774 


00 


4 


00024 


AXT 


20,4 


• 06000 


2 COOCO 


4 


06001 


TIX 


*+l ,4 ,** 


06001 


-0634 


CO 


4 


06016 


SXD 


TABA, 4 


0600 2 


-0 5 34 


CO 


4 


06070 


LXD 


WORDS, 4 


• 0600 3 


-3 000 CI 


4 


06024 


TXL 


TABC,4,1 


06004 


-0 5 34 


GO 


2 


06071 


LXD 


PARTS, 2 


• BINARY CARD NC. 


LISPC134 






06005 


5 60 


CC 





00527 


LDQ 


BLANK 


06006 


G5 00 


CO 





06073 


CLA 


PART 


• 06007 


-0763 


00 





C0OQ6 


LGL 


6 


06010 


2 00001 


2 


06007 


TIX 


•-li2,l 


06011 


774 


00 


2 


00OQ6 


AXT 


6,2 


• 06012 


-0634 


CO 


2 


06071 


SXD 


PARTS, 2 


06013 


0602 


CO 


4 


06121 


TABB SLW 


REC,4 


„ 06014 


-0500 


CC 


C 


00527 


CAL 


BLANK 


• 060 1 5 


1 77777 


4 


06016 


TXI 


*+l,4,-l 


06016 


3 OOOCO 


4 


06013 


TABA TXH 


TABB,4,*» 


A 06017 


-0634 


CO 


4 


06070 


SXD 


WORDS, 4 



COMPARE WITH 
NO, GO ON 
= BREAKOUT 
PUT AWAY 



MAX NUMBER 



RESTORE I/Xl AND CPPI 



BREAKOUT 

BER FROM 1 TO 20 AND TABS OUTPUT LINE 
MANY WORDS. 



GET AROUND HEADLNG NQNSCENCE 



NO TAB AT ALL 



TAB OUT TO HERE 



LS033980 
LS033990 
L SO 34000 
LS034010 
LS034020 
LS034030 
LS034040 
LS034050 
LS034060 
LS034070 
LS034080 
LS034090 
LS034100 



LS034110 
LS034120 
LS034130 
LS034140 
LS034150 
LS034160 
LS034170 
LS034180 
LS034190 
LS034200 
L SO 342 10 
LS034220 
LS034230 
LS034240 
LS034250 
LS034260 
LS034270 
LS034280 
LS034290 
LS034300 
LS034310 
LS034320 
LS034330 
LS034340 
LS034350 
LS034360 
LS034370 



LS034380 
LS034390 
LS034400 
LS034410 
LS034420 
LS034430 
LS034440 
LS034450 
LS034460 
LS034470 
LS034480 





LISP 


1. 


5 


FOR SHARE DISTRIBUTION, MARCH 1 
LISP FUNCTIONS 


06020 


0774 


CG 


4 


00000 


TABX 


AXT 


**,4 


06021 


0774 


OC 


2 


OOOOO 


TABY 


AXT 


**,2 


06022 


-C754 


CO 


c 


OOOOC 




PXD 


0,0 


06023 


CO 20 


CO 


4 


00001 




TRA 


1,4 


06024 


0074 


CO 


4 


06026 


TA8C 


TSX 


TERPRI, 4 


06025 


CC20 


CC 


C 


06020 


ft 


TRA 


TABX 












tt 


TERPRI FINISHES 


06026 


-06 34 


CO 


2 


06066 


3fr 

TERPRI 


SXD 


PR8,2 


06027 


-0634 


CO 


4 


06067 




SXD 


PR9,4 


06030 


-C534 


CO 


2 


06071 




LXD 


PARTS, 2 


06031 


-C534 


CO 


4 


06070 




LXD 


WORDS, 4 


060 32 


-0 500 


CO 





06073 




CAL 


PART 


BINARY CARD NC. 


L1SP0135 








0603 3 


C560 


CC 





00527 




LDQ 


BLANK 


06034 


-0 763 


CO 





00O06 


TER1 


LGL 


6 


06035 


2 C00C1 


2 


06034 




TIX 


TERi,2,l 


06036 


0602 


CO 


4 


06121 


TER3 


SLW 


REC, 4 


0603 7 


-2 000 CI 


4 


06042 




TNX 


TER2„4,1 


0604C 


-0 5 CO 


CC 


C 


00527 




CAL 


BLANK 


06041 


0020 


CO 





C6036 




TRA 


TER3 


06042 


G074 


CC 


4 


01527 


TER2 


TSX 


OUTPUT, 4 


06043 


000 CO 





00 365 


PRINTC 




BCDOUT 


06044 


00024 





06075 






REC-20,,20 


06045 


-C5 34 


CO 


4 


00503 




LXD 


QD20,4 


06046 


-0634 


CO 


4 


06070 




SXD 


WORDS, 4 


06047 


-0 534 


CO 


2 


C0500 




LXD 


GD5,2 


0605C 


-G6 34 


CO 


2 


06071 




SXD 


PARTS, 2 


06051 


-0534 


CO 


2 


06066 




LXD 


PR8,2 


06052 


-C534 


CO 


4 


C6067 




LXD 


PR9 r 4 


06053 


0500 


CC 





00527 




CLA 


BLNKA 


06054 


C601 


CO 





06073 




STO 


PART 


06055 


-C754 


CO 





OCOQO 




PXD 


0,0 


06056 


C020 


CO 


4 


00001 




TRA 


1,4 


06057 


-0 534 


CO 


4 


00503 


INIT 


LXD 


Q020,4 


06060 


0560 


CO 


C 


00527 




LDQ 


BLNKA 


3INARY CARD NO. 


LISP0136 








06061 


-06 00 


CO 





06073 




STQ 


PART 


06062 


0774 


CO 


2 


CC005 




AXT 


5,2 


06063 


-C634 


CO 


2 


06071 




SXD 


PARTS, 2 


06064 


0020 


CO 





05670 




TRA 


C0M84 


0606 5 


C COOCC 


C 


COOQC 


ft 

PR7 






06066 


C COO CO 


C 


OOOOO 


PR8 






06067 


OOOCO 





OOOOO 


PR9 






06070 


C0024 





COOQO 


WORDS 




*,20 


06071 


G 00005 





OOOQO 


PARTS 




,,5 


06072 


+CC OOOCO 00 077 


RCHM 


OCT 


77 


06073 


OOOCO 





OOOOO 


PART 






06074 


C COOCO 


o ■ 


OOOOO 


TEMP 






06121 










REC 


BES 


20 



1965 
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DUMP THIS LINE 



LINE OUT WITH BLANKS AND PRINTS IT 



LS034490 
LS034500 
LS034510 
LS034520 
LS034530 
LS034540 
LS034550 
LS034560 
LS034570 
LS034580 
LS034590 
LS034600 
LS034610 
LS034620 
LS034630 



LS034640 
LS034650 
LS034660 
LS034670 
LS034680 
LS034690 
LS034700 
LS034710 
LS034720 
LS034730 
LS034740 
LS034750 
LS034760 
LS034770 
LS034780 
LS034790 
LS034800 
L SO 348 10 
LS034820 
LS034830 
LS034840 
LS034850 



LS034860 
LS034870 
LS034880 
LS034890 
LS034900 
LS034910 
LS034920 
LS034930 
LS034940 
L SO 34950 
LS034960 
LS034970 
LS034980 
LS034990 



'wmm 



mmmmm 



LISP 1.5 FOR 



SHARE DISTRIBUTION, 
LISP FUNCTIONS 



INARCH 1965 
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BINARY CARD NC. LISP0137 

06121 C 000 CO COOOO 

06122 G OOOCO COOOO 

06123 +G0CC0C0G0113 

C0500 
CC503 
00527 
00527 



06124 
0612 5 
06126 
0612 7 
06130 
06131 
06132 
06133 
06134 
06 1 3 5 
06136 



OOOCO 

C 100CC 

C 2 00 CO 

300CG 

C 40000 C 

5 00 CO 

60000 
C 7O0C0 

1 OOOCO 
1 100C0 



COOCC 



06124 
06124 
06124 
06124 
06124 
06124 
06124 
06124 
06124 
06124 
G6125 



0613 7 

0614C 
06141 
06142 

0614 3 
06144 
06145 
0614 6 



0634 

-0625 

■0 734 

0502 

C6C1 

•0754 

0601 

CC74 



CO 
CO 

00 

cc 

CO 

00 
CC 
CC 



4 


4 


4 

4 



06151 
06306 
00000 
05662 
05662 
00000 
04213 
05 356 



BINARY CARD NO. 
0614 7 00 74 

06150 C5C0 

06151 C774 

06152 0020 



LISP0138 
CO * 06246 
CC 04213 
CO 4 00000 
CO 4 00001 



06153 
06154 
06155 

0615 6 
06157 
06160 
06161 
06162 

0616 3 
06164 



063A 
0634 
0634 
0774 
0774 
7 74 
0131 
■0754 
-0763 
0340 



00 
CO 
CC 
CO 
CO 
CC 
00 
00 
CO 
CO 



A 

2 
1 
4 
2 
1 


C 




06176 
06 177 
062Q0 
00014 
00006 
00006 
00 000 
00000 
00006 
06304 



PCPPI 
WALLPC 

BRKOUT 

QD5 

0D20 

BLANK 

BLNKA 
•* 

* BCCAD1 
* 

ACT 
BCDAC1 



DEC 
SYN 
SYN 
SYN 
SYN 



CVR 



PZE 

PZE 
PZE 
PZE 
PZE 
PZE 
PZE 
PZE 
PON 
PON 
PZE 



* PUNCH 
PUNCH 



PNCHX 

* PUN2 
PUN2 



PWRDS 
PPRT5 



PLP 



SXA 
STL 

PDX 
CLS 
STO 
PXD 
S10 
TSX 



TSX 
CLA 
AXT 
TRA 



SXA 
SXA 
SXA 
AXT 
AXT 
AXT 
XCA 
PXD 
LGL 
CAS 



PUSHDOWN COUNTER STORAGE 
NUMBER OF LINES IN THIS LIST SO FAR 
75 

$QD5 
$QD20 
BLANKS 
BLANKS 

A CONVERT TABLE FOR ADDING 1 TO A 6 DIGIT BCD NUMBER 
USED BY LOADING BCD NUMBER INTO AC AND DOING 
BCDAD1,,6 



ADT 
ADT, 
ADT, 
ADT, 

ADT,, 

ADT, 

ADT, 

ADT, 

ADT 

ADT,, 

BCDAD 



1*4096 
2*4096 
3*4096 
4*4096 
5*4096 
6*4096 
7*4096 

1*4096 
1 




1 

3 
4 
5 
6 
7 
8 
9 
10 



WRITES OUT A LIST ON THE SYSTEM PERIFIAL PUNCH TAPE 
iSYSPPT) IN A FORM SUTA.B1E FOR PUNCHING IN BCD. 



PNCHX, 4 

PUN ACT 

0,4 

$PRIN2 

$PRIN2 

0,4 

PRINTL 

$PRINO,< 



TERPUN,4 
PRINTL 
**,4 
1,4 



SAVE LINK IR 
ACTIVTE PUNCH ROUTINE 
ARGUMENT TO IR 4 
SET SWITCH TO 
GO TO PUNCH ROUTINE 
ARGUMENT TO AC 
SAVE THE ARGUMENT 

USES PRINT ROUTINE 



TERMINATE PUNCHING 
RESTORE THE ARGUMENT 
RESTORE LINK IR 
EXIT 



PUNCH EQUIVELENT OF PRIN 2 



PNX,4 

PNY,2 

PNZ,1 

12,4 

6,2 

6,1 

0,0 

6 

PSS 



SAVE TNDEX REGISTERS 



NUMBER OF WORDS LEFT IN BUFFER 

CHARACTER POSITION 

MAXIMUM NUMBER OF CHARACTERS 

ARGUMENT f© MO 

CLEAR AC 

CHARACTER TO *!Q 

COMPARE WITH 77 



LS035000 
LS035010 
LS035020 
LS035030 
LS035040 
LS035050 
LS035060 
LS035070 
LS035080 
LS035090 
LS035100 
LS035110 
LS035120 
LS035130 
LS035140 
LS035150 
LS035160 
LS035170 
LS035180 
LS035190 
LS035200 
LS035210 
LS035220 
LS035230 
LS035240 
LS035250 
LS035260 
LS035270 
LS035280 
LS035290 
L SO 35300 
LS035310 
LS035320 
LS035330 
LS035340 



LS035350 
LS035360 
LS035370 
LS035380 
LS035390 
LS035400 
LS035410 
LS035420 
LS035430 
LS035440 
LS035450 
LS035460 
LS035470 
LS035480 
LS035490 
LS035500 
LS035510 



mmmmm 



LISP 1.5 FGR 



SHARE DISTRIBUTION, MARCH 1965 
LISP FUNCTIONS 



06165 


C761 


CO 





OGOOC 




NOP 




• 06166 


C020 


GO 





06173 




TRA 


POUT 


06 16 7 


522 


CO 


2 


06302 




XEC 


PCNT, 2 


0617C 


-G6C2 


CO 


4 


06324 




ORS 


P0UP,4 


• 06171 


-2 C00C1 


2 


06202 




TNX 


PRPLP, 2,1 


06172 


2 G00C1 


1 


06162 


PGRA 


TIX 


PLP,1,1 


06173 


6 34 


CO 


2 


06157 


POUT 


SXA 


PPRTS,2 


• 06174 


6 34 


CO 


4 


06156 




SXA 


PWRDS,4 


BINARY CARD NO. 


LISP0139 








• 06175 


-0 7 54 


CO 


C 


00000 




PXD 


0,0 


06176 


0774 


CC 


A 


COuQG 


PNX 


AXT 


**,4 


- > 06177 


€774 


CO 


2 


COOOO 


PNY 


AXT 


**,2 


• 0620C 
06201 


0774 


CC 


1 


00000 


PNZ 


AXT 


**» 1 


20 


CO 


4 


00001 




TRA 


1,4 


• 06202 


0774 


00 


2 


00006 


it 

PRPLP 


AXT 


6,2 


06203 


2 C0001 


4 


06172 




TIX 


PGRA, 4,1 


06204 


0500 


CO 


C 


06302 




CLA 


PCNT 


• 06205 


0114 


C6 





06125 




CVR 


BCCADltf 6 


06206 


6 CI 


CC 





06 302 




STO 


PCNT 


„ 06207 


-0 6 00 


CO 





06305 




STQ 


PNCQ 


! • 06210 


0560 


CC 





CO 4 24 




LDQ 


$ZERO 


06211 


-0 765 


CC 


c 


00OQ6 




LGR 


6 


1 06212 


361 


CO 





G6303 




ACL 


PLIS 


1 • 06213 


0602 


CO 





06324 




SLW 


POUP 


j 06214 


-C600 


CO 





06325 




STQ 


POUP+1 


06215 


G500 


CC 





00365 




CLA 


SYSPOT 


1 • 06216 


402 


CO 





00364 




SUB 


SYSPPT 


[ 06217 


-0100 


CO 





06230 




TNZ 


PUNX2 


1 a 06220 


774 


CO 


4 


GGOOO 




AXT 


0,4 


• 06221 


C560 


CC 





06325 




LDQ 


PGUP+1 


I 06222 


-0 5 00 


GO 


4 


06324 


PUNX1 


CAL 


POUP, 4 


f • BINARY CARD NO. 


LISP0140 








06223 


-0765 


CO 





00006 




LGR 


6 


t m. 0622A 


-06 00 


CC 


4 


06325 




STQ 


POUP+1, 4 


f • 06225 


-0765 


CO 





00036 




LGR 


30 


06226 


1 000 CI 


4 


06227 




TXI 


*+l,4,l 


! 06227 


-3 00015 


4 


06222 




TXL 


PUNX1,4,13 


• 06230 


CO 74 


CO 


4 


01527 


PUNX2 


TSX 


OUTPUT, 4 


06231 


C 00000 





00364 






PPTOUT 


S a 06232 


COO 16 





06 310 






POUP-12,,14 


• 06 233 


-0046 


CO 





OOOQO 




PIA 




06234 


0441 


CO 





11254 




LDI 


SYSIND 


06235 


0055 


CO 


000040 




SIR 


PPT I NO 


• 06236 


6 04 


CC 


c 


11254 




STI 


SYSIND 


06237 


0044 


CO 





00000 




PAI 




0624C 


07 74 


CO 


4 


00014 




AXT 


12,4 


• 06241 


0600 


CO 


4 


06324 




STZ 


POUP, 4 


06242 


2 00001 


4 


06241 




TIX 


*-l,4,l 


06243 


0774 


CO 


4 


00014 




AXT 


12,4 


w 06244 


5 60 


CC 


C 


06305 




LDQ 


PNCQ 


0624 5 


00 20 


CC 


C 


06172 




TRA 


PGRA 



9/20/67 



GREATER, t IMPOSSIBLE) 

» , GO TO EXIT 

LESS THAN, SHIFT CHARACTER 

PUT IN OUTPUT LINE 

GO IF LAST CHARACTER IN WORD 

GET NEXT CHARACTER 

SAVE INDEX 2 N 4 



CLEAR AC 

RESTORE INDEX REGISTERS 



EXIT 

RELOAD CHARACTER COUNT 

GO IF WORD COUNT NOT EXHAUSTED 

GET CARD NUMBER IN BCD 

ADD 1 IN BCD 

SAVE CONTENTS OF MQ 

ZERO «Q 

SHIFT LOW ORDER DIGIT INTO MQ 

ADD BCD NAME OF CARD 

PUT IN ID FIELD 

IS SYSPOT * SYSPPT 

NO, NORMAL PUNCH 

YES, SHIFT ALL CHARACTERS 

1 RIGHT AND PUT A -P- IN THE 

FIRST POSITION FOR THE 



PERIPHERAL PRINT-PUNCH PROGRAM 



PAGE 78 



PUNCH OUT TAPE 

14 WORDS OUT 

SAVE INDICATORS IN AC 

PICK UP SYSTEM INDICATORS 

SET PUNCH TAPE INDICATOR 

UPDATE SYSTEM INDICATORS 

RESTORE INDICATORS 

NUMBER 8F WORDS FROM CC 1 TO 72 

ZERO OUTPUT BUFFER 



RELOAD WORD COUNT 
RESTORE CONTENTS OF 
CONTINUE WORK 



MQ 



LS035520 
LS035530 
LS035540 
LS035550 
LS035560 
LS035570 
LS035580 
LS035590 



LS035600 
LS035610 
LS035620 
LS035630 
LS035640 
LS035650 
LS035660 
LS035670 
LS035680 
LS035690 
LS035700 
LS035710 
LS035720 
LS035730 
LS035740 
LS035750 
LS035760 
LS035770 
LS035780 
LS035790 
LS035800 
LS035810 
LS035820 



LS035830 
LS035840 
LS035850 
LS035860 
LS035870 
LS035880 
LS035890 
LS035900 
LS035910 
LS035920 
LS035930 
LS035940 
LS035950 
LS035960 
LS035970 
LS035980 
LS035990 
LS036000 
LS036010 
LS036020 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
LISP FUNCTIONS 



9/20/67 
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* TERPUN 


FILLS OUT 












* 
^ 




OPERATES C 


06246 


-0 5 20 


CO 





06306 


TERPUN 


NZT 


PUNACT 


06247 


CC20 


CO 


4 


0CO01 




TRA 


1,4 


06250 


06G0 


CO 





06306 




STZ 


PUNACT 


BINARY CARD NO. 


LISP0141 








06251 


0634 


CO 


4 


06176 




SXA 


PNX,4 


06252 


C634 


CO 


2 


06177 




SXA 


PNY,2 


06253 


6 34 


CO 


1 


06200 




SXA 


PNZ,1 


06254 


0500 


CO 





05662 




CLA 


$PRIN2 


06255 


602 


CO 





C5662 




SLW 


$PRIN2 


06 256 


0534 


CO 


4 


06156 




LXA 


PWRDS,4 


06257 


534 


CO 


2 


06157 




LXA 


PPRTS,2 


06 26 


774 


GO 


1 


00001 




AXT 


It 1 


06261 


0560 


CO 





00 527 




LDQ 


BLANKS 


06262 


-0 754 


CO 





OOOOO 


TPLP 


PXD 


0,0 


0626 3 


-0763 


CO 





00O06 




LGL 


6 


06264 


522 


CO 


2 


06302 




XEC 


PCNT,2 


06265 


-0602 


CG 


4 


06324 




ORS 


P0UP,4 


06266 


2 00O01 


2 


06262 




TIX 


TPLP, 2,1 


06267 


-2 C00C1 


4 


06202 




TNX 


PRPLP,4,1 


06270 


0500 


CO 





00527 




CLA 


BLANKS 


06271 


0601 


CO 


4 


06324 




STO 


P0UP,4 


06272 


2 00001 


4 


06271 




TIX 


*-l,4,l 


06273 


0020 


CO 





06202 


* 


TRA 


PRPLP 
COSTANTS, 


06274 


0767 


CO 





00036 




ACS 


3C 


06275 


0767 


CO 





00030 




ALS 


24 


06276 


0767 


CO 





CO 02 2 




ALS 


18 


BINARY CARD NO. 


LISP0142 








06277 


0767 


CO 





00014 




ALS 


12 


0630C 


767 


CO 





C0006 




ALS 


6 


06 301 


0761 


CO 


G 


OOOOO 




NOP 




06302 


ooooo 





OOOOO 


PCNT 


PZE 




06303 


4 331* 


)24700CG 


PLIS 


BCI 


l.LISPOO 


06304 


+OCG00CC00077 


PSS 


OCT 


77 


06 30 5 


ooooo 





ooooo 


PNCQ 






06306 


ooooo 





ooooo 


PUNACT 






06307 


C0C00C000O47 




BCI 


1,00000P 


0631C 












BSS 


12 



BUFFER WITH BLANKS AND PUNCHES OUT LAST CARD 
ONLY IF PUNCH ROUTINE IS CURRENTLY ACTIVE 



BINARY CARD NO. LISPG143 

06324 +00C0OCC00000 

06325 +GCCO0CGOO000 



PGUP 



OCT 



SKIP IF RUNCH ROUTINE 

IMMEDIATE EXIT 

DE ACTIVATE THE PUNCH 



SAVE INDEX REGISTERS 



RESTORE PRIN2 SWITCH 

PICK UP WORD COUNT 

CHARACTER COUNT 

CONSTANT 1 

BLANK MQ 

CLEAR AC 

1 INTO AC 

SHIFT INTO PGSITIN 

PUT IN OUTPUT LINE 

FILL OUT THIS WORD 

GO IF LAST WORD IM BUFFER 

BLANK AC 

BLANK REST OF BUFFER 



IS CURRENTLY 



ROUTINE 



GO PUNCH IT OUT 
STORAGE AND SHIFT TABLE 



C,0 



FLONAM 
FORMS 



BASE OF SHIFT TABLE AND CARD COUNT 

CARD ID 

CHARACTER THAT TERMINATES A PNAME 

NON-ZERO IF PUNCH ROUTINE ACTIVE 

1 THESE CARDS MUST BE IN ORDER 

2 THESE CARDS MUST BE IN ORDER 



3 THESE CARDS MUST BE IN ORDER 



THE BCD LIST 



MAY 14,1559 
FOR A FLOATING 



NUMBER IN THE ACC 



06326 0634 CO 
06 327 -0 7 34 GO 

06330 G5C0 CG 



4 06514 
4 GOOQG 
4 COOQO 



FLONAM 



HED 
SXA 
PDX 
CLA 



FLNX,4 

0,4 

0,4 



LS036030 
L SO 36040 
LS036050 
ACTLS036060 
LS036070 
LS036080 



LS036090 
LS036100 
L SO 361 10 
LS036120 
LS036130 
LS036140 
LS036150 
LS036160 
LS036170 
LS036180 
LS036190 
LS036200 
LS036210 
LS036220 
LS036230 
LS036240 
LS036250 
LS036260 
LS036270 
LS036280 
LS036290 
LS036300 
LS036310 



LS036320 
LS036330 
LS036340 
LS036350 
LS036360 
LS036370 
LS036380 
LS036390 
LS036400 
LS036410 



LS036420 

LS036430 
LS036440 
LS036450 
LS036460 
LS036470 
LS036480 
LS036490 
LS036500 



mmmmmmmm 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
LISP FUNCTIONS 



9/20/67 



06331 


-0100 


CO 





06340 


TNZ 


FLNA 


06332 


0534 


CO 


4 


06514 


LXA 


FLNX.4 


06333 


0131 


CO 





ooooo 


XCA 




06 33 4 


500 


CO 





06534 


CLA 


FLZPZ 


06335 


0162 


CO 





05662 


TCP 


SPRIN2 


06336 


04 C 2 


CO 





06557 


SUB 


CO 


0633 7 


0020 


CO 





05662 


TRA 


$PRIN2 


0634C 


0634 


CO 


2 


06515 


FLNA SXA 


FLNY,2 


06 341 


0634 


CO 


1 


065 16 


SXA 


FLNZ, 1 


06342 


0774 


CO 


1 


00001 


AXT 


1,1 


06343 


7 74 


CO 


2 


C0044 


AXT 


36,2 


06344 


0600 


CO 





06531 


STZ 


FLOPB-3 


06345 


0600 


CC 





06532 


STZ 


FLOPB-2 


06346 


0600 


CO 





06533 


STZ 


FLOPB-1 


06347 


0601 


CO 





77665 


STO 


COMMGN+5 


06350 


0131 


CO 





OOOOO 


XCA 




06 351 


-0754 


CO 





OOOOO 


PXD 


,0 


BINARY CARD NC. 


LISP0144 






06352 


0765 


CO 


C 


ooooo 


FL73 LRS 





06353 


0763 


CC 


c 


00010 


LLS 


8 


06354 


0402 


CO 





00451 


SUB 


A128 


06 35 5 


-0600 


CO 





77660 


STQ 


COMMON 


06356 


0131 


CO 





OOOOO 


XCA 




06357 


0200 


CO 





06546 


MPY 


L0G2 


06360 


0601 


CO 





7766 2 


STO 


C0MM0N+2 


06 361 


0120 


CO 





06370 


TPL 


FL75 


06362 


0402 


CC 


c 


06545 


FL74 SUB 


Al 


06 363 


0601 


CO 





77662 


STO 


C0MM0N+2 


06 364 


0131 


00 





OOOOO 


XCA 




06365 


0760 


CO 





00O06 


COM 




06366 


760 


CO 





00003 


SSP 




06 367 


0131 


CO 





OOOOO 


XCA 




06 370 


C2C0 


CO 





06547 


FL75 MPY 


LGG10 


06371 


0765 


CO 





00041 


LRS 


33 


06 372 


0621 


CO 





06403 


STA 


FL76A 


06373 


-06C0 


CO 





77670 


STQ 


CO MM ON +8 


06374 


0774 


00 


4 


00007 


AXT 


7,4 


06375 


560 


CO 





06550 


LDQ 


C7 


06376 


0200 


CC 





77670 


FL76 MPY 


COMMCN+8 


06377 


0400 


CC 


4 


06560 


ADD 


C0+l,4 


BINARY CARD NC. 


LISP0145 






06400 


0131 


CO 





OOOOO 


XCA 




06401 


2 0000 1 


4 


06376 


TIX 


FL76,4,1 


06402 


0200 


CO 





7766 


MPY 


COMMON 


06403 


0774 


00 


4 


OOOOO 


FL76A AXT 


** ,4 


06404 


0765 


00 


4 


00042 


LRS 


34,4 


06405 


100 


CC 





06412 


TZE 


FL77 


06406 


G221 


CO 





06544 


DVP 


A 1-1 


06407 


0500 


CO 





77662 


CLA 


C0MM0N+2 


064 10 


0400 


CC 





06545 


ADD 


Al 


06411 


601 


CC 





77662 


STO 


C0MM0N+2 


06412 


0774 


CC 


4 


00O10 


FL77 AXT 


8,4 


06413 


-0 200 


CO 


4 


06545 


FL78 MPR 


Al,4 



0.0 
-0.0 

SET UP BUFFER IRS 



CLEAR ACC. AND SIGN, 



SIGN TO MQ 

CHARACTERISTICS 

128 

SAVE MANTISSA. 

MULTIPLY BY 

LOG BASE 10 OF 2. 



LOG BASE 2 OF 10/4. 



MANTISSA. 

10. 
1. 

1C TO DEC. PLACES, 
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LS036510 
LS036520 
LS036530 
LS036540 
LS036550 
LS036560 
LS036570 
LS036580 
LS036590 
LS036600 
LS036610 
LS036620 
LS036630 
LS036640 
LS036650 
LS036660 
21303LS036670 



21305L 
21310L 
21315L 
21320L 
21325L 
21330L 
21335L 
21340L 
21345L 
21350L 
21355L 
21360L 
21365L 
21370L 
21375L 
21380L 
21385L 
21390L 
21395L 
21400L 
21405L 
21410L 



S036680 
S036690 
S036700 
S036710 
S036720 
S036730 
S036740 
SO 3 6750 
S036760 
S036770 
S036780 
S036790 
S036800 
SO 368 10 
S036820 
S036830 
S036840 
S036850 
S036860 
S036870 
S036880 
S036890 



21415LS036900 
21420LS036910 
21425LS036920 
21427LS036930 
21430LS036940 
21435LS036950 
21440LS036960 
21445LS036970 
21450LS036980 
21455LS036990 
LS037000 
21475LS037010 



mmmmm 



LISP 1.5 FOR ShARE DISTRIBUTION, 
LISP FUNCTIONS 



MARCH 1965 



9/20/67 



06414 


0340 


CO 


4 


06545 




CAS 


Al,4 




• 06415 


C761 


CO 





00000 




NOP 




GREATER. 


06416 


C020 


CO 





0642C 




TRA 


FL79 


EQUAL. 


06417 


CC20 


00 





06424 




TkA 


FL80 


LESS. 


• 06420 


0500 


CO 





065 4 5 


FL79 


CLA 


Al 


ROUNDING CAUSED GARRY 


06421 


04C0 


CO 





77662 




ADO 


C0NMGN+2 




06422 


0601 


CO 





77662 




STO 


CGMMGN+2 


EXP+1. 


• 06423 


500 


CO 


4 


06546 




CLA 


Al+1,4 


10 TO THE DEC. PL»-1. 


06424 


0601 


CO 





77670 


FL80 


STO 


C0MM0N+8 




06425 


-0754 


00 





00000 




PXD 


,0 




BINARY CARD NO. 


LISP0146 










06426 


05 60 


CO 


c 


77662 




LDQ 


CONMGN+2 


ENTER DEC EXP. 


• 06427 


0221 


CO 





06 5 44 




DVP 


Al-1 


10 


06430 


-0600 


GO 





77667 




STQ 


C0NM0N+7 




0643 1 


0634 


CO 


4 


06447 




SXA 


FL82,4 




• 06432 


0074 


CO 


4 


06521 




TSX 


INBCD,4 




06433 


-0 7 54 


00 





0000.0 




PXD 


,0 




_ 06434 


0560 


CC 





77667 




LDQ 


CCMMGN+7 




• 06435 


0221 


CO 





06544 




0\P 


Al-1 




06436 


0100 


CO 





06440 




TZE 


* + 2 




_ 06437 


0074 


CO 


4 


06521 




TSX 


IN BCD* 4 




• 0644C 


0500 


CC 





77662 




CLA 


CGMMGN+2 




06441 


01 CO 


CC 





06445 




TZE 


FL81 




06442 


0120 


CO 





06445 




TPL 


FL81 




• 06443 


0500 


CO 





00457 




CLA 


CNEKI 


MINUS SIGN 


06444 


0074 


CO 


A 


065 21 




TSX 


IN8CD,4 




06445 


5 CO 


CC 





00444 


FL81 


CLA 


GNEE 




W 06446 


0074 


OG 


4 


06521 




TSX 


INBCD t 4 




06447 


0774 


CC 


4 


00000 


FL82 


AXT 


»*,4 




06450 


G6C0 


CC 





06 5 30 




STZ 


FLZET 




• 06451 


5 00 


CO 





77670 


FL65 


CLA 


C0MMGN+8 




06452 


0765 


CO 





00043 


FL67 


LRS 


35 




06453 


0221 


CC 





06544 




DVP 


Al-1 


10. 


BINARY CARD NO, 


LISP0147 










06454 


-0600 


CO 





77670 




STQ 


C0MMCN+8 


FRACTIONAL PART. 


• 06455 


-0 520 


CO 


C 


06530 




NZT 


FLZET 




C6456 


0100 


CO 


G 


06463 




TZE 


FLO! 




06457 


-0602 


CO 





06530 




ORS 


FLZET 




• 06460 


0634 


CO 


4 


06462 




SXA 


* + 2,4 


SAVE I.R4. 


06461 


074 


CC 


4 


06521 




TSX 


INBCD.4 


ENTER DIGIT. 


0646 2 


7 74 


CO 


4 


OOOQO 




AXT 


**,4 


RESTORE. 


• 06463 


2 OGOOl 


4 


06451 


FL01 


TIX 


FL65,4,1 




06464 


-0754 


00 





OOOQO 




PXD 


0,0 




0646 5 


-0520 


CC 


C 


06530 




NZT 


FLZET 




• 06466 


0074 


CC 


4 


06521 




TSX 


INBCD,4 




06467 


C500 


CO 





00456 




CLA 


A3 3 


DEC. POINT* 


06470 


0074 


CO 


4 


06521 




TSX 


IN8C0,4 


ENTER. 


• 06471 


-0754 


CC 





00000 




PXD 


CO 




06472 


0074 


CO 


4 


06521 




TSX 


IN8CD,4 




06473 


0560 


CC 





77665 




LDQ 


C0MM0N+5 




• 06474 


-05 GO 


CC 





00463 




CAL 


ONEBL 


BLANK 


06475 


0162 


CC 





06477 




TQP 


FL70 


FCR PLUS. 


_ 06476 


-0 5 00 


CO 





00457 




CAL 


CNEMI 


NEGATIVE. 
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21480LS037020 
21485LS037030 
21490LS037040 
21495LS037050 
21500LS037060 
21505LS037070 
21510LS037080 
21515LS037090 
21520LS037100 
21525LS037U0 



21530LS037120 
21535LS037130 
21540LS037140 
21545LS037150 
21550LS037160 
21555LS037170 
21560LS037180 
21565LS037190 

LS037200 
21570LS037210 
21575LS037220 
21580LS037230 
21585LS037240 
21590LS037250 
21605LS037260 

LS037270 

LS037280 
21620LS037290 

LS037300 
21145LS037310 
21160LS037320 
21165LS037330 



21170LS037340 

LS037350 

LS037360 

LS037370 

21175LS037380 

21180LS037390 

21185LS037400 

21190LS037410 

LS037420 

LS037430 

LS037440 

21195LS037450 

21200LS037460 

LS037470 

LS037480 

LS037490 

21220LS037500 

21225LS037510 

21230LS037520 



© 
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06477 CC74 CO 4 06521 
0650C -0754 00 2 00000 
06501 -0737 CO 2 COOOO 



FL70 



BINARY CA 
06502 
06503 
06504 
06505 
06506 
06507 
0651C 
06511 
06512 
06513 
06514 
06515 
06516 
06517 
06520 

06521 
06522 
06523 
06 524 
06525 
06526 
06527 



LI 

CO 
CO 
CO 
CO 
CO 
CO 



RD NO. 

0560 
-C5C0 
-0763 
-0130 

0131 

00 74 
-2 COCCI 

C5C0 CO 

0074 CC 

2 C0OC1 

0774 CC 

0774 

0774 
-0 7 54 

0020 



00 

CO 
CC 



SP014 8 

00525 

1 06534 

2 00000 
00000 

OOOQO 
4 05662 

1 06514 
1 06534 
4 05662 

06511 
00 000 
00000 
00000 
OOOQO 
4 C0001 



1 

4 
2 

1 



-0320 CO 
0767 CO 

-G6C2 CO 
2 00OC6 

i a oooi 

7 74 CC 

CC20 CO 



00447 
00044 
06534 
06527 
06526 
00044 
00001 



BINARY CARD NO. LISP0149 

06 53 COOOO OGOOO 
06534 



BINARY CA 
06534 
06 53 5 
06536 
0653 7 
0654C 
06541 
06542 
06543 
06544 
06545 
06546 
06547 
06550 
0655 1 
06552 
06553 
06554 
06555 
06556 
06557 



RD NO. L 
-20C033 
+000575 
+000046 
+C00003 
+G00OOC 
+.000000 
+0C0000 
+C0OGCC 
+0 000OC 
+CGOOOG 
+11504C 
+324464 
+C00001 
+CCC007 
+000132 
+001164 
+007066 
+036577 
+130562 
2 0000 



ISP0150 

007 777 

360400 

113200 

641100 

303240 

C 2 3420 

001750 

COO 144 

000012 

COO0G1 

465025 

741127 

601225 

762664 

240566 

125106 

267024 

252307 

064437 

00000 



FLNX 
FLNY 
FLNZ 



IN BCD 



FLZET 
FLOPB 



FLZPZ 



THSND 



Al 

L0G2 

LOG 10 

C7 

C6 

C5 

C4 

C3 

C2 

CI 

CO 



TSX 
PXD 
PDC 



LDQ 
CAL 
LGL 
XCL 
XCA 
TSX 
TNX 
CLA 
TSX 
TIX 
AXT 
AXT 
AXT 
PXD 
TRA 

ANA 
ALS 
ORS 
TIX 
TXI 
AXT 
TRA 



BES 



OCT 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
TIX 



IN BCD, 4 

0,2 

0,2 



ONES 
FLOPB, 1 
0,2 



$PRIN2,4 

FLNX, 1,1 

FLOPB, 1 

$PRIN2,4 

•-2,1,1 

**,4 

»*,2 

**, 1 

0,0 

1,4 

A77 

36,2 

FLOPB, 1 

*+3,2,6 

*+l,l, 1 

36,2 

1,4 



INSERT BLANK OR MINUS. 



FILL OUT LASf WORD WITH 77S 



600033007777 

100000000 

10000000 

10C0G00 

100000 

10000 

10C0 

ICO 

10 

1 

115040465025 

324464741127 

1601225 

7762664 

132240566 

1164125106 

7066267024 

36577252307 

130562064437 

0,0,0 



LOG BASE 10 OF 2. 
LCG BASE 2 Of 10-4% 



21235LS037530 
LS037540 
LS037550 



LS037560 
LS037570 
LS037580 
LS037590 
LS037600 
LS037610 
LS037620 
LS037630 
LS037640 
LS037650 
LS037660 
LS037670 
LS037680 
LS037690 
LS037700 
LS037710 
LS037720 
LS037730 
LS037740 
LS037750 
LS037760 
LS037770 
LS037780 
LS037790 



LS037800 
LS037810 



LS037820 
70100LS037830 
70101LS037840 
70102LS037850 
70103LS037860 
70104LS037870 
70105LS037880 
70106LS037890 
70107LS037900 
70108LS037910 
70110LS037920 
70115LS037930 
70120LS037940 
70125LS037950 
70130LS037960 
70135LS037970 
70140LS037980 
70145LS037990 
70150LS038000 
70155LS038010 
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00456 


A33 


SYN 


$Q033 


00447 


A77 


SYN 


$G63 


00451 


A128 


SYN 


$Q128 


00454 


ONEPL 


SYN 


$Q020 


00444 


ONES 


SYN 


$GC25 


00457 


ONEMI 


SYN 


$Q040 


00463 


ONEBL 


SYN 


$Q060 


00525 


ONES 


SYN 


SEVENS 



READ 



READ =; 



SELECT (RD.,L PAR, READl., 

LITER, INTERN., 
NUMB, INTERN.:, 
R PAR, ERROR.* 
1, ERROR! 



READ1 

READ1 



S£LECT{R0.,RPAR,0., 

LPAR,C0NS(READ1>READ1)., 
L ITER, CONS IINTERN, READl)., 
NUMB,CONS< INTERN^READl) ) 













I 


HED 




06560 


634 


CO 


4 


06562 


READ 


SXA 


REDS1,4 


06561 


0074 


CO 


4 


06654 




TSX 


$RD,4 


INARY CARD NO. 


LISP0151 








06562 


0774 


CO 


4 


00000 


REDS1 


AXT 


»*,4 


0656 3 


340 


CO 





06650 


REOIS 


CAS 


RLPAR 


06564 


020 


CO 





06566 




TRA 


*+2 


06565 


CO 20 


CO 





06605 




TRA 


READl 


06 566 


0340 


CO 





06651 




CAS 


RRPAR 


06567 


0020 


CO 





06571 




TRA 


* + 2 


06 57C 


0020 


CO 





06575 




TRA 


REDER 


06571 


G340 


00 


■0 


06652 




CAS 


ROOT 


06572 


0020 


CO 


4 


000Q1 




TRA 


1,4 


06573 


0020 


CO 





06575 




TRA 


REDER 


06574 


CO 20 


CO 


4 


00001 




TRA 


1,4 


06575 


-0634 


CO 


4 


02313 


REDER 


SXD 


$ERR0R,4 


06576 


0601 


CO 





04212 




STO 


RS2 


06577 


00 74 


CO 


4 


01527 




TSX 


OUTPUT, 4 


06600 


■0 COOGC 





00365 






BCDOUT 


06601 


00017 





07200 






RDPB,,15 


06602 


0500 


cc 





04212 




CLA 


RS2 


06603 


0074 


CO 


4 


02 314 




TSX 


$ERR0R+i,4 


06604 


545160600154 




BCI 


1,*R 1* 


06605 


-0 634 


cc 


4 


04211 


it 
READl 


SXD 


RSI, 4 


06606 


74 


cc 


4 


066 54 




TSX 


$RD,4 


06607 


3 40 


CO 





06651 




CAS 


RRPAR 



SAVE liINK 
GET RIRST 



IR 

ITEM 



RESTORE LINK IR 
DISPATCH ON TYPE 

WAS i 



OF ITEM READ 



NUST BE AN ERROR 

SAVE TYPE 

WRITE CUT INPUT BUFFER 



GET TYPE 
GO TO ERROR 
CONTEXT ERROR 

SAVE LINK IR 
GET NEXT ITEM 



LS038020 
LS038030 
LS038040 
LS038050 
LS038060 
LS038070 
LS038080 
LS038090 
LS038100 
LS038110 
LS038120 
LS038130 
LS038140 
LS038150 
LS038160 
LS038170 
LS038180 
LS038190 
LS038200 
LS038210 
LS038220 
LS038230 
LS038240 
LS038250 
LS038260 
LS038270 
LS038280 
LS038290 



LS038300 
LS038310 
LS038320 
LS038330 
LS038340 
LS038350 
LS038360 
LS038370 
LS038380 
LS038390 
LS038400 
LS038410 
LS038420 
LS038430 
LS038440 
LS038450 
LS038460 
LS038470 
LS038480 
LS038490 
LS038500 
LS038510 
LS038520 





LISP 


1. 


5 
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LISP FUNCTIONS 


, MARCH 1965 


BINARY CARD NO. 


LISP0152 








0661C 


0020 


GO 





06612 




TRA 


*+2 


06611 


GO 20 


CO 





06631 




TRA 


RP1 


06612 


74 


OG 


4 


03104 




TSX 


$SAVE,4 


06613 


-3 04214 


C 


03167 




TXL 


$END2,,RS2+2 


06614 


0340 


CC 


c 


06652 




CAS 


ROOT 


06615 


020 


CO 





06617 




TRA 


*+2 


06616 


CC20 


CO 


c 


06634 




TRA 


RP2 


06617 


0340 


CO 


c 


06650 




CAS 


RLPAR 


06620 


0020 


CC 





06622 




TRA 


*+2 


06621 


C074 


CC 


4 


06605 




TSX 


READ1,4 


06622 


0601 


CC 





04212 




STG 


RS2 


06623 


0074 


ce 


4 


06605 




TSX 


READ1,4 


06624 


0131 


GO 





OCOQO 




XCA 




06625 


C5C0 


CO 


c 


04212 




CLA 


RS2 


06626 


CO 74 


00 


4 


03117 




TSX 


UNSAV£,4 


06627 


-0 5 34 


CO 


4 


04211 




LXD 


RSI, 4 


0663C 


0020 


CO 





04471 




TRA 


$CCNS 


06631 


-0754 


00 





00000 


RP1 


PXD 


0,0 


06632 


-0 5 34 


CO 


4 


04211 




LXD 


RSI, 4 


06633 


20 


CC 


4 


OOOQl 




TRA 


1,4 


06634 


0C74 


CO 


4 


06654 


■tfr 

RP2 


TSX 


$RD,4 


06635 


0074 


CC 


4 


06563 




TSX 


REDIS,4 


BINARY CARD NC. 


LISP0153 








06636 


601 


CC 





04212 




STO 


RS2 


06637 


GO 74 


CC 


4 


06654 




TSX 


$RD,4 


0664C 


0340 


CO 





06651 




CAS 


RRPAR 


06641 


020 


CC 


C 


06575 




TRA 


REDER 


06642 


CC20 


CC 





06644 




TRA 


* + 2 


06643 


020 


CC 





06575 




TRA 


REDER 


06644 


0500 


CC 





04212 




CLA 


RS2 


06645 


74 


CC 


4 


03117 




TSX 


UN SAVE, 4 


06646 


-0 534 


CC 


h 


C4211 




LXD 


RSI, 4 


06647 


G020 


CO 


4 


00001 




TRA 


1,4 










00542 


RLTR 


SYN 


QUOTED 










COS 33 


RNUMB 


SYN 


FLOATD 
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HED 



0665C 
06651 
06652 
06 65 3 
06653 
06654 
06655 
06656 



00566 
00564 
00563 



C 000 CO 
0500 CC 
CI GO CC 
C6C0 CC 



ccooo 

COOOG 
00000 

00001 
07242 
06660 
07242 



RLPAR 
RRPAR 
ROOT 
RDVAL 

LRCIS 

RO 



BSS 

CLA 
TZE 
STZ 



WAS ) RETURN WITH NIL 
SAVE 2 ITEMS 

MAS . 



SAVE RESULTS 
GET NEXT HEM 
PUT IN N.Q 
FIRST ITEM 

RESTORE LINK IR 
CONSTRUCT A LIST 

WAS > RETURN WITH NIL 



WAS . GET NEXT ITEM 
DISPATCH ON IT 



SAVE RESULTS 

GET NEXT 4TEH 

SHOULD BE } 

GO TO ERROR IF NOT 



GET ITEM READ 

RESTORE LINK IR 
RERURN WITH IT 

SYMBOL FLAG 

FLOAT (USED TO SIGNIFY ANY 



RD(A) 

READS BCD LISTS FROM CARDS L5W I DOWN) OR TAPE 4 (SWI UP J 

,,$H74D 

,,$H34D 

,,$H33D 



1 

RDLST 

RDAA 

RDLST 



CARD IMAGE EMPTY TEST CELL 

GO IF NOT 
OTHERWISE ZERO 



LS038530 
LS038540 
LS038550 
LS038560 
LS038570 
LS038580 
LS038590 
LS038600 
LS038610 
LS038620 
LS038630 
LS038640 
LS038650 
LS038660 
LS038670 
LS038680 
LS038690 
LS038700 
LS038710 
LS038720 
LS038730 
LS038740 
LS038750 
LS038760 



LS038770 
LS038780 
LS038790 
LS038800 
LS038810 
LS038820 
LS038830 
LS038840 
LS038850 
LS038860 
LS038870 
LS038880 
KIND NUMBERLS038890 
LS038900 
LS038910 
LS038920 
LS038930 
LS038940 
LS038950 
LS038960 
LS038970 
LS038980 
LS038990 
L SO 39000 
LS039010 
LS039020 
LS039030 
LS039040 
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0665? 


CC20 


CO 


4 


00001 




TRA 


1.4 


0666C 


0634 


CC 


4 


06711 


RDAA 


SXA 


RDX, 4 


06661 


C634 


CO 


2 


06716 




SXA 


RCY,2 


06662 


0634 


CG 


1 


06715 




SXA 


RDZ,1 


06663 


0604 


CC 





07241 




STI 


RDIND 


BINARY CARD NO. 


LISP0154 








06664 


0441 


CC 


C 


00424 




LDI 


$ZERC 


06665 


0774 


00 


2 


0G006 


RDPTS 


AXT 


6,2 


06666 


0774 


CO 


1 


COO 14 


RDWOS 


AXT 


12,1 


06667 


74 


CC 


4 


07020 


RDGC 


TSX 


GET, 4 


06670 


0734 


CO 


4 


COOQG 




PAX 


C,4 


06671 


0020 


CO 


4 


06701 




TRA 


RDJT1,4 


06672 


CO 20 


CO 





06720 




TRA 


RDDLR 


06673 


0020 


CO 





06750 




TRA 


RDLT 


06674 


020 


CG 





06751 




TRA 


RDNM 


C6675 


0020 


CO 





06667 




TRA 


RDGC 


06676 


0020 


CC 


C 


06710 




TRA 


RDPU 


06677 


0020 


CC 





06710 




TRA 


RDPU 


06 70 


0020 


CC 





06710 




TRA 


RDPU 


06701 


00 74 


CO 


4 


01527 


RDJT1 


TSX 


OUTPUT, 4 


06702 


00000 





00365 






BCDOUT 


06703 


00017 





07200 






RDPB, ,15 


06704 


-0754 


CO 





COOOO 




PXD 


0,0 


06705 


-0 6 34 


CG 


't 


02313 




SXD 


$ERR0R,4 


0670 6 


0074 


CO 


4 


02314 




TSX 


$ERR0R+1,4 


0670 7 


54516C600354 




BCI 


1,*R 3* 


0671C 


5 GO 


CC 


4 


06653 


RDPU 


CLA 


RDVAL.4 


06711 


0774 


CO 


4 


00000 


RDX 


AXT 


«*,4 


BINARY CARD INC. 


LISP0155 








06712 


0634 


CG 


2 


06665 


RDFIN 


SXA 


RDPTS, 2 


06 7 1 3 


634 


CO 


1 


06666 




SXA 


RDV»DS,1 


06714 


0441 


CC 





07241 




LCI 


RDIND 


06715 


7 74 


CO 


1 


00000 


RDZ 


AXT 


*#, 1 


06716 


774 


CO 


2 


COOOO 


RDY 


AXT 


**,2 


06717 


020 


00 


4 


00001 




TRA 


1.4 


06720 


0055 


CC 


000003 


■ft 

RDDLR 


SIR 


3 


06721 


74 


CO 


4 


7020 




TSX 


GET, 4 


06722 


0734 


GO 


4 


COOOO 




PAX 


0,4 


06723 


500 


CO 





07243 




CLA 


GTVAL 


06 72 4 


0601 


GC 


C 


07240 




STO 


RDDDC 


06725 


3 COO 6 


4 


06736 




TXH 


RDDD, 4, 6 


06726 


6 34 


CO 


4 


06734 




SXA 


RDT, 4 


06727 


0500 


CC 





07237 




CLA 


RDDLS 


06730 


0601 


CO 





07243 




STO 


GTVAL 


06 731 


CO 74 


00 


4 


07066 




TSX 


PUT, 4 


06732 


5 CO 


CC 





07240 




CLA 


RDDDC 


06733 


0601 


CC 





07243 




STO 


GTVAL 


06734 


7 74 


CC 


4 


COOOO 


RDT 


AXT 


##,4 


06 73 5 


020 


CO 


4 


06765 




TRA 


RDJI2,4 


06736 


0074 


CO 


4 


07020 


RDDD 


TSX 


GET, 4 


06737 


5 CO 


CC 





07243 




CLA 


GTVAL 



AND EXIT 

SAVE IND6X REGISTERS 



SAVE THE INDICATORS 



SET UP Ift 2 AND 1 

GET THE FIRST CHARACTER 
TYPE TO INDE* REGISTER 
DISPATCH ON TYPE 
$ 

NUMBER 
, 

( 
) 

• 

ILLEGAL CHARACTER 



CLEAR AC 

SAVE IR 4 

GO TO ERROR R0U1INE 



SAVE INQBX REGISTERS 

RESTORE INDICATORS 
RESTORE INDEX REGISTERS 

EXIT 

SET FIRS? CHARCTER AND LITERAL 

IS NEXT CHARACTER A $ 

IF SO IT INDICATES A LITERAL STRING 

SAVE VALUE OF GET 

GO IF A $ 

NOT SO 00 A REGULAR D 

$ 

PUT I,N OUTPUT BUFFER 
LAST VALUE OF GET 

TYPE OF LAST CHARACTER 
DISPATCH ON TYPE 

IS A LITERAL STRING 

USE THIS sITEM AS A DELIMITER 



LS039050 
LS039060 
LS039070 
LS039080 
LS039090 



LS039100 
LS039110 
LS039120 
LS039130 
LS039140 
LS039150 
LS039160 
LS039170 
LS039180 
LS039190 
LS039200 
LS039210 
LS039220 
LS039230 
LS039240 
LS039250 
LS039260 
LS039270 
LS039280 
LS039290 
LS039300 
LS039310 



LS039320 
LS039330 
LS039340 
LS039350 
LS039360 
LS039370 
LS039380 
INDICATLS039390 
LS039400 
LS039410 
L SO 3 9420 
LS039430 
LS039440 
LS039450 
LS039460 
LS039470 
LS039480 
LS039490 
LS039500 
LS0395I0 
LS039520 
L SO 3 9530 
LS039540 
LS039550 
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BINARY CARD NO. LISP0156 



0674C 
06741 
06742 
06743 
06744 
06745 
06746 
06747 

06750 
06751 
06752 
06753 
06754 
06755 
06756 
06757 
06760 
06761 
06762 
0676 3 
06764 
0676 5 



601 
0074 
0500 
0340 
CC20 
0020 
0Q74 
C020 

0055 
00 55 
GO 74 
0074 
0734 
00 20 
0020 
GO 20 
0020 
CC20 
CO 20 
020 
0020 
00 20 



CO 
CO 
CO 
CO 
CO 
CO 
CO 
CC 



0724C 
4 07020 
07240 
07243 
C 06 746 
06770 
4 07066 
■C 06 741 



RDODL 



CO 
CO 
CO 
CO 
00 
GO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO C 



00GOO2 

ecoooi 

07 066 
07020 
00000 
06765 
06752 
06752 
06 752 
06770 
06766 
06766 
07012 
06701 



BINARY C 
0676 
0676 
0677 
0677 
0677 
0677 
0677 
0677 
0677 
06 77 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 



ARD NO. LISP0157 



0500 
C601 
05 34 

-07 54 
3 000 
0560 
5 22 
0774 
0634 
C534 

-0602 

-0 7 54 
0622 
C5G0 

-0774 
0056 
CC20 
0020 



CO 
CO 
CO 
CO 
05 
CO 
CO 
CC 
CO 
00 
CO 
CO 
GO 
CO 
CO 
CO 
CO 
00 



07010 
07011 

07012 
07013 



0534 CO 
1 000 CI 



06653 
07242 
07073 
CGOOC 
07 010 
00525 
07154 
00-006 
C7073 
07101 
07162 
OCOQO 
07170 
07162 
06710 
000002 
07371 
07246 

4 07 101 
4 07002 



0054 GO 000002 
0020 CO 06766 



RDLT 

RDNM 
RONN 



RDJT2 



RDPS 



RDXT 



STO 
TSX 
CLA 
CAS 
TRA 
TRA 
TSX 
TRA 

SIR 
SIR 
TSX 
TSX 
PAX 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 



TPFA 



TPF 



RDPD 



RDDOC 
GET, 4 
RDDOC 
GTVAL 
« + 2 
RDXT 
PUT, 4 
RDDDL 

2 

1 

PUT, 4 

GET, 4 

0,4 

RDJT2,4 

RONN 

RDNN 

RDNN 

RDXT 

RDPS 

ROPS 

RDPO 

R0JT1 



BINARY CARD NO. 

07014 0054 

07015 20 



LISP 015.8 

CO 000020 
00 06766 



CLA 


RDVAL,4 


STO 


ROLST 


LXA 


PUTMC,4 


PXD 


0,0 


TXH 


TPF, 4, 5 


LDQ 


SEVENS 


XEC 


PTSFT-1,4 


A XT 


6,4 


SXA 


PUTMC,4 


LXA 


PUTPC4 


ORS 


RDPNB,4 


PXD 


0,0 


STD 


PUTVL+6,4 


CLA 


PUTVL 


AXC 


RDPU»4 


RNT 


2 


TRA 


SNUTRN 


TRA 


INTRN1 


LXA 


PUTPC,4 


TXI 


TPFA, 4,1 


RFT 


2 


TRA 


RDPS 


RFT 


20 


TRA 


RDPS 



GET NEXT CHARACTER 

GET DELIMITER 

COMPARE WITH CHARACTER JUST READ 

NO 

YES, EXIT 

NO, PUT AWAY THE CHARACTER 

GET NEXT CHARACTER 

SET LiTERAH INDICATOR 

SET FIRST CHARACTER INDICATOR 

PUT THE CHARACTER AWAY 

GET NEXT CHARACTER 

DISPATCH ON TYPE 

t 

LITERAL 

NUMBER 



LLEGAL CHARACTER 



SETUP RDLST CELL 

CHARACTER COUNT 

CLEAR AC 

GO IF LAST WORD COMPLETED 

GET 77 S 

PROPER SHIFT 

RESET CHARACTER COUNT 

WORD COUNT 

PUT IN PNAME BUFFER 

CLEAR AC I 

CHOP OFF PNMAE SA4JSAGB 

GET VALUE 

SET UP TRANSFER TO EXIT 

TEST LITERAL INDICATOR 

MAKE IT A NUMBER 

MAKE IT AN OBJECT 

CORRECT PART COUNT 



TEST FOR LITERAL 

FIRST . TERMONATES A LITERAL 



TEST FOR FIRST DOT IN A NUMBER 
SECOND . TERMINATES A NUMBER 



LS039560 
LS039570 
LS039580 
LS039590 
LS039600 
LS039610 
LS039620 
LS039630 
LS039640 
LS039650 
LS039660 
LS039670 
LS039680 
LS039690 
LS039700 
LS039710 
LS039720 
LS039730 
LS039740 
LS039750 
LS039760 
LS039770 
LS039780 
LS039790 



LS039800 
LS039810 
LS039820 
LS039830 
LS039840 
LS039850 
LS039860 
LS039870 
LS039880 
LS039890 
LS039900 
LS039910 
LS039920 
LS039930 
LS039940 
LS039950 
tS039960 
LS039970 
LS039980 
LS039990 
LS040000 
LS040010 
LS040020 
LS040030 



LS040040 
LS040050 
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07016 


0055 


00 




OC0020 




SIR 


20 


07017 


20 


CO 


c 


06752 




TRA 


RDNN 


07020 


0634 


CO 


4 


0704 3 


GET 


SXA 


GTX, 4 


07021 


0520 


CO 





06653 




ZET 


LRCIS 


07022 


CC20 


CO 





07052 




TRA 


GTGCD 


07023 


-0754 


CO 





00000 


GETGO 


PXD 


CO 


07024 


0560 


CO 


1 


07215 




LDQ 


CELL,1 


07025 


-0763 


CO 


c 


00003 




LGL 


3 


0702 6 


7 34 


CO 


4 


00000 




PAX 


0,4 


07027 


-0763 


00 





0CO03 




LGL 


3 


0703C 


0601 


CO 





07243 




STO 


GTVAL 


07031 


-0320 


GO 





00433 




ANA 


$Q7 


07032 


0621 


CO 





07036 




STA 


GTPT 


07033 


-0600 


cc 


1 


07215 




STO 


CELL*1 


07034 


-2 00001 


2 


07045 




TNX 


GTPC, 2,1 


07035 


C560 


CO 


4 


07177 


GTMC 


LDQ 


GTT8L,4 


07036 


-0763 


00 





ooooo 


GTPT 


LGL 


« « 


07037 


0522 


GO 





07036 




XEC 


GTPT 


0704C 


0522 


cc 





07036 




XEC 


GTPT 


07041 


-0754 


cc 





OOOOO 




PXD 


0,0 


BINARY CARD NC. 


LISP0159 








07042 


-0 763 


00 





00003 




LGL 


3 


7043 


0774 


CO 


4 


OOOOO 


GTX 


AXT 


** ,4 


07044 


020 


CO 


4 


00O01 




TRA 


1,4 


07045 


0774 


CO 


2 


00006 


GTPC 


AXT 


6,2 


07046 


2 00001 


1 


07035 




TIX 


GTMC, 1,1 


07047 


-0625 


CO 





06653 




SIL 


LRCIS 


7050 


0774 


CO 


1 


00014 




AXT 


12,1 


07051 


0020 


CO 





070 35 




TRA 


GTMC 


07052 


CG74 


CO 


4 


01170 


it 

GTGCD 


TSX 


$ INPUT, 4 


0705 3 


cooco 





OOOOO 






$BCDIN 


07054 


000 3 4 





07201 






LV*P0,,28 


7055 


020 


CO 





0705 7 




TRA 


* + 2 


07056 


0020 


00 





07061 




TRA 


GTEOF 


07057 


0600 


CO 





0665 3 




STZ 


LRCIS 


07060 


00 20 


CO 





07023 




TRA 


GETGO 


07061 


-0754 


CO 





CGOOO 


GTEOF 


PXD 


0,0 


07062 


522 


CO 





01706 




XEC 


$SWTl 


07063 


0522 


CO 


c 


00356 




XEC 


$8SR 


07064 


0074 


CO 


4 


02 313 




TSX 


$ERR0R,4 


7065 


54 516C600454 


if. 


8CI 


1,*R 4* 


07066 


0054 


CO 


OQ0040 


PUT 


RFT 


40 


7067 


0020 


CO 





07115 




IRA 


PTTFA 


BINARY CARD NO, 


LISP0160 








07070 


0634 


CC 


4 


07103 




SXA 


PUTX,4 


07071 


0056 


CO 


000010 




RNT 


10 


07072 


0020 


CC 





07123 




TRA 


PUTZB 


07073 


774 


CO 


4 


00006 


PUTMC 


AXT 


6,4 



SET DOT INDICATOR 



SAVE LINK IR 

TEST FOR NEW CARD NEEDED 

GET A NEW CAERD 

CLEAR AC 

GET NEXT WORD 

HIGH ORDER BITS 

CHARACTER 

VALUE OF GET FOR PUT 

MASK OUT HIGH ORDER BIT 

UPDATE WORD 

UPDATE PARI COUNT 

GET TABLE ENTRY 

SHIFT PROPER ITEM TO AC 



CLEAR AC 



TYPE NOW IN AC 
RESTORE 01 NK IR 



RELOAD PART COUNT 

GO IF NEW WORD NOT NEEDED 

GET NEW CARD 

ERELOAD IR I 

GO 8 AC J 



GET NEXT BCD CARD 

IGNORE REDUNDNACY ERROR 

EOF RETURN 

SET SWITCH THAT CARD IS PRESENT 

NO GO ON 

CLEAR AC 

IF OFF LINE, SAVE THE EOF 

GO TO ERROR 
EOF ON READ IN 

TEST TO SEE IF TOCMUCH PNAME 
GO TO ERROR COMMENT 



SAVE LINK IR 

TEST FOR FIRST TIME THRU 
ZERO PNAME BUFFER 
CHARACTER COUNT 



LS040060 
LS040070 
LS040080 
LS040090 
LS040100 
LS 0401 10 
LS040120 
LS040130 
LS040140 
LS040150 
LS040160 
LS040170 
LS040180 
LS040190 
LS040200 
LS040210 
LS040220 
LS040230 
LS040240 
LS040250 
LS040260 



LS040270 
LS040280 
LS040290 
LS040300 
LS040310 
LS040320 
LS040330 
LS040340 
LS040350 
LS040360 
LS040370 
LS040380 
LS040390 
LS040400 
LS040410 
LS040420 
LS040430 
LS040440 
LS040450 
LS040460 
LS040470 
LS040480 
LS040490 
LS040500 
LS040510 
LS040520 



LS040530 
LS040540 
LS040550 
LS040560 



HWPWWMWWIMHHM 
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07074 


0500 


CO 





07243 


CLA 


GTVAL 


07075 


5 60 


cc 





00424 


LDQ 


$ZERO 


07076 


0522 


CO 


4 


07155 


XEC 


PTSFT,4 


07077 


-2 000C1 


4 


07105 


TNX 


PTRFP, 4,1 


0710G 


0634 


00 


4 


07073 


SXA 


PUTMC4 


07101 


7 74 


CO 


4 


00005 


PUTPC AXT 


5,4 


07102 


-0602 


00 


4 


07162 


PUTGA ORS 


RDPNB,4 


07103 


0774 


CO 


4 


00000 


PUTX AXT 


**,4 


07104 


020 


CC 


4 


00OQ1 


TRA 


1,4 


07105 


0774 


CO 


4 


00006 


PTRFP AXT 


6,4 


07106 


634 


00 


4 


07073 


SXA 


PUTMC4 


07107 


5 34 


GO 1 


4 


07101 


LXA 


PUTPC, 4 


071 1C 


-0602 


CO 


4 


07162 


QRS 


RDPNB,4 


07111 


2 00001 


4 


07113 


TIX 


*+2,4,l 


07112 


0055 


CO 


000040 


SIR 


40 


07113 


0634 


CO 


4 


07101 


SXA 


PUTPC, 4 


07114 


0020 


CO 





07103 


TRA 


PUTX 


07115 


074 


00 


4 


C1527 


PTTFA TSX 


OUTPUT, 4 


BINARY CARD NO. 


USP0161 






07116 


COO CO 





00365 




BCDOUT 


07117 


00006 





07154 




RDPN8-6,,6 


07120 


-0 7 54 


CO 





00000 


PXD 


0,0 


07121 


00 74 


CO 


4 


02313 


TSX 


$ERR0R,4 


07122 


5451606G0554 


8CI 


1,»R 5* 


07123 


0055 


CO 


000010 


It 

PUTZB SIR 


10 


07124 


7 74 


CO 


4 


00005 


AXT 


5,4 


0712 5 


0634 


CO 


4 


07101 


SXA 


PUTPC, 4 


07126 


06 00 


CO 


4 


07162 


STZ; 


RDPN8,4 


07127 


2 GOG 01 


4 


07126 


TIX 


*- 1,4,1 


07130 


500 


CO 





07162 


CLA 


PUTVL 


0713 1 


0774 


CO 


4 


00005 


AXT 


5,4 


07132 


04G2 


CO 





00476 


SUB 


$QD1 


07133 


622 


CO 


4 


07170 


STO 


PUTVL+6,4 


07134 


2 00001 


4 


07132 


TIX 


#-2,4,1 


07135 


CC20 


CO 





07073 


TRA 


PUTMC 


07136 


-0625 


CO 





06653 


TEREAD STL 


LRCIS 


07137 


0500 


CO 





00432 


CLA 


$06 


0714G 


0621 


CO 





06665 


STA 


ROPTS 


07141 


621 


CO 





07073 


STA 


PUTMC 


07142 


500 


CO 





00437 


CLA 


$012 


07143 


0621 


CO 





06666 


STA 


RDWDS 


BINARY CARD NO. 


LISPG162 






07144 


0600 


00 





07242 


STZ 


RDLST 


07145 


-0754 


CO 





00000 


PXD 


0,0 


07146 


0020 


CO 


4 


G00Q1 


TRA 


Ii4 


07147 


-0763 


CO 





00036 


LGL 


30 


07150 


-0 763 


GO 





G003G 


LGL 


24 


07151 


-0763 


CO 


c 


C0022 


LGL 


18 


07152 


-0763 


CO 





00014 


LGL 


12 



GET CHARACTER 

PROPER SHIFT TO CHARACTER 
DECREMENT CHARACTER COUNT 
UPDATE COUNT CELL 
NUMBER OF WORDS IN PNAME 
PUT CHARACTER IN 
RESTORE LINK IR 
EXIT 
RELOAD PART COUNT 

WORD COUNT 

DECREMENT WORD COUNT 
INDICATE PNAME SUFFER FULL 
UPDATE COUNTER 
GO ON 

TOO MANY CHARACTERS 



WRITE CUT PNAME SO FAR 

CLEAR AC 
GO TO ERROR 



SET SWITCH 
FIX UP BUFFER 
AND PART COUNT 



RELINK THE WORDS 
SET POINTERS 



SET SWITCH TO GET A NEW CARD 
SET CELLS 



CLEAR AC 
EXIT 



LS040570 
LS04058Q 
LS040590 
LS040600 
LS040610 
LS040620 
LS040630 
LS040640 
LS040650 
LS040660 
LS040670 
LS040680 
LS040690 
LS040700 
LS040710 
LS040720 
LS040730 
LS040740 
LS040750 



LS040760 
LS040770 
LS040780 
LS040790 
LS040800 
LS040810 
LS040820 
LS040830 
LS040840 
LS040850 
LS040860 
LS040870 
LS040880 
LS040890 
LS040900 
LS040910 
LS040920 
LS040930 
LS040940 
LS040950 
LS040960 
LS040970 
LS040980 
LS040990 



LS041000 
LS041010 
LS041020 
LS041030 
LS041040 
LS041050 
LS041060 
LS041070 
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07153 -G763 

07154 0761 
07155 
07162 



CO 
CC 



C 





00006 
OOOQO 



ISP 016 3 






C 





COOOO 
70623 

70622 
70621 
70620 
70617 

GGOGOO 

660C00 

COCGGO 

66CCGG 

000 GOO 

660000 

CGGGOO 

550000 

606060 

00000 

00000 



LGL 

NOP 

PTSFT BSS 

ROPNB BES 



PUTVL 



BINARY CARD NO. L 

07162 C 7061 

07163 7061 

07164 7061 

07165 7061 

07166 7061 

07167 C 000 C 

07170 -26043C 

07171 -066666 

07172 -26G76C 

07173 -166666 
0717 4 -2 6C12C 

07175 -166666 

07176 -15C66G 

07177 -155555550000 GTTBL 
0720G 00606C606060 RDPB 

07201 COOCO 00000 LWPO 

07202 COOCO 00000 LWCKS 
07215 CELL 
07231 LWOPB 
07231 

BINARY CARD NO* LISP0164 

07237 00C00C00O053 RDDLS 

0724C COOCO OOOQO RDDDC 

07241 C GOOGG G CGOOG RDIND 

07242 C 0000 G 00000 ROLST 

07243 GOOGO 000,00 GTVAL 



OCT 



OCT 



OCT 
BCI 



BES 
BES 
BSS 



BCI 



C 
5 



VALUE OF RDA 
FOR INTERN OF 



NUTRN 



-RDPNB+5,,-*-! 

-RDPNB+4,,-*-l 

~RDPNB+3,,-*-l 

-RDPN8+2,,-*^l 

-RDPNB+1 

66043 COOOOOO , 466666660000 ,660760000000 ,566666660000 



660 12G00OO00, 5 66666660000 ,550660000000 



555555550000 
1,0 



10 
12 
6 



1,00000$ 



ROOM FOR 10 AND ELOK AHEAD BITS 



INDICATOR STORAGE 



INTERN 













I 
■» 




HED 














* 


INTERN 


CHANGED 












* 






THE BUCK 


07244 


774 


CO 


4 


00000 


it 
BUCK 


AXT 


*# ,4 


07245 


-0600 


CO 





07 362 


BUKSRT 


STQ 


BSRT 


07246 


06C1 


CC 





07361 


INTRN1 


STO 


$VALU£ 


07247 


C634 


CO 


4 


07353 


INTERN 


SXA 


ITRX,4 


0725C 


0634 


GO 


2 


07 354 






SXA 


ITRY*2 


07251 


-0534 


CO 


4 


07361 






LXD 


$VALUE,4 


07252 


C5G0 


CG 


4 


00000 




- 


CLA 


0,4 


07253 


G734 


CO 


4 


OOOQO 






PAX 


0,4 


07254 


-0500 


GO 


4 


OOOQO 






CAL 


0,4 


07255 


0765 


CO 


C 


00043 






LRS 


35 


07256 


0221 


CO 





07363 






DVP 


BUCKNC 


0725 7 


G760 


CO 





00012 






DCT 





AND MODIFIED TO 
ET SORT 



INCLUDE EXTERNAL ENTRANCES AND 



BUCJBT THIS MUST BE HERE UNTERN-2) 

FOR REMOB 

ATOM TO BE PLACED (CNSFWL ENTRANCE) 

EXTERNAL ENTRANCE FROM APPLY 

ENTRANCE FROM READ 

SAVE IR S 

PICK UP POINTER TO PNAME LIST 

GET FIRST WORD OF PNAME 

GET FIRST WORD IN LOGICAL AC 
PUT IN MQ AND BIT 35 OF AG 
DIVIDE BY NUMBER CJF BUCKETS 
CHECK DIVISION 



LS041080 
LS041090 
LS041100 
LS041110 



LS04U20 
LS041130 
LS041140 
LS041150 
LS041160 
LS041170 
LS041180 



LS041190 



LS041200 
LS041210 
LS041220 
LS041230 
LS041240 
LS041250 
LS041260 



LS041270 
LS041280 
LS041290 
LS041300 
LS041310 
LS041320 
LS041330 
LS041340 
LS041350 
LS041360 
LS041370 
LS041380 
LS041390 
LS041400 
LS041410 
LS041420 
LS041430 
LS041440 
LS041450 
LS041460 
LS041470 
LS041480 
LS041490 
LS041500 
LS041510 
LS041520 
LS041530 
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0726C 


CO 74 


CO 


4 


02442 


TSX 


$DCT,4 


DIVIDE ERROR 


• 07261 


G734 


GO 


4 


COOOO 


PAX 


0,4 


REMAINDER TO IR 4 


07262 


0500 


CO 


4 


64623 


CLA 


BUCKET,4 


PICK UP BUCKET 


07263 


0634 


CO 


4 


07244 


SXA 


BUCK, 4 


SAVE THE REMAINDER 


• 07264 


C734 


00 


4 


COOOO 


PAX 


0,4 




BINARY CARD NO. 


LISP0165 








• 07265 


-G634 


CO 


4 


07366 


SXD 


05,4 


SET UP WORD 


07266 


G520 


00 





07362 


ZET 


BSRT 


TEST FOR CNSFWL ENTRANCE 


07267 


0020 


CO 


C 


07356 


TRA 


INTAD 


YES, GO 


• 7 270 


-06 34 


CO 


4 


07364 


. SXD 


01,4 




07271 


-C534 


CO 


4 


07364 04 LXD 


01,4 


NEXT OBJECT 


07272 


-3 000 GO 


4 


07332 


TXL 


GUT t 4,0 


END OF OBLISf 


• 07273 


0500 


CO 


4 


00000 


CLA 


♦ 4 




07274 


0622 


CO 





07364 


STD 


01 




07275 


G734 


CO 


4 


00000 


PAX 


,4 


OBJECT M/C NAME 


• 07276 


-0 6 34 


GO 


4 


07365 


SXD 


02,4 


PRESERVE IT 


07277 


500 


CO 


4 


OOOQO 


CLA 


t4 




0730C 


-0734 


CC 


4 


00000 03 PCX 


,4 


ADDRESS PART IS -1 


• 07301 


~3 GOOCO 


4 


07271 


TXL 


04,4,0 


END OF PROPERTY LIST 


07302 


0500 


CO 


4 


00000 


CLA 


,4 




07303 


0734 


CO 


4 


COOOO 


PAX 


,4 




• 07304 


-3 11061 


4 


07300 


TXL 


03,4,$PNAME-1 


NO 


07305 


3 11062 


4 


07300 


TXH 


C3,4,$PNAME 


NO 


07306 


-0734 


CO 


4 


OOOOG 


PDX 


*4 


YES IT IS 


• 07307 


0500 


CO 


4 


OOOQO 


CLA 


,4 




0731G 


0734 


CC 


4 


COOOO 


PAX 


,4 


U 


~ 07311 


-C534 


CO 


2 


07361 


LXD 


$VALUE,2 


V 


• 07312 


-3 000 CO 


2 


07271 07 TXL 


04,2*0 




BINARY CARD NO. 


LISP0166 








• 07313 


C500 


GO 


4 


00 000 


CLA 


C,4 




07 314 


0622 


CC 





07370 


STD 


Q4 


CDRtU) 


07315 


0734 


CO 


4 


00000 


PAX 


,4 


CAR(U) 


• 07316 


0500 


CO 


2 


00000 


CLA 


,2 




07317 


0622 


CO 





07367 


STD 


02 


CDR(V) 


^ 07320 


0734 


GO 


2 


OGOOO 


PAX 


,2 




• 07321 


0500 


CC 


4 


00000 


CLA 


,4 


CWRCCARIUO 


07322 


G4C2 


CO 


2 


COOOO 


SUB 


,2 


-CWR(CAR{VU 


07323 


-0100 


CO 





07271 


TNZ 


04 


NOT THE SAM£,NEXT OBJECT 


• 07324 


-0534 


CO 


4 


07370 


LXD 


Q4„4 


COR(U) 


07 325 


-0534 


CG 


2 


07 36 7 


LXD 


C2„2 




07326 


3 COOCO 


4 


07 312 


TXH 


07,4,0 


IF NOT YET ENO OF NAME 


• 07327 


3 GOOCO 


2 


07271 


TXH 


04,2,0 


IF U,V OF DIFFERENT LENG 


0733C 


C5G0 


CO 





07 365 


CLA 


02 




07331 


0020 


CO 





7 353 


TRA 


ITRX 




W 07332 


G500 


CO 





07 361 OUT CLA 


$VALUE 




07333 


0G74 


CO 


4 


10166 


TSX 


$CP1,4 




07334 


C560 


CO 


C 


00424 


LOQ 


$ZERO 




• 07 335 


0074 


GO 


4 


04471 


TSX 


$C0NS,4 




07336 


1 3 1 


CO 





OGOOO 


XCA 






^ 0733t 


G500 


CO 





00541 


CLA 


OPNA 




• 0734C 


CG74 


CC 


4 


04471 


TSX 


SCONS, 4 





LS041540 
LS041550 
LS041560 
LS041570 
LS041580 



LS041590 
LS041600 
LS041610 
LS041620 
LS041630 
LS041640 
LS041650 
LS041660 
LS041670 
LS041680 
LS041690 
LS041700 
LS041710 
LS041720 
LS041730 
LS041740 
LS041750 
LS041760 
LS041770 
LS041780 
LS041790 
LS041800 



LS041810 
LS041820 
LS041830 
LS041840 
LS041850 
LS041860 
LS041870 
LS041880 
LS041890 
LS041900 
LS041910 
LS041920 
LS041930 
LS041940 
LS041950 
LS041960 
LS041970 
LS041980 
LS041990 
LS042000 
LS042010 
LS042020 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
LISP FUNCTIONS 



BINARY CARD NO. 


LISPC167 










• 07341 


C131 


CO 





coooo 




XCA 






07342 


C5C0 


CO 





00514 




CLA 




$DMASK 


07343 


0074 


CO 


4 


04471 




TSX 




$C0NS,4 


• 07344 


0560 


CO 





07366 


INTCN 


LDQ 




05 


07345 


0622 


CO 





07366 




STD 




05 


07 346 


CC74 


CO 


4 


04471 




TSX 




$CCNS,4 


• 07347 


0771 


CO 





00022 




ARS 




18 


07350 


0522 


CO 





07244 




XEC 




BUCK 


07 351 


0621 


CO 


4 


646 23 




STA 




BUCKET, 4 


• 07352 


0500 


00 





07366 




CLA 




05 


07353 


07 74 


00 


4 


00000 


ITRX 


AXT 




»» ,4 


A 07 35 4 


0774 


CO 


2 


OOOQO 


I TRY 


A XT 




**,2 


• 07 355 


GO 20 


CO 


4 


00001 




TRA 




1,4 


07356 


0500 


CO 





07362 


INTAD 


CLA 




BSRT 


~ 07357 


0600 


CO 





07362 




STZ 




BSRT 


• 0736 


0020 


CO 





07 344 




TRA 




INTCN 


07361 


COOCG 





00000 


VALUE 








07362 


00000 





coooo 


BSRT 








• 07 363 


00000 





00177 


BUCKNO 


PZE 




127 


07 364 


COO CO 





GGOOO 


01 








• 07365 


C GGOCO 





OOOQO 


02 








07366 


GOOCO 





00000 


05 








A 








00541 


OPNA 


SYN 




PNAMED 


BINARY CARD NO. 


LISP0168 










-. 0736 7 


OOOCC 





GCOOO 


Q2 








• 0737C 


OOOCO 


c 


OOOQO 


Q4 


















T 


HED 






• 7371 


0634 


00 


4 


07445 


NUTRN 


SXA 




NX4 f 4 


07372 


0634 


CO 


2 


07444 




SXA 




NX2,2 


07373 


G6 34 


CO 


1 


07443 




SXA 




NX 1,1 


• 07374 


0774 


GO 


1 


00006 




AXT 


6,1 




07375 


-0534 


CO 


4 


07 361 




LXD 


$ VALUE ,4 


07376 


500 


CO 


4 


00000 


NA1 


CLA 


0,4 




• 07377 


-0734 


CO 


4 


COOOO 




PDX 


0,4 




0740C 


7 34 


00 


2 


GCOOO 




PAX 


0,2 




07401 


500 


GO 


2 


COOOO 




CLA 


0,2 




• 0740 2 


0601 


CO 


1 


10156 




STO 


BUFFER+6*1 


07403 


-3 00000 


4 


07414 




TXL 


NA2 


,4,0 


^ 07404 


2 0000 1 


1 


073 76 




TIX 


NA1 


ilil 


• 07405 


-06 34 


CO 


4 


02313 


NE 


SXD 


$ERR0R,4 


07406 


74 


CO 


4 


01527 




TSX 


OUTPUT, 4 


07407 


OOOCO 





00365 






BCDOUT 


• 074 1C 


C 00016 


C 


07176 






UCELL-15,,1 


07411 


-0 7 54 


00 





00000 




PXD 




0,0 


07412 


0074 


00 


4 


02314 




TSX 


$ERR0R+1,4 


• 07413 


54516C600654 




BCI 




1,*R 6* 


07414 


05 00 


CC 





G0527 


NA2 


CLA 


BLANKS 


• BINARY CARD NO. 


LISP 0169 










07415 


0601 


CO 


1 


10157 




STO 


BUFFER+7,1 


_ 07416 


05 00 


CO 





07447 




CLA 




KBPOS 



9/20/67 



INTO f!Q 

ATOM SYMBOL 

MAKE IT AN ATOM 

LIST OF ATOMS IN BUCKET 

SAVE ATOM AS ANSWER 

ATTACH TO BEGINNING OF LIST 

PUT IN ADDRESS 

BUCKET NUMBER 

PUT IN PROPER BUCJET 

ATOM AS ANSWER 

RESTORE LINK IR 

EXIT 

PICK UP ATOM 

ZERO LOCATION 

PLACE ATOM IN BICKET 

POINTER TO PNAME LIST 

ATOM ON CNSFWL WENTRANCE 

NUMBER OR BUCKETS 



PAGE 91 



SAVE INDEX REGISY6RS 



CLEAR AC 

NUMBER TOO LARGE IN CONVERSION 



PARAMETER ROR NUMBR 



LS042030 
LS042040 
LS042050 
LS042060 
LS042070 
LS042080 
LS042090 
LS042100 
LS042110 
LS042120 
LS042130 
LS042140 
LS042150 
LS042160 
LS042170 
LS042180 
LS042190 
LS042200 
LS042210 
LS042220 
LS042230 
LS042240 
LS042250 
LS042260 



LS042270 
LS042280 
LS042290 
LS042300 
LS042310 
LS042320 
LS042330 
LS042340 
LS042350 
LS042360 
LS042370 
LS042380 
LS042390 
LS042400 
LS042410 
LS042420 
LS042430 
LS042440 
LS042450 
LS042460 
LS042470 
LS042480 
LS042490 
LS042500 



LS042510 
LS042520 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
LISP FUNCTIONS 
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07417 


0074 


GO 


4 


07450 




TSX 


$NUMBR,4 


07420 


0100 


CO 





07405 




TZE 


IME 


07421 


-C120 


CO 





07440 




TMI 


NA7 


07422 


-0760 


CO 





OOOQl 




PBT 




0742 3 


0020 


GO 





07427 




TRA 


NA3 


07424 


0500 


CO 





00540 




CLA 


$OCTD 


07425 


131 


CO 





00000 




XCA 




0742 6 


CC20 


CO 





07442 




TRA 


NA8 


07427 


0131 


GO 





00000 


NA3 


XCA 




07430 


G560 


CO 


G 


00532 




LDQ 


$FIXD 


07431 


-0120 


CO 





07442 




TMI 


NA8 


07432 


0340 


CO 





00436 




CAS 


$010 


07433 


0020 


CO 





07442 




TRA 


NA8 


07434 


0020 


CO 





07442 




TRA 


NA8 


07435 


0361 


CO 





00556 




ACL 


SHOOA 


07436 


0767 


CO 





00022 




ALS 


18 


07437 


0020 


CO 





07443 




TRA 


NX1 


07440 


500 


CO 





00533 


NA7 


CLA 


FLOATD 


07441 


0131 


CO 





COOOO 




XCA 




07442 


0074 


CO 


4 


13624 


NA8 


TSX 


$MKN0,4 


RY CARD NO. 


LISR0170 








07443 


774 


CO 


1 


00000 


NX1 


AXT 


**»1 


07444 


G774 


GO 


2 


ceo oo 


NX2 


AXT 


**,2 


07445 


7 74 


CO 


4 


00000 


NX4 


AXT 


**,4 


07446 


0020 


00 


4 


00001 




TRA 


1,4 


07447 


C 000 CI 





10150 


KBPOS 


PZE 


BUFFER,,! 



HED 



NUMBER TO MQ 
CUT-OF-RANGE ERROR 
TRA IF FLOATING NUMBER 
TEST FOR OCTAL NUMBER 
TRA IF OCTAL 
OCTAL SIGNAL FOR 4MKN0 



NUMBER TO AC 
FIX TO MQ 

TEST FOR THRU 9 



FORM PRINT OBJECT 



FLOAT SIGNAL FOR *MKNO 
NUMBER TO AC 
MAKE A NUMBER 



RESTORE INDEX REGISTERS 















ROUTINE STOLEN 


07450 


0634 


CC 


1 


10000 


NUMBR SXA 


PX1,1 


07451 


0634 


CO 


2 


10001 


SXA 


PX2,2 


07452 


0634 


CO 


4 


10002 


SXA 


PX4.4 


07453 


0602 


CO 





77663 


SLW 


T 


07454 


737 


GO 


2 


GO 000 


PAC 


,2 


07455 


-0 737 


CO 


1 


00000 


PDC 


,1 


07456 


77L 


CO 





00021 


ARS 


17 


07457 


■06 01 


CC 





77664 


STO 


N 


07460 


0767 


CO 





00001 


ALS 


1 


07461 


0400 


00 





77664 


ADO 


N 


07462 


7 37 


CC 


4 


00000 


PAC 


,4 


07463 


560 


CO 


2 


OCOOO 


LOQ 


0,2 


07464 


-0 763 


CC 


4 


77772 


LGL 


-6,4 


07465 


-0600 


CO 





77660 


STQ 


MG 


07466 


1 0000 7 


1 


07467 


TXI 


*+l,l,7 



NUMBR CONVERTS PACKED BCD CHARACTERS TO A NUMBER WHICH 
APPEARS IN MQ. DBC CONVENTIONS ARE FOLLOWEO. OCTAL 
NUMBERS ARE SIGNALLED BY Q AND MAY BE FOLLOWED BY A 
SCALE FACTOR. 



FROM UADBC1 



SAVE INDEX REGISTERS 



IR2 

IR1 



HAS WORD 
WILL GET 



COUNT 
CHARACTER 



COUN T 



PUT BCD WORD IN MQ 

SHIFT OUT EXTftA CHARACTERS 

SAVE FIRST BATCH OF CHARACTERS 



LS042530 
L SO 42 540 
LS042550 
LS042560 
LS042570 
LS042580 
LS042590 
LS042600 
LS042610 
LS042620 
LS042630 
LS042640 
LS042650 
LS042660 
LS042670 
LS042680 
LS042690 
LS042700 
LS042710 
LS042720 



LS042730 
LS042740 
LS042750 
LS042760 
LS042770 
LS042780 
LS042790 
LS042800 
LS042810 
LS 042 820 
LS042830 
LS042840 
LS042850 
LS042860 
LS042870 
LS042880 
LS042890 
LS042900 
LS042910 
LS042920 
LS042930 
L SO 42 940 
LS042950 
LS042960 
LS042970 
LS042980 
LS042990 
LS043000 
LS043010 
LS043020 
LS043030 
LS043040 
LS043050 



LISP 1.5 
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LOOK AT CHARACTERS UNTIL A Q OR NOW-OCTAL CHARACTER APPEARS 



07467 


-0 7 54 


00 





00000 


CY3 


PXO 


,0 


07470 


-0763 


CO 





00O06 




LGL 


6 


BINARY CARD NO. 


LISP0171 








07471 


0402 


CO 





00434 




SUB 


G8 


07472 


0120 


CO 





07477 




TPL 


CY4 


07473 


2 00001 


1 


07467 


CY2 


TIX 


CY3,1,1 


07474 


1 Z777 7 


2 


07475 




TX1 


*+l,2,-l 


07475 


0560 


00 


2 


00000 




LCQ 


0,2 


07476 


1 C00C5 


1 


07467 




TXI 


CY3, I, 5 


7477 


0400 


GO 





00434 


CY4 


ADD 


08 


0750C 


0340 


00 





00462 




CAS 


Q 


07501 


0020 


CO 





07514 




TRA 


DECNO 


07502 


CO 20 


GO 





10013 




TRA 


OCTNO 


07503 


0340 


CO 





00457 




CAS 


MINUS 


07504 


0020 


CO 





07514 




TRA 


DECNO 


07505 


0020 


CO 





07473 




TRA 


CY2 


07506 


0340 


00 





00454 




CAS 


PLUS 


07507 


CO 20 


CO 


C 


07514 




TRA 


DECNO 


0751C 


0020 


00 





07473 




TRA 


CY2 


07511 


0340 


GO 





00452 




CAS 


DASH 


07 512 


0020 


CO 





07514 




TRA 


DECNO 


07513 


GG20 


CO 





07473 




TRA 


CY2 


07514 


0535 


CO 


2 


77663 


DECNO 


LAC 


T,2 


07515 


-0535 


GO 


1 


77 663 




LDC 


T,l 


07516 


0560 


CO 





77660 




LDQ 


MQ 


BINARY CARD NO. 


LISP0172 








07517 


-0754 


CO 





CO 000 




PXD 


,0 


07520 


0602 


CO 





77660 


BN2 


SLW 


,BN 


07521 


602 


CO 


c 


77661 


EX2 


SLW 


EXPN 


7522 


0602 


CO 





77664 


INTN 


SLW 


N 


07523 


-0 534 


CO 


4 


G0436 




LXD 


Q10,4 


07524 


-0500 


CO 





07614 




CAL 


SW1 


07525 


0630 


CO 





07656 




STP 


CM2 


07526 


0630 


CO 





07731 




STP 


CM6 


07527 


6 30 


CO 





07634 




STP 


EXS 


07530 


0630 


CO 





07660 




STP 


CM3 


07531 


6 30 


CO 


C 


07643 




STP 


CX3 


07532 


-0500 


CO 





07522 




CAL 


INTN 


07533 


1 00010 


1 


07546 




TXI 


8N3rl,8 


07534 


0502 


CO 





07660 


PT1 


CLS 


CM3 


07535 


0601 


CO 





07660 




STO 


CM3 


07536 


-0 500 


CO 





07571 




CAL 


CV3 


07537 


0621 


GO 





07606 




STA 


CV5 


07540 


0621 


CO 





07611 




STA 


CV6 


07541 


1 00OC1 


4 


07606 




TXI 


CV5*4,1 


07542 


1 77777 


4 


07571 


PT3 


TXI 


CV3,4,-1 


07543 


05 02 


CO 





07634 


EX1 


CLS 


EXS 


07 544 


0601 


CO 





07634 




STO 


EXS 



TEST FOR OCTAL DIGIT 
GET NEXT CHARACTER 



IF Q, NUMBER IS OCTAL 

IF CHARACTER € S M^INUSJ, PLUS, OR DASH, 
LOOK AT MORE CHARACTERS, 
OTHERWISE NUMBER IS DECIMAL 



IR2 HAS WORD COUNT 

IR1 WILL GET CHARACTER COAJNT 

RESTORE FIRST GROUP OF CHARACTERS 



REGISTERS 



SET DECIMAL COUNT TO ZERO 
RESET SWITCHES FOR 

FIXED POINT 

X 

EXP 

POINT 

DECIMAL NUMBER 
INITIALIZE CONVERSION 
FIX INITIAL CHARACTER COUNT 
INVERT SWITCH TO SIGNAL DECIMAL POINT 



ROUTINE TO COUNT 
DECIMAL PLACES 

COUNT DECIMAL PLACES 

INVERT SWITCH TO SIGNAL EXPONENT 



LS043060 
LS043070 
LS043080 
LS043090 



LS043100 
LS043110 
LS043I20 
LS043130 
LS043140 
LS043150 
LS043160 
LS043170 
LS043180 
LS043190 
LS043200 
LS043210 
LS043220 
LS043230 
LS043240 
LS043250 
LS043260 
LS043270 
LS043280 
LS043290 
LS043300 
LS043310 
LS043320 



LS043330 
L SO 43340 
LS043350 
LS043360 
LS043370 
LS043380 
LS043390 
LS043400 
LS043410 
LS043420 
LS043430 
LS043440 
LS043450 
L $043460 
LS043470 
LS043480 
LS043490 
LS043500 
LS043510 
LS043520 
L $043530 
LS043540 



Q 
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BINARY CARD 



07545 
07546 
754 7 
07550 
07551 
07552 
7553 
07554 
07555 
07556 
07557 
07560 
07561 
07562 
07563 
07564 
07565 
07566 
07567 
07570 
7571 
07572 



-0 

c 
c 



-c 



c 

-c 

c 

c 

-3 




c 

-0 

-3 

c 



-c 

-3 

-0 
-G 



NO. 
500 
621 
6 21 
621 
500 
621 
621 
500 
622 
140 



LI 

CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 



BINARY 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 



CARD 

573 

574 -3 

575 -3 

576 
577 
60C 
601 
602 
603 
604 
605 
606 
607 
61C 
611 
612 
613 

614 -3 

615 -3 

616 

617 -3 
620 ~3 



000 CO 
500 CO 
630 CO 
6 30 CO 
500 CO 

000 CO 
500 CC 

601 60 
500 CO 

402C0 
754 CC 
763 CO 

NO. LI 

340 CO 

COOCO 

000 CC 

602 CO 



CO 
00 
CO 
CO 
CO 
CO 
CO 



500 

767 

4C0 

76 7 

400 

140 

601 
COO CI 
7777 7 

560 CO 
000 C 5 
000 CI 

340 CO 
000 CC 
00000 

340 CO 
COOCO 
000 CO 



SP0173 

07521 

07577 

07601 

07605 

07542 

07 606 

07611 

07601 

07603 

07606 

07606 

07656 

07656 

07731 

07520 

07546 

C 00511 

07577 

07570 

07555 

07542 

00006 

SPG 17 4 
C 00436 
07613 
07632 
77662 
77664 
C0002 
77664 
00OQ1 
77662 
07612 
77664 
07 571 
07610 
00000 
075 71 
07606 
00457 
07632 
07565 
00456 
07632 
07534 













c 
1 

2 
2 

1 
4 









BINARY CARD NOW LISP0175 



07621 
07622 
07623 
07624 
07625 
07626 



0340 CO 
-3 COOCO 
-3 COOCO 

0340 GO 
-3 COOCO 
-3 OOOCO 



00444 
07632 
07543 
00455 
07632 
07560 



BN3 



PL1 

MN3 



BN1 



MN1 



MN2 
CV3 



CV7 

CV8 

CVIO 

CV9 
CV5 

CV4 
CV6 
OVF 
CM 

SW1 



CAL 
STA 
STA 
STA 
CAL 
STA 
STA 
CAL 
STD 
TOV 
TXL 
CLA 
STP 
STP 
CAL 
TXL 
CLA 



EX2 

CV7 

CVS 

CV9 

PT3 

CV5 

CV6 

CV8 

CVIO 

CV5 

CM2 

CM2 
CM6 
BN2 



CV5,* 



BN3, 



PBIT 
STO* CV7 
CAL MN2 

TXL MN3,C, 258*64 
PXD PT3,0 
LGL 6 



CAS 
TXL 
TXL 
SLW 
CLA 
ALS 
ADD 
ALS 
ADD 
TOV 
STO 
TIX 
TXI 
LUQ 
TXI 
TXI 
CAS 

ixl 

TXL 
CAS 
TXL 

ixl 



CAS 
TXL 
TXL 
CAS 
TXL 
TXL 



TEN 



CM,, 
CV2, 



CH 

N 

2 

N 

1 

CH 

OVF 

N 

CV3, 1, 1 

CV4,2,-1 

C,2 

CV3 f 1,5 

CV5,4,1 

MINUS 

CV2, 
MNlt 

POINT 

CV2, 
,PT1, 



B 



CV2,, 
EX1,, 

CV2», 

BN1, , 



SET UP EXPONENT CONVERSION 

STCRE CONVERSION 

ADDRESS 

INITIAL CONVERSION 
WITHOUT DECIMAL COUNT 



INVERT SWITCHES TO SIGNAL FIXED POINT 

SET UP B CONVERSION 

START NEGATIVE ACCUMULATION WITH NEG. ZERO 

OP CODE TO MAKE CVIO A SUB INSTRUCTION 



TEST FOR DIGIT 



PERFORM CODED 
MULTIPLICATION 
BY TEN AND ADD 
CURRENT DIGIT 



TEST FOR OVERFLOW 

COUNT CHARACTERS 

OBTAIN NEXT BCD 

WORD AND RESTORE 

CHARACTER COUNT 

COUNT DECIMAL OVERFLOWS 



LS043550 
LS043560 
LS043570 
LS043580 
LS043590 
LS043600 
LS043610 
LS043620 
LS043630 
LS043640 
LS043650 
LS043660 
LS043670 
LS043680 
LS043690 
LS043700 
LS043710 
LS043720 
LS043730 
LS043740 
LS043750 
LS043760 



LS043770 
LS043780 
LS043790 
LS043800 
LS043810 
LS043820 
LS043830 
LS043840 
LS043850 
LS043860 
LS043870 
LS043880 
LS043890 
LS043900 
LS043910 
LS043920 
LS043930 
LS043940 
LS043950 
LS043960 
LS043970 
LS043980 



LS043990 
LS044000 
LS044010 
LS044020 
LS044030 
LS044040 
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07627 


0340 


CO 





00454 




CAS 


PLUS 




• 07630 


-3 OOOCO 





07632 




TXL 


CV2,, 




07631 


-3 OOOCO 





07554 




TXL 


PL1,, 




07632 


G300 


00 





77664 


CV2 


CLA 


N 




• 07633 


0100 


00 





10004 




tze 


STZ 


SEE IF ZERO FIXED OR FLOATING 


07634 


-3 OOOCO 





0764 3 


EXS 


TXL 


CX3,» 


SWITCH - TXH INDICATES 


07635 


-0500 


cc 





00511 




CAL 


PBIT 


PREPARE TRUE 


• 07636 


0400 


CO 





77661 




ADD 


EXPN 


DECIMAL EXPONENT 


07637 


0767 


CO 





00022 




ALS 


18 




0764C 


622 


CO 





07642 


( 


STD 


CM4 




• 7641 


0500 


CO 





77664 




CLA 


N 




07642 


1 OOOCO 


4 


07661 


CM4 


TXI 


CMS, 4,0 




07643 


-3 OOOCO 





07656 


CX3 


TXL 


CM2** 


SWITCH - TXH INDICATES 
















SCALE OCTAL 


NUM8ER 


07644 


0500 


CC 





77660 




CLA 


BN 


MULTIPLY SCALE FACTOR BY 3 


07645 


0767 


CO 





C0001 




ALS 


1 


FOR NUMBER OF SHIFTS NEEDED 


• 0764 6 


04C0 


CC 





77660 




ADD 


BN 




BINARY C/^RD NC. 


LISP0176 










• 07647 


06 21 


CO 





07651 




STA 


CX5 




0765C 


0500 


CG 





77664 




CLA 


N 




- 07651 


0767 


CO 





0000 


CX5 


ALS 


*« 




• 07652 


-0760 


CO 





00001 




PBT 




ALLOW FOR P BIT 


07653 


00 20 


CO 





07751 




TRA 


ISTOR 




A 07654 


-0760 


CO 





00003 




SSM 






• 07655 


0020 


CC 





07751 




TRA 


ISTOR 




07656 


-3 00000 





07660 


CM2 


TXL 


CM3, , 


SWITCH - INVERTED TO TXH MEANS Fl 


• 07657 


-3 OOOCO 


n 


07661 




TXL 


CM5,, 




07660 


-3 00000 





07751 


CM3 


TXL 


ISTOR,, 


SWITCH - TXH INDICATES 


07661 


0621 


CO 





10066 


CMS 


STA 


FL1 


35 BIT INTEGER 


• 07662 


0771 


CO 





00O17 




ARS 


15 




07663 


-0501 


CO 





10067 




QRA 


FL2 




07664 


0300 


CO 





10067 




FAD 


FL2 




• 07665 


0120 


00 





07670 




TPL 


CMF1 




07666 


0302 


CO 





10066 




FSB 


FL1 




07667 


-3 OOOCO 





07671 




TXL 


CMF2,, 




• 07670 


300 


CO 





10066 


CMF1 


FAD 


FL1 




07671 


-0600 


CO 





77666 


CMF2 


STQ 


RESID 




07672 


-3 OOOCO 


4 


07731 




TXL 


CM6,4,0 




• 07673 


3 0004 6 


4 


07714 


SW2 


TXH 


CM7,4,38 


TEST FOR NEGATIVE EXP 


07674 


0634 


CO 


4 


07675 




SXA 


*+l ,4 


COMPUTE ABSOLUTE VALUE OF EXPO 


• BINARY CARD NC. 


LISP0177 










07675 


-0774 


CO 


4 


00000 




AXC 


**,4 


"■ 


07676 


0601 


CO 





77665 




STO 


DATUM 




• 07677 


C560 


CO 


4 


10067 




LDQ 


ONE, 4 


COMPUTE FLOATING 


0770G 


260 


CO 





77665 




FMP 


DATUM 


BINARY REPRESENTATION 


^ 07701 


0601 


CO 





77663 




STO 


T 


OF INTEGER TkMES THE 


W 07702 


-C600 


CO 





77664 




STQ 


T+l 


POWER OF TEN GIVEN 


07703 


C5 60 


CO 


4 


10067 




LDQ 


ONE, 4 


BY THE TRUE EXPONENT 


07704 


0260 


CO 





77666 




FMP 


RESID 




• 07705 


300 


CO 





77664 




FAD 


T+l 




07706 


300 


CO 





77663 




FAD 


T 




^ 07707 


0361 


CC 


c 


10064 




ACL 


EXC1 





EXPONENT 



OCTAL 



PT 



POINT 



LS044050 
LS044060 
L SO 440 70 
LS044080 
LS044090 
LS044100 
LS044110 
LS044120 
LS044130 
LS044140 
LS044150 
LS044160 
LS044170 
LS044180 
LS044190 
LS044200 
LS044210 



LS044220 
LS044230 
LS044240 
LS044250 
LS044260 
LS044270 
LS044280 
LS044290 
LS044300 
LS044310 
LS044320 
LS044330 
LS044340 
LS044350 
LS044360 
LS044370 
LS044380 
LS044390 
LS044400 
LS044410 
LS044420 
LS044430 
LS044440 



LS044450 
LS044460 
LS044470 
LS044480 
LS044490 
LS044500 
LS044510 
LS044520 
LS044530 
LS044540 
LS044550 
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0771C 


-0760 


CO 





C0OQ1 




PBT 






• 07711 


-3 000 CO 





07731 




TXL 


CM6,, 




07712 


-0754 


00 


c 


00000 


CM8 


PXD 


,0 




^ 07713 


0020 


GO 





10000 




IRA 


PX1 




• 07714 
07715 


-3 77717 


4 


07712 


CM7 


TXL 


CM8,4,-49 




0161 


CO 





07716 


CM. 13 


TQO 


CM 1 3-1:1 




^ 07716 


0241 


CO 


4 


10067 




FDP 


CNE,4 




• 07717 


-0600 


GO 





77663 




SFQ 


T 




0772 


0300 


CO 





77666 




FAD 


RESID 




07 721 


0241 


CC 


4 


10067 




FDP 


ONE, 4 




• 07722 


0161 


GO 





07712 




TQO 


CM8 




1 ^ BINARY CARD NO. 


LISP0178 










i • 0772 3 


-0600 


CO 





77664 




STQ 


T+l 




07 724 


5 00 


CC 


c 


77 664 




CLA 


T + l 




07725 


0300 


GO 


c 


77663 




FAD 


T 




• 07726 


0361 


CO 





10065 




ACL 


EXC2 




07727 


-0760 


CO 


c 


G0001 




P8T 






07730 


-3 OOOCO 





07712 




TXL 


CM8,, 




• 07 731 


-3 00000 





07 754 


CM6 


TXL 


FSTOR, 


» 


07 732 


601 


CO 





77663 




STO 


T 




I 07 73 3 


0767 


CO 





00002 




ALS 


2 




| • 07734 


-0760 


CO 





00003 




SSM 






1 07735 


0771 


CG 





00-035 




ARS 


29 




~ 07736 


04C0 


CG 





00451 




ADD 


Q128 




• 07737 


04C0 


CO 





77660 




ADD 


BN 




0774C 


0120 


CO 


c 


07742 




TPL 


SHIFT 




** 07741 


-G1G0 


CC 


c 


07712 




TNZ 


CM8 




• 07742 


C62I 


CC 


c 


07750 


SHIFT 


STA 


CM12 




0774 3 


0500 


CO 





77663 




CLA 


T 




07744 


0763 


CO 





cooio 




LLS 


8 




• 07745 


0767 


CC 





00002 




ALS 


2 




07746 


0771 


CG 


c 


00012 




ARS 


10 




' ^ 07747 


0763 


GO 





00010 




LLS 


8 




, • 07750 


0765 


CO 





CGOOO 


CM12 


LRS 


#« 




BINARY CARD NO. 


LISP0179 










f • 07751 


0131 


00 





00000 


IS TOR 


XCA 






07752 


-0500 


CO 





07614 


IST01 


CAL 


SKI 




— 07753 


CC2G 


CO 





07756 




TRA 


XT3 




1 • 07754 


0131 


CO 


c 


00000 


FSTOR 


XCA 






07755 


0500 


CO 





07614 




CLA 


SKI 




i 07756 


C630 


CO 





07776 


XT3 


STP 


XT1 




• 0775 7 


2 C00C1 


1 


07762 




TIX 


XT2,1,1 




1 7 760 


1 7777 7 


2 


07761 




TXI 


*+ 1,2,-1 




07761 


774 


CC 


1 


C00Q6 




AXT 


6,1 




• 07762 


-0754 


CO 


1 


COOOG 


X!"2 


PXD 


,1 




07 763 


C4G2 


CO 





00502 




SUB 


QC7 




07764 


0602 


CO 





77663 




SLW 


T 




• 07765 
07766 


-0 500 


CO 





0764 3 




CAL 


CX3 




-0 3 20 


GO 





00511 




ANA 


$S8IT 




07767 


-0602 


CO 





77663 




ORS 


T 




W 07770 


0760 


00 





00006 




COM 






07771 


0630 


CO 





77663 




STP 


T 




_ 07772 


0634 


CC 


2 


07773 




SXA 


*+l,2 





NUMBER OUT OF RANGE. EXIT WITH IN AC 
TEST FOR ILLEGAL EXP 

COMPUTE FLOATING 
BINARY EQUIVALENT 
OF INTEGER TIMES 
POWER OF TEN GIVEN 



BY TRUE EXPONENT 



SWITCH - TXH INDICATES FIXED POINT 



DETERMINE SHIFT 
NECESSARY TO POSITION 
NUMBER AS INDICATED 
BY B 



REMOVE CHARACTERISTICS 
FROM FLOATING NUMBER 



RESULT TO MQ 

SET FIXED POINT INDICATOR SWITCH 

RESULT TC MQ 

SET FLOAT INDICATOR SWITCH 

IF NO SIGNIFICANT CHARACTERS 
LEFT IN WORD* MOVE TO NEXT WORD 

SET POSITION INDICATORS 



P BIT IN OUTPUT INDICATES OCTAL 



LS044560 
LS044570 
LS044580 
LS044590 
LS044600 
LS044610 
LS044620 
LS044630 
LS044640 
LS044650 
LS044660 



LS044670 
LS044680 
LS044690 
LS044700 
LS044710 
LS044720 
LS044730 
LS044740 
LS044750 
LS044760 
LS044770 
LS044780 
LS044790 
LS044800 
LS044810 
LS044820 
LS044830 
LS044840 
LS044850 
LS044860 
LS044870 
LS044880 



LS044890 
LS044900 
LS044910 
LS044920 
LS044930 
LS044940 
LS044950 
LS044960 
LS044970 
LS044980 
LS044990 
LS045000 
LS045010 
LS045020 
LS045030 
LS045040 
LS045050 
LS045060 
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07773 -C774 CO 

07774 0754 GO 

07775 0361 CO 

07776 -3 COOCO 



2 CCOOO 

2 COOOC 

77 66 3 

1C0O0 



BINARY CARD NO. LISP0180 



07777 
10000 
10001 
10002 
1000 3 



-0760 
0774 
0774 
0774 
0020 



00 
CO 
00 
00 
00 



00003 
00000 
CGOOO 
OOOQO 
00001 



XT1 



PX1 
PX2 
PX4 



AXC **,2 
PXA ,2 
ACL T 
TXL 



*+2, 



SSM 
AXT 
AXT 
AXT 
TRA 



,1 
,2 
,4 
1,4 



SET SIGN + FOR FIXED 



- FOR FLOATLNG 
RESTORE INDEX REGISTERS 



EXIT 



10004 


0560 


CO 


c 


07656 STZ LDQ 


CM2 


10005 


C162 


CG 





07751 


TQP 


ISTOR 


10006 


560 


CO 





07660 


LDQ 


CM3 


10007 


0162 


CO 





07 754 


TQP 


FSTOR 


10010 


0560 


CO 


C 


07634 


LDQ 


EXS 


10011 


162 


CO 





07754 


TQP 


FSTOR 


10012 


0020 


CO 





07751 


TRA 


ISTOR 



WE GET HERE IF NUMBER IS ZERO. 

WE HERE DECIDE WHETHER WE ARE FACED WITH A FIXED OR FLOATING 
ZERO. 



TXH {,+ ) IF B 

TXH {■.+ ) IF DECIMAL? POINT FQ^ND 

TXH <+) IF E FOUND 



PROCESS OCTAL NUMBER 



10013 


535 


GO 


2 


77663 


10014 


-C535 


CO 


1 


77663 


10015 


C560 


CG 





77660 


10016 


-0754 


CO 





COOOO 


10017 


0621 


CO 





07577 


1G02G 


1 COG 10 


1 


10026 


10021 


-0754 


CO 





00000 


10022 


-0 7 63 


00 





00003 


10023 


-0100 


CO 





10034 


10024 


C5C0 


CO 





77664 


BINARY CARD NO, 


LISP0181 


10025 


-C763 


GO 





00O03 


10026 


C601 


CO 





77664 


1G027 


-G6C2 


CO 





77664 


10030 


2 00001 


1 


10021 


10031 


1 77777 


2 


100 32 


10032 


C560 


CO 


2 


00000 


10033 


1 0-0005 


1 


10021 


10034 


-G763 


CO 





CC003 


10035 


0340 


CO 





00462 


10036 


0C20 


CO 





10051 


1003 7 


G020 


CG 





10055 


1004C 


0340 


CO 





00457 


10041 


-3 COOCO 





10051 


10042 


-3 000 CO 


G 


10053 


10043 


0340 


CO 





GC454 


10044 


-3 OOOCG 





10051 


10045 


-3 OOOCG 





10030 



OCT NO 



CCT1 



0CT9 



0CT6 



0CT2 



0CT8 



LAC 


T,2 


LDC 


T,l 


LDQ 


MQ 


PXD 


»0 


STA 


CV7 


TXI 


0CT9, 1,8 


PXD 


,0 


LGL 


3 


TNZ 


OCT 8 


CLA 


N 


LGL 


3 


STO 


N 


ORS 


N 


TIX 


0CTW1,1 


TXI 


0012*2,-1 


LDQ 


0,2 


TXI 


0CT1,1,5 


LGL 


3 


CAS 


Q 


TRA 


0CT3 


TRA 


0CT1C 


CAS 


MINUS 


TXL 


0CT3, , 


TXL 


GCT5,, 


CAS 


PLUS 


TXL 


0CT3,, 


TXL 


GCT6,, 



IR2 HAS WORD COUNT 

IR1 WILL GET CHAftACTgR COUNT 

RESTORE FIRST GROUP OF CHARACTERS 

SET SIGNAL FOR OCTAL NUMBER 
FIX CHARACTER COUNT 



ALLOW FOR BOTH P BIT AND MINUS SIGN 



NEW PACKED WORD 



TEST FOR OCTAL SCALE FACTOR 



LS045070 
LS045080 
LS045090 
LS045100 



LS045110 
LS045120 
LS045130 
LS045140 
LS045150 
LS045160 
LS045170 
LS045180 
LS045190 
LS045200 
LS045210 
LS045220 
LS045230 
LS045240 
LS045250 
LS045260 
LS045270 
LS045280 
LS045290 
LS045300 
LS045310 
LS045320 
LS045330 
LS045340 
LS045350 
LS045360 
LS045370 
LS045380 
LS045390 
LS045400 



LS045410 
LS045420 
LS045430 
LS045440 
LS045450 
LS045460 
LS045470 
LS045480 
LS045490 
LS045500 
LS045510 
LS04552O 
LS045530 
LS045540 
LS045550 
LS045560 
LS045570 



mm 



mm 



mmmmmmmm 
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10046 


0340 CO 


00452 




CAS 


DASH 


10047 


-3 COOCO 


10051 




TXL 


CCT3,, 


1005C 


-3 OOOCO 


10053 




TXL 


CCT5,, 


10051 


0560 CO 


77664 


0CT3 


LDQ 


N 


10052 


i eoocc o 


07752 




TXI 


IST01,, 


BINARY CARD NO. LISPC182 








10053 


0500 CO 


00511 


0CT5 


CLA 


PBIT 


10054 


-3 COOCC 


10C26 




TXL 


CCT9,, 


10055 


5 GO CO 


07643 


0CT10 


CLA 


CX3 


10056 


6 30 CO 


07643 




STP 


CX3 


10057 


0600 CO 


7 7660 




STZ 


BN 


1006C 


-0 5 CO CO G 


07614 




CAL 


SW1 


10061 


C630 CO 


07634 




STP 


EXS 


10062 


-0500 CO 


07520 




CAL 


BN2 


10063 


0020 CO 


07546 




TRA 


BN3 



DASH TREATED LIKE - 



SET NEGATIVE SIGN 

SET SWITCH FOR OCTAL SCALE FACTOR 

CLEAR SCALE FACTOR CELL 
SET EXPONENT SWITCH TO OFF 

SET UP Q CONVERSION 



10064 
10065 
10066 
10067 
10070 
10071 
10072 
10073 
10074 
10075 
10076 
10077 
10100 



+04300C 
+3 3 500C 
+2 3 3000 
+2 5 200 C 
+141500 
+14462C 
+147764 
+15347C 
+156606 
+16175C 
+165461 
+17C575 
+ 1737^4 



00434 
00436 
00451 
00502 
00511 
00463 
00457 
00456 
00444 
00455 
00462 
CG454 
00452 

COCGOO 

GOO GOO 

COOGCO 

COO 000 

000000 

OOOGCO 

C OOOCO 

4 00 GOO 

5 00 GOO 

220000 

132CCC 

360400 

654500 ■ 



BINARY CARD NG. LISP0183 



10101 
10102 
10103 
10104 
10105 
10106 
10107 
10110 



+17 7452 
+2C2564 
+205721 
+211443 
+2 14553 
+217706 
+223434 
+226543 



013710 
416672 
522451 
023471 
630410 
576512 
157116 
212741 



Q8 

010 

Q128 

QD7 

PBIT 

BLANK 

MINUS 

POINT 

E 

B 

Q 

PLUS 

DASH 

EXC1 

EXC2 

FL1 

FL2 



SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
DEC 
DEC 
DEC 
DEC 
OCT 



$Q8 

$Q10 

S.C128 

$CD7 

$SBIT 

$G06G 

$0040 

$C033 

$0025 

$G022 

$C050 

$0020 

$0014 

35B8 

221B8 

155B8 

170B8 

141500000000, 144620OGC0CO, 147764000000,153470400000 



CHARACTER I ST IC-35 
CHAR.=COMPL. 35 



OCT 1566G6500COO r 161750220000, 16^461132000, Ii7057i5360400 



OCT 173734654500, 177452013710, 202 5644 16W7 2, 205721522451 



OCT 211443023471,21455 3630410,2X7706576512,223434157116 



OCT 226543212741,231674055532,235425434430,240532743536 



LS045580 
LS045590 
LS045600 
LS045610 
LS045620 



LS045630 
LS045640 
LS045650 
LS045660 
LS045670 
LS045680 
LS045690 
LS045700 
LS045710 
LS045720 
LS045730 
LS045740 
LS045750 
LS045760 
LS045770 
LS045780 
LS045790 
LS045800 
LS045810 
LS045820 
LS045830 
LS045840 
LS045850 
LS045860 
LS045870 
LS045880 
LS045890 
LS045900 
LS045910 
LS045920 



LS045930 



LS045940 



LS045950 



LS045960 
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10111 
10112 
10113 
10114 
10115 
10116 
10117 
10120 
10121 
10122 
10123 
1012 4 
10125 
10126 

BINARY CA 
10127 
10130 
10131 
10132 
10133 
10134 
10135 
10136 
10137 
10140 
10141 
10142 
10143 
10144 
10145 
10146 
10147 



+23167 
+23542 
+24C53 
+.2 4 366 
+2 4741 
+25252 
+25564 
+26141 
+2 6451 
+2 6 763 
+27340 
+27650 
+:3 0162 
+3C4 77 



4055532 
5434430 
2743536 
15 34 466 
7031702 
2640262 
7410336 
C 5452 13 
2676456 
5456171 
2374714 
3074077 
3713116 
0675742 



RD NO, 
+31047 
+3 1361 
+3 1675 
+3 2 246 
+32560 
+3 3074 
+33445 
+3 3757 
+34272 
+34644 
+3 5155 
+35471 
+36043 
+36354 
+36670 
+37243 
+3 7553 



10150 

77660 

77661 
77662 
77663 

77664 
77665 
77666 

10150 



LISP0184 

3426555 

2334311 

5 023 373 

4114135 

1137164 

1367021 

4732313 

G120775 

6145174 

5677216 

7257061 

3132676 

6770626 

6566774 

C 3 24 5 73 

C204755 

6246150 

00436 
10067 

77660 

77660 



77663 



10150 



TEN 
ONE 
REORG 

BN 

MQ 

EXPN 

CH 

CHO 

T 

N 

DATUM 

RESID 

BUFFER 



OCT 243661 534466, 24741703 1702, 252522640262, 255647410336 



OCT 261410545213,264512676456,267635456171,273402374714 



OCT 276503074077,301623713116,304770675742,310473426555 



OCT 3 136 12 334311, 31675 5023373, 3224641 14135, 32560 11 37164 



OCT 330741367021,334454732313,337570120775,342726145174 



OCT 346445677216,351557257061,354713132676,360436770626 



OCT 36 3546566774,366700324573,372430204755,375536246150 



SYN Q10 
SYN FL2 
BSS 

ORG COMMON 
BSS 1 
SYN 8N 
BSS I 
BSS 1 
BSS 1 
SYN CHD 
BSS 1 
BSS 1 
BSS 1 
ORG REORG 
BSS 14 



RESTORE ORIGIN 



HED 



LS045970 



LS045980 



LS045990 



FUNCTION CP1 
CP1(L)={L=0 YIELDS 0, 

OTHERWISE CONS(CCNSW*£WR(CAR(L}}l:),CPl{CDR(Lin ) 



LS046000 



LS046010 



LS046020 



L SO 460 30 



LS046040 
LS046050 
LS046060 
LS046070 
LS046080 
LS046090 
LS046100 
LS046110 
LS046120 
LS046130 
LS046140 
LS046150 
L SO 46 160 
LS046170 
LS046180 
LS046190 
LS046200 
LS046210 
LS046220 
LS046230 
LS046240 
LS046250 
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HED 



BINARY CARD NO. 


LISP0185 








10166 


0634 


GO 


4 


10213 


CP1 


SXA 


CPX, 4 


10167 


-0 774 


CO 


4 


10215 




AXC 


CPE, 4 


1017C 


-0634 


CO 


4 


10215 




SXD 


CPE, 4 


10171 


-0734 


CO 


4 


COOOO 




PDX 


0,4 


10172 


0600 


CO 





04123 




STZ 


CPE 


1017 3 


-3 COOGO 


4 


10212 




TXL 


CPA, 4,0 


10174 


5 00 


CO 


4 


00000 


CPL 


CLA 


0,4 


10175 


G622 


CO 





10216 




STD 


CPT 


1017 6 


0734 


00 


4 


COOOO 




PAX 


0,4 


1017 7 


0500 


CO 


4 


00000 




CLA 


0,4 


10200 


0074 


CO 


4 


04451 




TSX 


$C0NSW,4 


10201 


0560 


CO 





00424 




LDQ 


$ZERO 


10202 


0074 


CO 


4 


04471 




TSX 


$CGNS,4 


10203 


-0520 


CO 


C 


04123 




NZT 


CPF 


10204 


0601 


00 





04123 




STO 


CPF 


10205 


-0534 


CO 


4 


10215 




LXD 


CPE, 4 


10206 


0622 


CO 


4 


COOOO 




STD 


0,4 


10207 


0622 


CO 





10215 




STD 


CPE 


10210 


-0534 


CO 


4 


10216 




LXD 


CPT, 4 


10211 


3 000 CO 


4 


10174 




TXH 


CPL, 4,0 


10212 


0500 


CO 





04123 


CPA 


CLA 


CPF 


10213 


0774 


CC 


4 


00000 


CPX 


AXT 


**,4 



BINARY CARD NC. LISP0186 

10214 00 20 00 4 00001 

10215 COOCO COOOO CPE 

10216 00000 00000 CPT 



TRA 



1,4 



SU8ST 



SU8ST{L,V,M) = 

<M « YIELDS 0, 
EQUAL{M„V) YIELDS COPYMJ» 

CAR(W)=-1 YIELDS M 
1 YIELDS CONS(SUBS»T*L,V».CAR^M)):,SUBSTL,U»CDR.{Mn) ) 













R HED 




10217 


C601 


CC 





04236 


SU8ST STO 


SX 


10220 


-0 600 


CG 


C 


04237 


STQ 


SY 


10221 


500 


CG 


c 


04063 


CLA 


$ARG3 


10222 


-0 634 


CC 


4 


04234 


SUB1 SXD 


SXT,4 


10223 


0601 


CC 





04240 


STO 


ST 


10224 


C560 


CO 





04237 


LDQ 


SY 


10225 


0074 


CO 


4 


05225 


TSX 


$EQUAL,4 


10226 


-0100 


CO 


c 


102 7 3 


TNZ 


SUB4 


10227 


-0 534 


CO 


4 


04240 


LXD 


ST, 4 


1023G 


C500 


CO 


4 


00000 


CLA 


0,4 


10231 


734 


CO 


4 


0000 


PAX 


0,4 


10232 


0500 


CO 





04240 


CLA 


ST 


102 3 3 


3 777 76 


4 


10271 


TXH 


SUB2,4,-2 


10234 


0074 


CG 


4 


03104 


TSX 


$SA\/E,4 



LS046260 
LS046270 



LS046280 
LS046290 
LS046300 
LS046310 
LS046320 
LS046330 
LS046340 
LS046350 
LS046360 
LS046370 
LS046380 
LS046390 
LS046400 
LS046410 
LS046420 
LS046430 
LS046440 
LS046450 
LS046460 
LS046470 
LS046480 
LS046490 



LS046500 
LS046510 
LS046520 
LS046530 
LS046540 
LS046550 
LS046560 
LS046570 
LS046580 
LS046590 
LS046600 
LS046610 
LS046620 
LS046630 
LS046640 
LS046650 
LS046660 
LS046670 
LS046680 
LS046690 
LS046700 
LS046710 
LS046720 
LS046730 
LS046740 
LS046750 
LS046760 



mm 



mm* 
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10235 


-3 04237 





03167 


10236 


0622 


CO 


c 


04235 


10237 


-0734 


00 


4 


00000 


1024C 


05GO 


00 


4 


00000 


10241 


-0734 


GO 


4 


00000 


BINARY CARD NO. 


LISP0187 


10242 


C6 34 


cc 


4 


04 235 


10243 


C734 


CO 


4 


oo-ooo 


10244 


-0 754 


CO 


4 


00000 


10245 


0C74 


CO 


4 


10222 


10246 


5 34 


CO 


4 


04235 


10247 


C771 


CO 





C0022 


10250 


0621 


CO 





04235 


10251 


-0754 


CO 


4 


00000 


10252 


CC74 


CO 


4 


10222 


10 25 3 


-0 534 


CC 


4 


C4235 


10254 


0622 


CO 





04235 


10255 


0500 


CO 


4 


00000 


10256 


4 02 


CO 





04235 


10257 


0100 


CO 


c 


10267 


10260 


-0534 


CC 


4 


04512 


10261 


3 OOOCO 


4 


10263 


10262 


0074 


CO 


4 


C4614 


10263 


C5C0 


00 


4 


COOOO 


10264 


0622 


CO 





04512 


10265 


0500 


CO 





04235 


10266 


06GI 


CO 


4 


COOOO 


10267 


-0 754 


CO 


4 


COOOO 



BINARY CARD NC. LISP0188 

1027C 0074 CC 4 03117 



10271 


-C534 


CO 


4 


04234 


10272 


0020 


CO 


4 


00O01 


10273 


C5C0 


CC 





04236 


10274 


CC20 


CO 





10271 



10275 
10276 
1027 7 
1030C 
10301 
10302 
10303 
10304 
10305 



0601 

CI 31 
-0634 

0601 
-0734 

0500 

734 
-3 77776 

0500 GO 



CO 
CO 
CO 
CG 
CC 
CO 
00 





4 

4 
4 
4 
4 




04232 

00000 
04224 
04233 
COOOO 
OOOOO 
COOOO 
10325 
04232 



TXL 


$END2,,S 


STD 


SZ 


POX 


0,4 


CLA 


0,4 


PDX 


0,4 


SXA 


SZ,4 


PAX 


0,4 


PXD 


0,4 


TSX 


SUB1,4 


LXA 


SZ,4 


ARS 


18 


STA 


SZ 


PXD 


0,4 


TSX 


SUB1,4 


LXD 


SZ,4 


STD 


SZ 


CLA 


0,4 


SUB 


SZ 


TZE 


SUB3 


LXD 


$FREE,4 


TXH 


*+2,4,0 


TSX 


$FRCUT,4 


CLA 


0,4 


STD 


$FREE 


CLA 


SZ 


STO 


0,4 


PXD 


0,4 


TSX 


UNSAVE,4 


LXD 


SXT,4 


TRA 


1,4 


CLA 


SX 


TRA 


SUB2 


HED 





SUB3 



SUB2 



SUB4 



FUNCTION SUBLIS 

SU8LIS<P E) = SUBA{£» 
SUBA (E) = IF AT E THEN SUBKP E) 
AND V - D b THEN E ELSE U.V) (SUBA{A 
SUBHX E) = IF N X THEN E ELSE 
SUBKC X,E) 



* 

* ELSE 

SUBLIS 



ELSE (LAMBDA U V, 
E) SUBA (D E.) ) 

IF AA X = E THEN 



IF U = A E 



DA X 



SU3 



STO 
XCA 
SXD 
STO 
PDX 
CLA 
PAX 
TXL 
CLA 



XI, 4 

E 

,4 

,4 

,4 

SLl,4,-2 

P 



E TO IR4 



10306 0601 CO 04231 



STO X6 



LS046770 
LS046780 
LS046790 
LS046800 
LS046810 



LS046820 
LS046830 
LS046840 
LS046850 
LS046860 
LS046870 
LS046880 
LS046890 
LS046900 
LS046910 
LS046920 
LS046930 
LS046940 
LS046950 
LS046960 
LS046970 
LS046980 
LS046990 
LS047000 
LS047010 
LS047020 
LS047030 



LS047040 
LS047050 
LS047060 
LS047070 
LS047080 
LS047090 
LS047100 
LS047110 
LS047120 
LS047130 
LS047140 
LS047150 
LS047160 
LS047170 
LS047180 
LS047190 
LS047200 
LS047210 
LS047220 
LS047230 
LS047240 
LS047250 
LS047260 
LS047270 
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10307 
10 310 
10311 
10312 
10313 
10314 
10315 

BINARY CA 
10316 
10317 
10320 
10321 
10322 
10 32 3 
10324 
10 32 5 
10326 
10327 
10330 
10331 
10332 
10333 
10334 
10335 
10336 
10337 
1034G 
10341 
10342 
10343 



-C534 OC 

0500 CO 

-3 00000 

0500 GO 

0622 CO 

0734 00 

0500 CO 



04231 
0423 3 

10355 
00000 
C4231 
00000 
00000 



RD NC. 

0767 
-0320 

0402 
-0100 

0500 
-0320 

0020 

0074 
-3 042 32 

560 CO 
-0600 

0600 

0622 

0734 
-0 7 54 

0074 

771 

0601 

0500 

0074 

0601 
-0501 



LI 
CO 
CO 
CO 
CO 
00 
CO 
CO 
GO 



CO 
00 
CO 
CO 
CO 
CO 
CO 
CC 
CO 
CO 
CO 
CO 



SP0189 
00022 
00514 
04233 
10307 
00000 
00514 
10355 
03104 
03161 
04233 
04225 
04226 
04226 
OOOOO 
00000 
10277 
00022 
04227 
04226 
10277 
04230 
04227 






4 


4 





4 
4 
4 



4 





BINARY CA 
10344 
10345 
10346 
10347 
10350 
1035 1 
10352 
10353 
10354 
1035 5 
10356 
10357 
1036C 



RD NO* 

-C534 

0402 

C1C0 

5 CO 

C734 

-0754 

0560 

0074 

0074 

-0534 

0020 

0500 

0020 



LISPO 
CO 4 
CC 4 
CO 
00 
00 4 
CO 4 
CO o 
GO 4 
CO 4 
CO 4 
GO 4 
GO 
GO C 



190 

04225 

OOOOO 

10357 

04227 

OOOOO 

OOOOO 

04230 

04471 

03117 

04224 

00001 

04225 

10354 



SU2 



SU1 



SU5 



SU4 



LXD 


X6,4 


CLA 


E 


rxL 


SU5+ 1,4,0 


CLA 


,4 


STD 


X6 


PAX 


♦ 4 


CLA 


,4 


ALS 


18 


ANA 


SDMASK 


SUB 


E 


TNZ 


SU2 


CLA 


,4 


ANA 


$DMASK 


TRA 


SU5+1 


rsx 


$SAV£,4 


TXL 


$END5,,X5+2 


LDQ 


£ 


STQ 


X2 


STZ 


X3 


STD 


X3 


PAX 


,4 


PXD 


,4 


TSX 


SU3,4 


ARS 


18 


STO 


X4 


CLA 


X3 


TSX 


SU3,4 


STO 


X5 


QRA 


X4 


LXD 


X2,4 


SUB 


.4 


TZE 


SU4 


CLA 


X4 


p-AX 


,4 


PXD 


,4 


LDQ 


X5 


TSX 


$C0NS,4 


TSX 


UNSAVE,4 


LXD 


XI, 4 


TRA 


1,4 


CLA 


X2 


TRA 


SU5 



TRA IF N P 



DAMN THE Q BIT 



D E 



SUBAIA E3 



SUBAIA E) IN ADDRESS PART 



SUBA <D E) 
SUBAIA £) SUBAtD 



E) 



APPEND(L1,L23= 

iLl=0 YIELDS L2,l YIELDS 













A 


HED 




10361 


-0100 


CO 





10364 


APPEND 


TNZ 


APNPI 


10362 


013 1 


CO 





OOOOO 




XCA 




10 363 


0020 


GO 


4 


00001 




TRA 


1,4 


10364 


-0 634 


CC 


4 


04110 


APNPi 


SXD 


AS1,4 


10 36 5 


0074 


00 


4 


03104 




TSX 


$SAVE,4 



CONS {CAR (LI), APPEND ( XDRR1 > ,L2) } ) 



LS047280 
LS047290 
LS047300 
LS047310 
LS047320 
LS047330 
LS047340 



LS047350 
LS047360 
LS047370 
LS047380 
LS047390 
LS047400 
LS047410 
LS047420 
LS047430 
LS047440 
LS047450 
LS047460 
LS047470 
LS047480 
LS047490 
LS047500 
LS047510 
LS047520 
LS047530 
LS047540 
LS047550 
LS047560 



LS047570 
LS047580 
LS047590 
LS047600 
LS047610 
LS047620 
LS047630 
LS047640 
LS047650 
LS047660 
LS047670 
LS047680 
LS047690 
LS047700 
LS047710 
LS047720 
LS047730 
LS047740 
LS047750 
LS047760 
LS047770 
LS047780 
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10366 -3 04113 

10367 -0734 GO 

10370 C500 CO 

10371 0601 CO 



03167 
4 00000 



00000 
04 1 1 1 



BINARY CARD NO. LISP0191 



10372 
10373 
10374 
10375 
10376 
10 37 7 
10400 
10401 



•0 3 20 
0074 
0131 
0534 

-0754 
00 74 

-0 5 34 
0020 



CO 
GO 
CC 

00 
CO 
00 
CO 
CO 



00514 
10361 
00000 
04111 
COOOO 
03117 
04110 
04471 
00514 



10402 
10403 
10404 
10405 
10406 
10407 
10410 
10411 

10412 
10413 
10 414 
10415 
10416 
10417 

ilNARY CA 
1042 
10421 
10422 
10423 
10424 
1042 5 
10426 
10427 
10430 
10431 

10432 
10433 
10434 



06 34 
-0600 
0560 
74 
0520 
002O 
0774 
C020 



00 
CO 
00 
CO 
CO 
00 
CO 
CO 



-3 00001 
0634 CO 
0622 CC 
-0534 CO 
-3 COO CO 
500 CO 



10410 
04201 
10412 
04756 
04201 
10432 
00000 
000Q1 

10413 
10430 
04200 
04201 
10435 
00000 



RD NO. 
734 
622 

-0754 
0131 

-0534 
0500 
C734 

-0754 
0774 
0020 



LISP0192 



CO 
CO 
CO 
CO 
00 
CO 
CO 
CO 
CC 
00 



COOOO 
04201 
COOOO 
00000 
C4200 
00000 
00000 
00000 
00000 
04471 



-0634 CO 4 02313 
0074 CC 4 02314 
542660600254 



10435 -0634 CO 4 02313 

10436 C074 CO 4 02314 

10437 542660600354 



DECM 



TXL 

PDX 0,4 
CLA 0,4 
STO CHR1 



ANA DECM 

TSX APPEND, 4 

XCA 

LXA CWR1.4 

PXD 0,4 

TSX UNSAVE,4 

LXD AS1.4 

TRA $CONS 

SYN $DMASK 



$END2,,CWRl+2 



SAVE 2 ITEMS 



PAIR 



PAIRX 



FARG 



HED 
SXA 
STQ 
LDQ 
TSX 
ZET 
TRA 
AXT 
TRA 

TXL 

SXA 
STD 
LXD 

TXL 
CLA 



PAX 
STD 
PXD 
XCA 
LXD 
CLA 
PAX 
PXD 
FARGX AXT 
TRA 



PERF 



HERS 



SXD 
TSX 
BCI 

SXD 
TSX 

BCI 



PAIR 



RECODED TO MAKE LISTS IN DOT NUTATION 



PAIRX,4 

LIS 

FARG 

MAPLIS.4 

LIS 

PERF 

*# ,4 

1,4 

*+l,,l 
FARGX, 4 
TEM 
LIS, 4 
P£RS,4,0 
0,4 



0,4 
LIS 
0,4 

TEM, 4 

0,4 
0,4 

0,4 

**, 4 

*CONS 

FIRST 

$ERRO 

$£RRO 

1,*F 

ERROR 

$ERR0 

$ERRO 

1,*F 



SAVE LINK IR 

ARG 2 

PICK UP FUNCTIONAL ARGUMENT 

LET MAPLLST DO THE CONSING 

TEST FOR ARG 2 GONE TO END 

DID NOT, GO TO ERROR 

RESTORE LINK IR 

EXIT 

PAIR FUNCTIONAL ARGUMENT FOR MAPLIST 

SAVE LINK IR 

SAVE ARGUMENT 

PICK UP 2ND ARG LIST 

GO IF NO MORE 2ND ARG 

NEXT WORD 



CAR 

SAVE COR 

CAR INTO DECREMENT 

INTO MQ 

LIST 1 

TAKE CAR OF LIST 



RESTORE LINK IR 



ARG LIST TOO SHORT ERROR 



R,4 
R + 1,4 
2* 



SAVE LINK IR 

GO TO ERROR 

FIRST ARG$ LIST TOO SHORT 



SECOND ARG LIST TOO SHORT 



R,4 
R + 1,4 
3* 



SAVE LINK IR 

GO TO ERROR 

SECOND ARG. LIST TOO SHORT 



LS047790 
LS047800 
LS047810 
LS047820 



LS047830 
LS047840 
LS047850 
LS047860 
LS047870 
LS047880 
LS047890 
LS047900 
LS047910 
LS047920 
LS047930 
LS047940 
LS047950 
LS047960 
LS047970 
LS047980 
LS047990 
LS048000 
LS048010 
LS048020 
LS048030 
LS048040 
LS048050 
LS048060 
LS048070 
LS048080 
LS048090 
LS048100 
LS048110 



LS048120 
LS048130 
LS048140 
LS048150 
LS048160 
LS048170 
LS048180 
LS048190 
LS048200 
LS048210 
LS048220 
LS048230 
LS048240 
LS048250 
LS048260 
LS048270 
LS048280 
LS048290 
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MAPCARR,F) 



= (L=C YIELDS 0, 
F(L) YIELDS 0, 
1 YIELDS MAPCARICDR(L),F} ) 













C HED 






1044C 


C100 


CO 


4 


00001 


MAPCAR TZ£ 


1,4 




10441 


-0634 


CO 


4 


04161 


SXD 


RET, 4 




10442 


00 74 


CO 


4 


03104 


TSX 


$SAVE,4 




10443 


-3 04165 





03165 


TXL 


$END3,,F+2 




10444 


-0600 


CO 





04163 


STQ 


F 




10445 


0601 


CO 





04162 


MCPR STO 


L 




8INARY CARD NO. 


LISH0193 








10446 


-0534 


GO 


4 


04163 


LXD 


F,4 




10447 


3 00012 


4 


10452 


TXH 


*+3,4, 10 




1045C 


0074 


CO 


4 


04163 


TSX 


F,4 




10451 


0020 


CO 





10455 


TRA 


# + 4 




10452 


-06 34 


CO 


4 


10454 


SXD 


* + 2,4 




10453 


0C74 


CO 


4 


13000 


TSX 


CCMPAT,4 




10454 


COOCO 





00001 




i, »** 




10455 


-0534 


00 


4 


04162 


LXD 


L,4 




10456 


C5C0 


CC 


4 


00000 


CLA 


0,4 




1C457 


-0 7 34 


CO 


4 


00000 


PDX 


,4 




10460 


-0754 


CO 


4 


00000 


PXD 


,4 




10461 


-0100 


CO 





10445 


TNZ 


MCPR 




10462 


0074 


CO 


4 


03117 


RTRN TSX 


0NSAVE,4 




1C463 


-0 534 


CO 


4 


04161 


LXD 


RET, 4 




10464 


0020 


CO 


4 


00001 


TRA 

R HED 


1,4 

MAPCCN(L,FJ= 
IL=0 YIELDS 0,,1 


YIELDS 


10465 


CICO 


CC 


4 


00001 


MAPCON TZE 


1,4 




10466 


-0 634 


CC 


4 


04164 


SXD 


HCN5,4 




1046 7 


0074 


CO 


4 


03104 


TSX 


$SAVE,4 




10470 


-3 04171 





03163 


TXL 


$END4, ,MCN2+2 




10471 


0601 


CC 





04166 


STO 


MCN3 




10472 


-0600 


CO 





04165 


STQ 


MCN4 




10473 


-0534 


GO 


4 


04165 


LXD 


MCN4,4 




BINARY CARD NO. 


LISP0194 








10474 


3 COO 12 


4 


10477 


TXH 


#+3,4, 10 




1047 5 


CO 74 


CO 


4 


04165 


TSX 


MCN4,4 




10476 


20 


CO 





10502 


TRA 


* + 4 




10477 


-0634 


CO 


4 


10501 


SXD 


* + 2,4 




10500 


74 


CO 


4 


13000 


TSX 


C0MPAT,4 




10501 


00000 





00001 




1* »** 




10502 


601 


CO 





04167 


STO 


MCN2 




1050 3 


-0534 


CO 


4 


04166 


LXD 


MCN3,4 




10504 


05 00 


CO 


4 


OOOQO 


CLA 


0,4 




10 50 5 


-0320 


CO 





00514 


ANA 


MCDM 




10506 


C56C 


CC 


c 


04165 


LDQ 


MCN4 





SAVE 3 ITEMS 



NCONC { F ( L ) ,MAPCON ( CDR { L ) , F ) U 



SAVE 4 ITEMS 



LS048300 
LS048310 
LS048320 
LS048330 
LS048340 
LS04835O 
LS048360 
LS048370 
LS048380 
LS048390 
LS048400 
LS048410 
LS048420 
LS048430 
LS048440 



LS048450 
LS048460 
LS048470 
LS048480 
LS048490 
LS048500 
LS048510 
LS048520 
LS048530 
LS048540 
LS048550 
LS048560 
LS048570 
LS048580 
LS048590 
LS048600 
LS048610 
LS048620 
LS048630 
LS048640 
LS048650 
LS048660 
LS048670 
LS048680 
LS048690 



LS048700 
LS048710 
LS048720 
LS048730 
LS048740 
LS048750 
LS048760 
LS048770 
LS048780 
LS048790 
LS048800 
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1C507 
10510 
10511 
10512 
10513 
10514 



0074 
0131 
C500 
C074 
-0534 
0Q20 



CC 
CO 
CC 

CO 
CC 
CC 



10465 

coooo 

04167 
03117 
04164 
10515 
00514 



10515 
10516 
10517 
10 520 
10521 



-G1C0 
0131 
0020 
0634 
0601 



CO 
CO 

CO 
GO 
CG 



10520 
00000 
G0001 
10531 

10533 



BINARY CARD NO. LISP0195 



10522 
10523 
10524 
10525 
10526 
10527 
10530 
10 531 
10532 



-0734 
0500 
-0320 
-C1CC 
0131 
0622 
0500 
774 
0020 



00 
CO 

CO 
CO 
GO 
CO 
CC 
CO 
CO 



4 COOOO 
4 00000 
00514 
10522 
CCOQO 



4 

4 
4 



10533 COOCC 



00000 
10533 
COOOO 
00001 
00514 
COOOO 



10534 
10535 
10536 
10537 
1054C 
10541 
10542 
1054 3 
10544 
10545 
10546 
1054 7 



-0634 CO 
-G6G0 CO 
-C534 CO 
•G634 CO 

1 77777 
•0634 CO 
•C734 

0020 

G5G0 

0601 

0634 

0500 



00 
CG 
CO 

CO 
CO 
CC 



10564 
04062 
04062 
10552 
10541 
10551 
GOOOO 
10546 
04062 
0406 3 
4 04062 
4 OCOOO 



BINARY CARD NO. LISP 0196 

10550 0734 00 4 OOGQO 

10551 -3 OOOCO 4 10553 
1C552 -3 COOOO 4 10557 

10553 -C734 CO 4 OOOQO 

10554 3 GOOCO 4 10544 



MC.DM 



7SX MAPC0N,4 

XCA 

CLA MCN2 

TSX UNSAVE,4 

LXD MCN5,4 

TRA $NCONC 

SYN $DMASK 

FUNCTION NCONC 



A2 



Al 
// 



R 



NGONC 



NCI1 



HED 
TNZ 
XCA 
TRA 
SXA 
STO 



L1=0 YIELDS RETURNIL2) 

M=L1 

CDR(M)=0 YIELDS GO Al 

M=CDRIM) 

GO A2 

CDRiM)=L2 

RETURN1L1) 



NCI1 
1,4 



NCS3 



NCS1,4 



SAVE LINK IR 



RESTORE LINK IR 



NCI2 PDX 0,4 

CLA 0,4 

ANA NCDM 

TNZ NCI 2 

XCA 

STD 0,4 

CLA NCS3 
NCSi AXT **,4 

TRA 1,4 
NCCM SYN $0MASK 
NCS3 

REMPRP REMOVES THE PROPERTY GIVEN BY THE MQ FROM THE 
OBJECT GIVEN BY THE AC 
REMPRP SXD RMPRX,4 

STQ $ARG2 

LXD $ARG2,4 

SXD RMPRT+1,4 

TXI *+l,4,-l 

SXD RMPRT,4 

PCX 0,4 

TRA RMPR2 
RMPRl CLA $ARG2 

STO $ARG3 
RMPR2 SXD $ARG2,4 

CLA 0,4 



PAX 0,4 
RMPRT TXL *+2,4,*» 

TXL RMPRE,4,«* 

PDX 0,4 

TXH RMPRl, 4,0 



LS048810 
LS048820 
LS048830 
LS048840 
LS048850 
LS048860 
LS048870 
LS048880 
LS048890 
LS048900 
LS048910 
LS048920 
LS048930 
LS048940 
LS048950 
LS048960 
LS048970 
LS048980 
LS048990 
LS049000 
LS049010 



LS049020 
LS049030 
LS049040 
LS049050 
LS049060 
LS049070 
LS049080 
LS049090 
LS049100 
LS049110 
LS049120 
LS049130 
LS049140 
LS049150 
LS049160 
LS049170 
LS049180 
LS049190 
LS049200 
LS049210 
LS049220 
LS049230 
LS049240 
LS049250 
LS049260 



LS049270 
LS049280 
LS049290 
LS049300 
LS049310 



m m m m m mmmmmmmmm 



mmmm 
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10555 


-C534 GO 


4 


10564 


RMPRO 


LXD 


RMPRX, 4 


10556 


0020 CO 


4 


00001 




TRA 


1.4 


10 55 7 


-C734 CO 


4 


OOOQO 


RMPRE 


PDX 


0,4 


1056C 


C500 CO 


4 


OOOQO 




CLA 


0,4 


10561 


-0534 CC 


4 


04063 




LXD 


$ARG3,4 


10562 


0622 CO 


4 


00000 




STO 


0,4 


1056 3 


0020 CC 





10546 




TRA 


RMPR2 


10564 


cooco 





00000 


RMPRX 







PRINAR 



USES WOT AND 
CALLING SEQ 
TSX 



FUN 













P 


HED 




10565 


0634 


CC 


4 


10614 


PRINAR 


SXA 


PAS1,4 


10566 


0634 


CO 


2 


10615 




SXA 


PAS2,2 


10567 


0601 


CC 





04202 




STO 


PAS3 


10570 


-0600 


CC 


C 


04203 




STO 


PAS4 


10571 


5 GO 


GO 


4 


00002 




CLA 


2,4 


10572 


0601 


CC 





10621 




STO 


PALI 


1057 3 


5 00 


CO 


4 


C0003 




CLA 


3,4 


10574 


0601 


CC 





10622 




STO 


PAL2 


10575 


5 GO 


CO 


4 


00001 




CLA 


1.4 


INARY CARD NO. 


LISP0197 








10576 


0734 


CO 


2 


00000 




PAX 


0,2 


10577 


74 


CO 


4 


01527 




TSX 


OUTPUT, 4 


10600 


000 CO 


C 


C0365 






BCDOUT 


10601 


C 00011 





10617 






PAL3,,PAL4- 


10602 


0500 


CC 





04202 




CLA 


PAS3 


10603 


0074 


CO 


4 


05342 




TSX 


$PRINT,4 


10604 


-2 G0001 


2 


10607 




TNX 


PAP3,2,1 


10605 


5 GO 


CO 





04203 




CLA 


PAS4 


10606 


74 


CO 


4 


05342 


PAP2 


TSX 


$PRINT,4 


10607 


CC74 


CO 


4 


01527 


PAP3 


TSX 


OUTPUT, 4 


1061C 


G OOOCO 





00365 






BCDOUT 


10611 


CO0G1 





10630 






PAL5,,1 


10612 


G5C0 


CC 





04202 




CLA 


PAS3 


10613 


0560 


CO 





04203 




LDQ 


PAS4 


10614 


0774 


CO 


4 


00000 


PAS1 


AXT 


**, 4 


10615 


774 


CC 


2 


OOOQO 


PAS2 


AXT 


*#,2 


10616 


0020 


CO 


4 


00004 




TRA 


4,4 


10 617 


006O26644523 


PAL3 


BCD 


20 FUNCTION 


10620 


6 3 314 64 56060 








10621 


OOOCO 





00000 


PALI 






1062 2 


OOOCO 





00000 


PAL2 






1062 3 


603021626022 




BCD 


5 HAS BEEN 



PRINT 
IS.. 

PRINAR, 4 
NOARG 

BCD2 NAME OF 
(RETURN) 
ARGUMENTS NOT ACCEPTABLE TO PRINT WILL CAUSE 
» HAS BEEN CRIPPLED TO PRINT ONLY FIRST 2 ARGUMENTS 



SAVE INDEX REGISTERS 



ERRORS 



PAL3 



RESTORE INDEX REGISYERS 



LS049320 
LS049330 
LS049340 
LS049350 
LS049360 
LS049370 
LS049380 
LS049390 
LS049400 
LS049410 
LS049420 
LS049430 
LS049440 
LS049450 
LS049460 
LS049470 
LS049480 
LS049490 
LS049500 
LS049510 
LS049520 
LS049530 
LS049540 
LS049550 
LS049560 
LS049570 
LS049580 
LS049590 
LS049600 
LS049610 
LS049620 



LS049630 
LS049640 
LS049650 
LS049660 
LS049670 
LS049680 
LS049690 
LS049700 
LS049710 
LS049720 
LS049730 
LS049740 
LS049750 
LS049760 
LS049770 
LS049780 
LS049790 
LS049800 

LS049810 
LS049820 
LS049830 
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BINARY CARD NO. LISP0198 
10624 252545602545 
632551252473 
602151276444 
254563623333 



10625 
10626 
10627 
10630 
10630 



60606C606060 



PAL4 
PAL5 



BSS 
BCD 1 



LS049840 
LS049850 



mmmmmm 



MR 
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EJECT 



10631 
10632 
10633 
10634 
10635 
10636 
10 63 7 

1064C 
10641 
10642 
10643 
10644 
10645 
10646 
10647 

1065C 
10651 



0634 
0131 
0622 
0402 
0622 
0131 
-0734 



CO 
CO 
CO 
CO 
CO 
CO 
CO 



•3 OOOCO 
0500 CO 
0734 00 

■3 OOOCO 
3 OOOCO 

-0320 GO 
534 CO 
0020 CO 



10705 
00000 
10644 
00476 
10643 
00000 
00000 

10650 
00000 
00000 
106 37 
10637 
00514 
10705 
00001 



-0754 CO 00000 
-0534 CO 4 04063 



BINARY CARD NO. L1SP0199 



10652 
10653 
10654 
1065 5 
10656 
10657 
10660 
10661 



3 00012 
0534 CO 
20 
600 
0560 
0754 
534 
0020 



CO 
CO 
CO 
CO 
CO 
CO 



10655 
10705 
04063 
04063 
04063 
00000 
10705 
15721 



PROP 



SASL1 



SASP2 
SASP1 



HED 



SXA 
XCA 
STD 
SUB 
STD 
XCA 
POX 

TXL 
CLA 
PAX 
TXL 
TXH 
ANA 
LXA 
TRA 



SASP3 PXD 
LXD 



TXH 
LXA 
TRA 
STZ 
LCQ 
PXD 
LXA 
TRA 



PROP AND SASSOC 

SPECIALIZED SEARCH ROUTINES WHICH SHARE STORAGE 



PR0PIC,P,U) 
= 1NULLMC) YIELDS U, CAR(G) = P YIELDS CDRJO), 
T YIELDS PROP{CDR(Cl f P„U>> 



SAST1,4 

SASP1 
SASQ1 
SASP2 

0,4 

INSERT TXH INSTRUCTION 

SASP3,4,0 

0,4 

0,4 

SASL1,4,** 

SASL1,4,»* 

SASDM 

SAST1,4 
1,4 

0,0 

$ ARG3,4 



SAVE LINK IR 
PROPERTY TO AC 
SET TXH 



SET TXL 
OBJECT TO AC 
L = CDRILJ 
HERE IF MILL 
NULLJL) 
CWR(L) 
CARIL) 



IS NAOE N ON- ZERO 



RESTORE LINK IR 



CLEAR 
INSPECT 



FUNCTIONAL ARGUMENT 



•+3,4,10 

SAST1,4 

IARG3 

$ARG3 
$ARG3 
,4 
SAST1,4 

SAPPLY 



SKIP IF NOT A TXL 



RESTORE LINK IR 



SASSGCCO»A f U) 
= (NULL(A) YIELDS U, CAAR(A) YIELDS 
T YIELDS SASSOC i C,CDR( A ),U):) 



CAR1A), 



10662 


06 34 


CO 


4 


10705 


SASSOC 


SXA 


SAST1,4 


10663 


06 34 


CO 


2 


10704 




SXA 


SAST2,2 


10664 


0634 


CO 


1 


10702 




SXA 


SAST3.1 


10665 


0622 


CO 


c 


10701 




STD 


SASP7 


10666 


0402 


CO 





00476 




SUB 


SASQ1 


10667 


0622 


CO 





10700 




STO 


SASP6 


10670 


0131 


CO 





00000 




XCA 




10671 


-0 7 34 


CO 


4 


00000 




POX 


0,4 


1067 2 


-3 OOOCO 


4 


10707 


SASP5 


TXL 


SASP4,4,0 
















INSERT TXH 



SAVE 
SAVE IR 
SAVE IR 
SET TXH 



LINK 
2 
1 



IR 



INSTRUCTION 



SET TXL 
PAIR LIST TO 
TO INDEX 4 
NULL LA) 
HERE IF NILL 



AC 



IS NADE NON-ZERO 



LS049860 
LS049870 
LS049880 
LS049890 
LS049900 
LS049910 
LS049920 
LS049930 
LS049940 
LS049950 
LS049960 
LS049970 
LS049980 
LS049990 
LS050000 
LS050010 
LS050020 
LS050030 
LS050040 
LS050050 
LS050060 
LS050070 
LS050080 
LS050090 
LS050100 
LS050110 
LS050120 
LS050130 
LS050140 
LS050150 



LS050160 
LS050170 
LS050180 
LS050190 
LS050200 
LS050210 
LS050220 
LS050230 
LS050240 
LS050250 
LS050260 
LS050270 
LS050280 
LS050290 
LS050300 
LS050310 
L SO 5 0320 
LS050330 
LS050340 
LS050350 
LS050360 
LS050370 
LS050380 
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10673 


0500 


CO 


4 


GOOOO 




CLA 


0,4 




10674 


-0734 


CO 


4 


COOOO 




PDX 


»4 




10675 


734 


CO 


2 


COOOO 




PAX 


,2 




10676 


0500 


CO 


2 


00000 




CLA 


,2 




10677 


0734 


CO 


1 


OGOOO 




PAX 




0,1 


BINARY CARD NO. 


LISP 0200 










10700 


-3 OOOCO 


1 


10672 


SASP6 


TXL 




SASP5,1,*» 


10701 


3 COOCO 


1 


10672 


SASP7 


TXH 




SASP5,1,»* 


10702 


774 


00 


1 


00000 


SAST3 


AXT 




** , 1 


10703 


-0754 


00 


2 


00000 




PXD 




0,2 


10704 


0774 


CO 


2 


00000 


SAST2 


AXT 




**,2 


10705 


0774 


CO 


4 


00000 


SAST1 


axf 




*» ,4 


10706 


0C20 


CO 


4 


00001 




TRA 


1.4 




10707 


0534 


CO 


2 


10704 


SASP4 


LXA 




SAST2,2 


1071C 


0534 


CO 


1 


10702 




LXA 




SAST3,1 


10711 


0020 


00 





10650 
0C476 
00514 


SASQl 
SASDM 


TRA 
SYN 
SYN 




SASP3 

$QD1 
S.DMASK 


10712 


0100 


00 


4 


00001 


SPREAD 


TZE 




1*4 


10713 


6 34 


CO 


4 


10752 




SXA 




SPRX,4 


10714 


-0734 


CO 


4 


GOOQO 




PDX 




0,4 


10715 


0500 


GO 


4 


00000 




CLA 




0,4 


10716 


0560 


CO 





00424 




LDQ 




*ZERO 


10717 


-0 765 


CO 


c 


C0022 




LGR 




18 


10720 


100 


CC 


c 


10751 




TZE 




NLY 


10721 


7 34 


CO 


4 


OGOOO 




PAX 




0,4 


10722 


C500 


CO 


4 


OGOOO 




CLA 




0,4 


10723 


0734 


CO 


4 


COOOO 




PAX 




0,4 


10724 


-0 320 


CO 





00514 




ANA 




$DMASK 


10725 


0100 


CO 





10750 




TZE 




TWA 


BINARY CARD NO. 


LISPG2C1 










10726 


-0 634 


CO 


4 


04062 




SXO 




$ARG2,4 


10727 


0634 


CO 


2 


10746 




SXA 




SPRY,? 


1073G 


0634 


CO 


1 


10745 




SXA 




SPRZ,1 


10731 


07 74 


CC 


1 


0CO22 




AXT 




18,1 


10 732 


-0734 


00 


4 


COOOO 




PDX 




0,4 


10733 


-3 COOCO 


4 


10745 


SPP1 


TXL 




SPRZ,4,0 


10734 


C5C0 


CC 


4 


COOOO 




CLA 


,4 




10735 


-0 7 34 


CO 


4 


00000 




PDX 


.4 




10736 


0734 


CO 


2 


COOOO 




PAX 


,2 




10 737 


-0754 


CO 


2 


00000 




PXD 


,2 




1G74C 


0601 


CC 


1 


04105 




STO 




$ARG20+1,1 


10 741 


2 000 Ci 


; 1 


10733 




TIX 


SPP1,1,1 


10742 


-0634 


CO 


4 


02313 


SPPERR 


SXD 




$ERR0R,4 


10743 


0074 


CO 


4 


02314 




TSX 


$ERRCR+1,4 


10744 


542160600754 




BCI 




1,*A 7* 


10745 


0774 


CO 


1 


00000 


SPRZ 


AXT 




**,1 


10746 


0774 


CO 


2 


GOOQO 


SPRY 


AXT 




**,2 


10747 


-C534 


CO 


4 


04O62 




LXD 




$ARG2,4 


10750 


-0 754 


GO 


4 


00000 


TWA 


PXD 




0,4 



CWR(A) 
CDRU) 
CAR(A) 

CAAR(A) TO INDX REGISTER 



LOOK FOR ITEM 

FOUND ITEM, RESTORE IR 
POINTER TO WORD 
RESTORE LR 2 
RESTORE LINK IR 



RE STOKE IR 2 
RESTORE IR 1 
EXECUTE SASSOC EXIT 



EXIT IF AGLIST IS NULL 

SAVE LINK IR 

POINTER TO ARG LUST 

FIRST WORD 

ZERO THE MQ 

CAR TO GOft OF MQ 

GO IF A SINGLE ARGUMENT 

POINTER TO NEXT WORD 

NEXT WORD 

POINTER TO ARGUMENT 

KASK OUT ALL BUT DECREMENT 

GO IF 2 ARGUMENTS 



PUT AWAY 

SAVE INDEX I AND 2 

20 IS MAX NO OF ARCS 
REST OF ARG LIST TO IR 4 
GO IF END OF LIST 



TOO MANY ARGUMENTS SPREAD*U 

RESTORE IR 1 
DITTO IR 2 
ARG 2 

PUT I,N DECREMENT AC 



LS050390 
LS050400 
LS050410 
LS050420 
LS050430 



LS050440 
LS050450 
LS050460 
LS050470 
LS050480 
LS050490 
LS050500 
LS050510 
LS050520 
LS050530 
LS050540 
LS050550 
LS050560 
LS050570 
LS050580 
LS050590 
LS050600 
LS050610 
LS050620 
LS050630 
LS050640 
LS050650 
LS050660 
LS050670 
LS050680 
LS050690 



LS050700 
LS050710 
LS050720 
LS050730 
LS050740 
LS050750 
LS050760 
LS050770 
LS050780 
LS050790 
LS050800 
LS050810 
LS050820 
LS050830 
LS050840 
LS050850 
LS050860 
LS050870 
LS050880 
LS050890 



^» 
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10751 


C131 


GO 





00000 


NLY 


XCA 




10752 


0774 


CO 


4 


GOOOO 


SPRX 


AXT 


*«,4 


10753 


CC20 


CO 


4 


00001 




TRA 


1.4 



ARG 1 AND 2 TO RIGHT 
RESTORE LINK IR 
EXIT 



REGISTERS 



FUNCTION ATTRIB(CL) 

ATTRIB10,L)=/ COR(C)=0 YIELDS (L REPLACES CDR(OJ) 
ELSE ATTRIBtCDR10),L) / 



HED 



INARY CARD NC. 


LISP 020 2 








10754 


06 34 


CO 


4 


10766 


ATTRI8 


SXA 


ATl f 4 


10755 


-C100 


CO 


c 


10760 




TNZ 


ATRB 


10 75 6 


0131 


CO 





OOOOC 




XCA 




10757 


GO 20 


CO 


4 


000Q1 




TRA 


1,4 


1076C 


-0734 


CO 


4 


GOOOO 


ATRB 


PDX 


,4 


10761 


0500 


CO 


4 


OOOQO 




CLA 


t4 


10 76 2 


-0320 


CO 





00514 




ANA 


DMASK 


10763 


-0100 


GO 





10760 




TNZ 


ATRB 


10764 


0131 


CO 





00000 




XCA 




10765 


6 22 


CO 


4 


OOOQO 




STD 


,4 


10766 


0774 


00 


4 


OOOQO 


ATI 


AXT 


**,4 


10767 


0020 


CO 


4 


C0001 




TRA 


1,4 










00514 


DMASK 


SYN 


$DMASK 



GO IF BEGINNING OF LIST 
OTHERWISE EXIT WITH ARG 



CDR(O) 

ARG 2 TO AC 



NOT FUNCTION 













R 


HED 




10770 


0100 


CO 


C 


10773 


NGTS 


TZE 


*+3 


10 771 


-0754 


GO 





GOOOO 




PXD 


#0 


10772 


0020 


CO 


4 


00001 




TRA 


1,4 


10773 


500 


CO 





00476 




CLA 


NCTC1 


10774 


0020 


00 


4 


00001 




TRA 


1,4 










00476 


N0TC1 


SYN 


$GD1 



X PART OF THE FIRST ARG 



10775 


0634 


CO 4 11002 


R PL AC A 


SXA 


REPL, 4 


10776 


-0 734 


CO 4 COOOO 




PDX 


0,4 


10777 


-0763 


00 00022 




LGL 


18 


11000 


0621 


CO 4 00000 




STA 


0,4 


11001 


-0754 


CO 4 00000 


RPLEX 


PXD 


0,4 


RY CARD NC. 


LISP0203 








11002 


0774 


CO 4 OOOOC 


REPL 


AXT 


**,4 


1100 3 


0020 


CO 4 0000,1 




TRA 


1,4 


11004 


0634 


CO 4 11002 


RPLACD 


SXA 


REPL, 4 


11005 


-0734 


00 4 00000 




PDX 


0,4 


11006 


-0620 


CO 4 00000 




SLQ 


0,4 


1100? 


0020 


CO 11001 




TRA 


RPLEX 


11010 


6 34 


CO 4 11002 


RPLACW 


SXA 


REPL, 4 


11011 


-0734 


CO 4 COOOO 




PDX 


0,4 



THE RPLACX FUNCTIONS REPLACE THE 
WITH THE SECOND ARGUMENT 

THE VALUE OF RPLACA, RPLACD, AND RPLACW IS ZERO 
S HED 

REPL, 4 
0,4 
18 
0,4 

ARG1 TO AC AS ANSWER 



RESTORE LINK iR 



EXIT 



LS050900 
LS050910 
LS050920 
LS050930 
LS050940 
LS050950 
LS050960 
LS050970 
LS050980 



LS050990 
LS051000 
LS051010 
LS051020 
LS051030 
LS051040 
LS051050 
LS051060 
LS051070 
LS051080 
LS051090 
LS051100 
LS051110 
LS051120 
LS051130 
LS051140 
LS051150 
LS051160 
LS051170 
LS051180 
LS051190 
LS051200 
LS051210 
LS051220 
LS051230 
LS051240 
LS051250 
LS051260 
LS051270 
LS051280 
LS051290 
LS051300 
LS051310 
LS051320 



LS051330 
L SO 5 1340 
LS051350 
LS051360 
LS051370 
LS051380 
LS051390 
LS051400 
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11012 -0600 CG 4 00000 

11013 0020 CC 11001 



STQ 
TRA 



0,4 



RPLEX 



EXIT 



OBJECT GENERATOR 



11014 


0634 


CC 


4 


11065 


GENSYM 


SXA 


GENX,4 


11015 


-C5CG 


GO 





11070 




CAL 


DIGIT 


11016 


0114 


06 





06125 




CVR 


BCDADUC6 


11017 


-0130 


GO 





00000 




XCL 




11020 


-0600 


CO 





11070 




STQ 


DIGIT 


11021 


07 54 


CO 





00000 




PXA 


0,0 


11022 


774 


GO 


4 


00001 


GUANT 


AXT 


1,4 


11023 


-3 OOOCC 


4 


11027 




TXL 


GENA,4,0 


11024 


3 00005 


4 


11047 




TXH 


GENB, 4, 5 


11025 


-0773 


CO 





0Q006 


"It 


RQL 


6 


11026 


2 GOO 01 


4 


11025 




T1X 


•-1,4,1 


11027 


06 34 


CO 


2 


11046 


GEN A 


SXA 


GENC2 


BINARY CARD NG. 


LISP0204 








11030 


0534 


00 


2 


11022 




LXA 


QUANT, 2 


11031 


0534 


CC 


4 


11022 




LXA 


QUANT, 4 


11032 


1 00001 


4 


11033 


■ft 

GEND 


TXI 


•+1.4,1 


11033 


-0763 


00 





00006 




LGL 


6 


11034 


-0100 


CO 





11036 




TNZ 


GENE 


11035 


-3 C00C5 


4 


11032 




TXL 


GEND, 4,5 


1 1 03 6 


3 C00C5 


4 


11042 


GENE 


TXH 


GENF, 4, 5 


11037 


-0763 


CO 





00006 




LGL 


6 


1I04C 


1 00001 


2 


11U41 




TXI 


* + l,2,l 


11041 


1 00001 


4 


11036 




TXI 


GENE, 4,1 


11042 


0560 


CO 


C 


00525 


It 

GENF 


LDQ 


SEVENS 


11043 


3 00004 


2 


11046 




TXH 


GENQ, 2,4 


11044 


-0763 


CC 


C 


00006 




LGL 


6 


11045 


1 00001 


2 


1104 3 




TXI 


GENF+1,2,1 


11046 


0774 


CO 


2 


OOOQG 


GENQ 


AXT 


0,2 


11047 


-0501 


CC 





11067 


GENB 


ORA 


LETTR 


11O5 


-0130 


00 





COOOO 




XCL 




11051 


0131 


CO 





00000 




XCA 




11052 


00 74 


CO 


4 


04451 




TSX 


$C0NSW,4 


11053 


0560 


CO 





00424 




LDQ 


GENZ 


11054 


0074 


GO 


4 


04471 




TSX 


$C0NS,4 


11055 


560 


CO 





00424 




LOQ 


GENZ 


BINARY CARD NO. 


LISP 0205 








1105 6 


CG74 


GO 


4 


04471 




TSX 


$C0NS,4 


11057 


0131 


CO 





COOOO 




XCA 




11060 


0500 


CO 





00541 




CLA 


GENPN 


11061 


0074 


CO 


4 


04471 




TSX 


SCONS, 4 


11062 


0131 


CO 





OOOQO 




XCA 





SAVE LINK IR 



LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 
LS05 



1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 



LS051610 
LS051620 
LS051630 
LS051640 
LS051650 
LS051660 
LS051670 
LS051680 
LS051690 
LS051700 
LS051710 
LS051720 
LS051730 
LS051740 
LS051750 
LS051760 
LS051770 
LS051780 
LS051790 
LS051800 
LS051810 
LS051820 
LS051830 
LS051840 
LS051850 
LS051860 



LS051870 
LS051880 
LS051890 
LS051900 
LS051910 
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11063 
11064 
11065 
11066 



11067 
1107C 



11071 
11072 
11073 
11074 
11075 
11076 
11077 
11100 
11101 
1110 2 
1110 3 



C5C0 CC 00514 

0074 CC 4 04471 

0774 CC 4 00000 

CC20 CO 4 C0001 

00424 

00541 

00514 

27CO0CGOOGOO 

OOGOOCOOOOOO 



06 34 CC 2 
0634 CO 4 
0100 CO 
0560 CO 
0074 CO 4 
•0734 CO 
0500 CO 
7 34 CO 
560 CO 
7 74 00 



4 
4 
4 
4 
2 



7 54 00 



11126 
11127 
11132 
00541 
12762 
00000 
00000 
CQOQO 
00000 
00000 
OOOQO 



GENX 

GENZ 

GENPN 

GENC 

LETTR 

DIGIT 



CLA 
TSX 
AXT 
TRA 
SYN 
SYN 
SYN 
BCI 
BCI 



1,4 



GENC 

$C0NS,4 

»**4 

$ZERO 

PNAMED 

$DMASK 

1,GOOOOO 

1,000000 



RESTORE LINK 1R 



* 

» 
* 

SYMNAM 



SYMNAM ALLOWS SPECIFICATION OF A HEADING WORD OF FROM TO 6 
CHARACTERS FOR THE SYMBOLS GENERATED BY GENSY<M. 



GENM 



SXA 
SXA 
TZE 
LDQ 
TSX 
PDX 
CLA 
PAX 
LDQ 
AXT 
PXA 



GENL+1,2 
GENL+2,4 

GENN 

GENPN 

C$GET»4 

0,4 

0,4 

0,4 

0,4 

0,2 

0,0 



LS051920 
LS051930 
LS051940 
LS051950 
LS051960 
LS051970 
LS051980 
LS051990 
LS052000 
LS052010 
LS052020 
LS052030 
LS052040 
LS052050 
LS052060 
LS052070 
LS052080 
LS052090 
LS052100 
LS052110 
LS052120 
LS052130 
LS052140 
LS052150 
L SO 52 160 
LS052170 



BINARY CARD NO. LISP0206 



11104 -0763 CO 

11105 0402 CO 

11106 0100 CO 
1110? 3 0OOC5 

11110 1 000C1 

11111 0634 CO 

11112 C560 CO 

11113 0754 CO 

11114 -0 763 CO 

11115 2 00OC1 



11116 
11117 
1112 
11121 
11122 
1112 3 
1112 4 
11125 
11126 
1112 7 
11130 
11131 



CO 
CO 
CO 
CO 
CO 



00006 

0044 7 

11111 

2 11111 

2 11103 

2 11022 
4 OOOQO 
COOOO 
00O06 
2 11114 



535 CO 

1 000C6 
C560 CO 

•3 GOOCC 
-07H3 GO 

2 00-001 
0602 CO 
0600 
0774 
774 
7 54 
C020 



11022 
11120 
00424 
11124 
00OO6 
11122 
11067 
11070 
COOOO 
00000 
OOOQO 
00001 



ft 

GENP 



GENL 



LGL 
SUB 
TZE 
TXH 
TXI 

SXA 
LDQ 
PXA 
LGL 
TIX 

LAC 
TXI 
LDQ 
TXL 
LGL 
TIX 
SLW 
STZ 
AXT 
AXT 
PXA 
TRA 



6 

$QQ77 
GENP 

GENP, 2, 5 
GENM, 2, 1 

QUANT, 2 

0,4 

0,0 

6 

*-l,2,l 

QUANT, 2 

*+l,2,6 

GENZ 

*+3,2,0 

6 

— 1,2,1 

LETTR 

DIGIT 

**,2 

**,4 

0,0 

1.4 



LS052180 
LS052190 
LS052200 
LS052210 
LS052220 
LS052230 
LS052240 
LS052250 
LS052260 
LS052270 
LS052280 
LS052290 
LS052300 
LS052310 
LS052320 
LS052330 
LS052340 
LS052350 
LS052360 
LS052370 
LS052380 
LS052390 
LS052400 
LS052410 
LS052420 
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INARY CARD NO. 


LISPG20 7 








1113 2 -0 7 54 


CO 00000 


GENN 


ZAC 




1113 3 621 


CO 11022 




STA 


QUANT 


11134 601 


CO 11067 




STO 


LETTR 


11135 020 


CO 11125 




TRA 


GENL 



FUNCTION TO SET MODE TO TS CR NO 
TYPEINIX.) TURNS OFF TS MODE IF X IS 
IS ACTIVATED. WHEN IMS MODE, LISP 
ABBREVIATES ITS OUTPUT. 



NIL-*- OTHERWISE, 
SIGNIFICANTLY 



TS NODE 



11136 
11137 



6G1 
CO 20 



CC 
CO 



00615 
00001 



TIMEST 



STO 
TRA 



$TSIND 
1,4 



LS052430 
LS052440 
LS052450 
LS052460 
LS052470 
LS052480 
LS052490 
LS052500 
LS052510 
LS052520 
LS052530 
LS052540 
LS052550 
LS052560 



6 
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1I14C 
11141 
11142 
1114 3 
11144 
11145 
11146 
11147 
11150 
11151 
11152 
11153 
11154 
11155 
11156 
11157 



C074 CG 4 
C OOOCO 
00016 
0G2O CO 
00 20 GO 
0522 CO 
0020 CO 
5 22 CO 

■0500 GO 
0602 CC G 
C560 CC 

•C500 CO 

-0763 CO 
0774 CO 4 

-0340 CO 4 
0020 CO 



11140 
01170 
00000 
005 77 
11171 
11377 
01721 
11150 
01715 
12167 
00 5 76 
00601 
00600 
00006 
00036 
11252 
11161 



BINARY CARD NO- LISP0208 



11160 
11161 
11162 
1116 3 
11164 
11165 
11166 
11167 
11170 

11171 
11172 
11173 
11174 



0C2O CO 

2 C00C2 

3 OOOCO 

eso2 cc 

C6G1 CC 
0074 00 
-0 GOOCC 
00017 
0020 CO 



00 74 CC 4 
COOCC 
00011 
0020 CO 



11175 
11156 
11140 
11162 
11162 
01527 
00365 
00576 
11140 

01527 

00365 
11276 
11152 



TTL OVERLORD 

* OVERLORD THE TAPE HANOI 

* 1961 BY D. J. 

* 

* OVERLORD DIRECTION CARDS AR 

* FIELD BEGINNIN 

* ONE {USE NO TAPES 

* SET { SAVE RESULTS 
TST (GET NEW CORE 
TEST (SANE AS ABOVE 
FIN (ALL DONE, STC 
SETSET (AVE RESULTS 
DEBUG (SAME AS TEST 
SIZE N1,N2,N3,N4 C 
TAPE SYSXXX,A7 (AS 
DUMP BEG, END, TYPE 



* 



■tt 



* 

CVRLRD 



OVGGR 



OVSRC 



OVBSW 



REMARK (LOG AS DIRECT 



SYN 
TSX 



TRA 
TRA 
XEC 
TRA 
XEC 
CAL 
SLW 
LOQ 
CAL 
LGL 
AXT 
LAS 
TRA 



TRA 
TIX 
TXH 
CIS 
STO 
TSX 
MZE 

TRA 



$INPUT,4 
$BCDIN 
0VBUF,,14 
CVERR 
OVEOF 
$SLT1 

* + 2 
$SLN2 
OVSPC 

ovcc 

CVBUF+2 

GVBUF+1 

6 

0VTBL-0VDCB,4 

CVTBL.4 

* + 2 



OVPNT 

OVSRC, 4,2 

OVRLRD,,0 

OVBSW 

OVBSW 

QUTPUT,4 

BCDOUT 

OVBUF-1,,15 

OVRLRD 



ING SECTION OF LISP. RECOOED 20 FEBRUARY 
EDWARDS. 

E PUNCHED IN FAP FORMAT WITH THE VARIABLE 
G IN COLUMN 16. DIRECTION CARDS ARE 
FOR THIS RUN) 

ON SYSTMP IF NO ERROR OCCURS) 
IMAGE AFTER OPERATION) 
) 

P MACHINE OR RETURN TO A HIGHER MONITOR) 
N SYSTMP NO MATTER WHAT) 

BUT OBJECT! 1ST IS NOT SAVED AFTER READ IN) 
GIVES SIZE OF BINPRG, PPDL, FWS AND FREE) 
SIGNS SYSXXX TO UNIT A 7) 

(MAKES OCTAL DUMP ON SYSPOT ACCORDING TO 
TYPE. FOR STRAIGHT OCTAL, NON-ZERO FOR 
LISP (COMPLEMENT) DUMP.) 
ION CARD AND LOKK FOR NEXT DIRECTION CARD) 



FROM BCD INPUT TAPE 

PUT IN OVERLORD CARD BUFFER 

ERROR RETURN 

END OF FILE RETURN 

ERROR 

NO 

YES, TURN ON MASTER ERROR 

SET SPACING CONTROL 



IND 



OVERR TSX 



TRA 



OUT PUT, 4 

BCDOUT 

GVRDM,,9 

CVGOR 



PICK UP OVERLORD DIRECTION 

SHIFT DIRECTION IN LOGICAL AC 
TWICE NUMBER OF CARDS 
LOOK UP DIRECTION 
NOT THIS ONE 



FOUND IT GO PRINT CARD 

TRY AGAIN 

NOT IN TABLE* PRINT FIRST BAD CARD 

AND GET NEXT CARD. 

FLIP SWITCH 

PRINT CARD OUT 

ON BCO OUTPUT TAPE, AND ON LINE 

GET NEXT CARD 

WRITE ERROR MESSAGE 



TRY TO MAKE SENSE OUT OF CARD 



LS052570 
LS052580 
LS052590 
LS052600 
LS052610 
LS052620 
LS052630 
LS052640 
LS052650 
LS052660 
LS052670 
LS052680 
LS052690 
LS052700 
LS052710 
LS052720 
LS052730 
LS052740 
LS052750 
LS052760 
LS052770 
LS052780 
LS052790 
LSQ52800 
LS052810 
LS052820 
LS052830 
LS052840 
LS052850 
LS052860 
LS052870 
LS052880 
LS052890 
LS052900 
LS052910 
LS052920 
LS052930 
LS052940 
LS052950 



LS052960 
LS052970 
LS052980 
LS052990 
LS053000 
LS053010 
LS053020 
LS053030 
LS053040 
LS053050 
LS053060 
LS053070 
LS053080 
LS053090 
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W 11175 


0500 CO 11162 


OVPNT CLA 


OVBSW 


1117 6 


C6C2 CO 11162 


SLW 


OVBSW 


11177 


C5G0 CC 4 11253 


CLA 


OVTBL+1,4 


• 1120G 


0621 CO 11213 


STA 


OVTRA 


11201 


0074 CO 4 00415 


TSX 


FIXUPL,4 


11202 


0074 CO 4 01527 


TSX 


0UTPUT.4 


• 11203 


-C COOCC 00365 


MZE 


BCDOUT 


11204 


00017 00576 




CVBUF-1,,15 


11205 


0140 CO 11206 


TOV 


» + l 


BINARY CARD NO. LISP0209 






~ 11206 


0441 CO 11254 


LDI 


SYSIND 


• 11207 


0057 GO 000014 


RIR 


14 


1121C 


0520 CC 00615 


ZET 


$TSINC 


11211 


CG57 CO 000200 


RIR 


N08ACT 


• 11212 


OeC* CG 11254 


STI 


SYSIND 


11213 


0C20 CO 00000 


QVTRA TRA 


*# 




000010 


ERRORI BCOL 


10 






* DIRECTION CARD TABL 




11214 


CVDCB SYN 


* 


• 11214 


464525606G60 


BCI 


1,0N£ 


11215 


CC20 CO 11436 


TRA 


CVCNE 


A 11216 


622563606060 


BCI 


1,SET 


• 11217 


0020 CC 11353 


TRA 


CVSET 


11220 


636263606060 


BCI 


l.TST 


11221 


C020 CO 11325 


TRA 


OVTST 


• 11222 


632562636060 


BCI 


ltTEST 


11223 


0Q20 CO C 11325 


TRA 


OVTST 


11224 


263145606060 


BCI 


1,FIN 


• 11225 


0020 CG U374 


TRA 


OVDN 


11226 


6 2 3171256060 


BCI 


i,size 


1122 7 


0020 CC 11442 


TRA 


GVSZE 


• 11230 


622563622563 


BCI 


1,SETS£T 


11231 


0020 CO 11341 


TRA 


CVSST 


11232 


242522642760 


BCI 


1, DEBUG 


• 112 3 3 


0020 CC 11324 


TRA 


OVDBG 


BINARY CARD NO. LISP0210 






• 11234 


63214725606G 


BCI 


1,TAP£ 


11235 


0020 CG 12004 


TRA 


OVTAP 


11236 


246444476060 


BCI 


1,DUMP 


• 11237 


C02O CO 11504 


TRA 


CVDMP 


1I24G 


512544215142 


BCI 


1, REMARK 


_ 11241 


0C20 CO 11140 


TRA 


OVRLRC 


• 11242 


24 3162426060 


BCI 


1,DISK 


11243 


0020 CO 11140 


TRA 


CVSCR 


11244 


622351216323 


BCI 


1,SCRATC 


• 11245 


0020 CO 11140 


TRA 


OVSCR 


11246 


456763622351 


BCI 


1,NXTSCR 


11247 


0C20 CO 11140 


TRA 


OVFSCR 


• 11250 


434621246060 


BCI 


1,L0AD 


11251 


020 CO 11140 


TRA 


OVLD 


_ 11252 


C COO CO COO 00 


GVSVI 





9/20/67 

RESTORE PRINT SWITCH TO TXH 

PICK UP TRA ADDRESS AND SAVE IT 

GET LOW MEMORY SET UP 

PRINT DIRECTION CARD 

ON BCD OUTPUT TAPE, AND ON LINE 

TURN OFF AC OVERFLOW LIGHT 



PICK UP SYSTEM INDICATORS 

RESET ERROR AND UEBIG INDICATORS 

IF TS 

NO BACKTRACE 

EXECUTE SPECIFIC OVERLORD PROGRAM 
ERROR INDICATOR 



PAGE 115 



TEMPORARY STORAGE FOR INDICATORS 



LS053100 
LS053110 
LS053120 
LS053130 
LS053140 
LS053150 
LS053160 
LS053170 
LS053180 
LS053190 



LS053200 
LS053210 
LS053220 
LS053230 
LS053240 
LS053250 
LS053260 
LS053270 
LS053280 
LS053290 
LS053300 
LS053310 
LS053320 
LS053330 
LS053340 
LS053350 
LS053360 
LS053370 
LS053380 
LS053390 
LS053400 
LS053410 
LS053420 
LS053430 
LS053440 
LS053450 



LS053460 
LS053470 
LS053480 
LS053490 
LS053500 
LS053510 
LS053520 
LS053530 
LS053540 
LS053550 
LS053560 
LS053570 
LS053580 
LS053590 
LS053600 



& 
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11253 
11254 

1125 5 
11256 
11257 
11260 
11261 

BINARY CA 
11262 
11263 
11264 
11265 
11266 

1126 7 
1127C 
11271 
11272 
11273 
11274 
11275 
11276 
11277 
1130C 
11301 
1130 2 
1130 3 
11304 
11305 
11306 
11307 



11252 
-1 OOOCO COOOO 
OOOGC C 00000 
002551514651 
603145606231 
712560232151 
2 4604C466525 
514346512440 



RD NC, 
60605 
54 606 
00216 
4 7636 
46472 
25602 
51256 
25602 
60512 
4C466 
46512 
60544 
00255 
60464 

4 7646 
6 4 636 
45276 
21457 
60404 
43465 

5 4466 
0254 



LISP0211 

4006001 

C606060 

3632544 

6 34 660 

5512163 

2252646 

C623171 

3215124 

5212460 

5255143 

4406060 

6600354 

1514651 

5603145 

3736022 

02 74 631 

0464560 

C304666 

6652551 

1244060 

0600554 

5246046 



BINARY CARD NO. LI5P0212 



11310 
11311 
11312 
11313 
113 1 4 
11315 
11316 
11317 
11320 
11321 
11322 
11323 



26604 
60414 
60606 
00634 
62632 
43316 
47512 
51256 
21452 
62306 
5 1636 
00 



OVTBL SYN 
OVIND STR 
SYSIND 
OVCEM BCI 



CVSVI 



7,0ERR0R IN SIZE 



FOR INDEXING DIRECTION CARD TABLE LS053610 

PRESET FOR LISP INDICATORS LS053620 

SYSTEM INDICATORES GO HERE LS053630 

CARD -OVERLORD- *0 1* LS053640 



OVNSM BCI 



9,0ATTEMPT TO OPERATE BEFORE SIZE CARD READ -OVERLORD- LS053650 



OVRDM 



BCI 
BCI 



1, *0 3* 

9,0ERRGR 



ON INPUT, BUT GOING ON ANYHOW -OVERLORD— *0 5* 



LS053660 
L SO 5 3670 



OVALF BCI 



4,0END OF LISP JOB. 



LS053680 



3316247 

6223360 
C606060 
6605125 
1516360 
2477360 
5626260 
2256360 
4604764 
C626321 
C60606C 
04 00601 



CVDNPT BCI 8,0T0 RESTART LISP, PRESS RESET AND PUSH START 



LS05 3690 



11324 0055 CO 0G00Q4 



11325 0056 

11326 0020 



CO 000020 
CO 11500 



OVPGS 

* 

CVDBG 
* 

* 
* 
GVTST 



DEBUG 
SIR 



OVBUF+2,,4 

OVERLORD DIRECTION 
4 



SET BEBUG INDICATOR 
PREFORM OVTST 



TEST 

RNT 
TRA 



CR 



TST OVERLORD 

20 

OVNSZ 



BEGINNING OF VARIABLE FIELD IN DIR CRDLS053700 

LS053710 
LS053720 
LS053730 
LS053740 
LS053750 
LS053760 
LS053770 
LS053780 
CARD HAS BEEN READ LS053790 



DIRECTION 

TEST FOR SETUP 
ERROR FOR NGO SIZE 
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11327 


0057 


CO 


000100 


RIR 


TAPING 


1I33C 


54 


CO 


0C00Q2 


RFT 


2 


11331 


74 


CO 


4 01006 


TSX 


TAPDMP,4 


11332 


0054 


GO 


0C0O01 


RFT 


1 


11333 


CC74 


CO 


4 01024 


TSX 


CVLT.4 


11334 


0G55 


CO 


000 01 


SIR 


1 


11335 


00 57 


CO 


000002 


RIR 


2 


BINARY CARD NC. 


LISP0213 






11336 


0604 


CO 


11254 


OVTA STI 


SYSINO 


11337 


0074 


CO 


4 12224 


TSX 


$EVALQ,4 


1134C 


0020 


CO 


C 11140 


TRA 


OVRLRD 








000004 


DEBUG I. BOOL 


4 










■ft 

* SETSET DIRECTION CARD 


11341 


0056 


CO 


000020 


OVSST RNT 


20 


11342 


0020 


CO 


11500 


TRA 


CVNSZ 


11343 


057 


CO 


000100 


RIR 


TAPIND 


11-344 


0054 


CO 


0C0002 


RFT 


2 


11345 


74 


CO 


4 01006 


TSX 


TAPDMP,4 


11346 


0054 


CO 


000001 


RFT 


1 


11347 


074 


CO 


4 C1024 


TSX 


CVLT.4 


1135C 


055 


CO 


000002 


SIR 


2 


11351 


0057 


GO 


OGOOQl 


RIR 


1 


11352 


0020 


CO 


11336 


TKA 
* 

* SET 


CVTA 

OVERLORD DIRECTION 


11353 


56 


CO 


000020 


OVSET RNT 


20 


11354 


0020 


CO 


11500 


TRA 


CVNSZ 


11355 


0057 


cc 


000 100 


RIR 


TAPIND 


11356 


0054 


CO 


000002 


RFT 


2 


11357 


0074 


CC 


4 010Q6 


TSX 


TAPDMP.4 


11360 


0054 


CO 


000001 


RFT 


1 


11361 


0074 


00 


4 010 24 


TSX 


0VLT,4 


11362 


00 55 


00 


000002 


SIR 


2 


11363 


0057 


CO 


000001 


RIR 


1 


BINARY CARD NC. 


LISP 02 14 






11364 


0604 


CO 


11254 


STI 


SYSIND 


11365 


00 74 


CO 


4 12224 


TSX 


$EVALG,4 


11366 


0441 


cc 


C 112 54 


LDI 


SYSIND 


11367 


56 


CO 


OOCOIO 


RNT 


10 


11370 


0020 


CO 


11140 


TRA 


OVRLRD 


11371 


0051 


CO 


000003 


IIR 


3 


11372 


0604 


CC 


11254 


STI 


SYSIND 


11373 


0020 


CO 


11140 


TRA 
* 

* FIN 


OVRLRD 

OVERLORD DIRECTION 








11374 


3t 

CVDN SYN 


•* 


11374 


0074 


CO 


4 01527 


TSX 


0UTPUT.4 


11375 


-0 000 CO 


G 00365 


MZE 


BCDOUT 


11376 


00010 


11313 




GVCNPT,,8 


11377 


074 


GO 


4 01527 


OVEQF TSX 


OUTPUT, 4 


11400 


GOO CO 


00365 




BCDOUT 



RESET TAPE INDICATOR 

WRITE TEST 

DUMP ON SYSIMP 

TEST FOR NEW CORE IMAGE 

GET ONE 

SET READ INDICATOR 

TURN OFF WRITE INDICATOR 



UPDATE SYSTEM INDICATORS 
PERFORM THE EVAL QUOTE OPERATOR 
GET NEXT OVERLORD DIRECTION CARD 
DEBUG INDICATOR 



TEST FOR SIZE 

ERROR, NO SIZE 

RESET TAPE INDICATOR 

TEST FOR SAVE CORE 

SAVE IT 

TEST FOR NEW IMAGE 

GET ONE 

SET WRITE INOLCATOR 

RESET READ INDICATOR 

PERFORM EVALQ AND GET NEXT CARD 



TEST FOR SIZE 
ERROR, NO SIZE CARD 
RESET TAPE INDICATOR 
CHECK WRITE INDICATOR 
DUMP ON SYSTMP 
TEST FOR NEW CORE IMAGE 
GET ONE FROM SYSTMP 
SET WRITE INDICATOR 
RESET READ INDICATOR 



UPDATE SYSTEM INDICATORS 

EVALUATE SET 

GET SYSTEM INDICATORS 

TEST ERRO-R INDICATOR 

OFF, GET NEXT DIRECTION CARD 

ON, INVERT READ AND WRITE INDICATORS 

GET NEXT OIRECTION CARD 

CARD 



PRINT END OF JOB, 



LS053800 
LS053810 
LS053820 
LS053830 
LS053840 
LS053850 
LS053860 



LS053870 
LS053880 
LS053890 
LS053900 
LS053910 
LS053920 
LS053930 
LS053940 
LS053950 
LS053960 
LS053970 
LS053980 
LS053990 
LS054000 
LS054010 
LS054020 
LS054030 
LS054040 
LS054050 
LS054060 
CS054070 
LS054080 
LS054090 
LS054100 
LS054110 
LS054120 
LS054130 



LS054140 
LS054150 
LS054160 
LS054170 
LS054180 
LS054190 
LS054200 
LS054210 
LS054220 
LS054230 
LS054240 
LS054250 
LS054260 
LS054270 
LS054280 
LS054290 
LS054300 



• 



LISP 1.5 FOR SHARE DISTRIBUTION 
OVERLORD 
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11401 


C00C4 


11307 






CVALF,,4 


11402 


CC54 


CO 


000002 




RFT 


2 


11403 


00 74 


CO 


4 01006 


CVEOFP 


TSX 


TAPDMP,4 DUMP 


11404 


0057 


CG 


000002 


OVFUP 


RIR 


2 


11405 


0057 


CO 


000100 




RIR 


TAPING 


11406 


5 00 


CG 


00364 




CLA 


SYSPPT 


11407 


0402 


CO 


00365 




SU8 


SYSPOT 


1141C 


0100 


CO 


11416 




TZE 


» + 6 


11411 


56 


cc 


000040 




ft NT 


PPTIND 


BINARY CARD NO. 


LISP0215 








11412 


0020 


CC 


11416 




TRA 


*+4 


11413 


0500 


CO 


00364 




CLA 


SYSPPT 


11414 


0074 


CC 


4 00277 




TSX 


$II0S),4 


11415 


C522 


CO 


C0354 




XEC 


$WEF 


.. 11416 


00 57 


CC 


000040 




RIR 


PPTIND 


. 11417 


0604 


CC 


11254 




STI 


SYSIND 


11420 


C500 


00 


C 00365 




CLA 


SYSPOT 


11421 


0074 


CG 


4 00277 




TSX 


$( IDS), 4 


11422 


0522 


CO 


00354 




XEC 


$WEF 


1142 3 


7 74 


CC 


7 77777 




AXT 


-1|7 


11424 


C500 


CO 


11435 




CLA 


OVTCV 


11425 


0601 


CO 


00000 




STO 





11426 


-0754 


CO 


COOOO 




PXD 


0,0 


11427 


0760 


CO 


00006 




COM 




11430 


-0765 


CO 


00045 




LGR 


37 


11431 


0760 


CO 


00006 




COM 




11432 


-0760 


CO 


00003 




SSM 




11433 


0420 


CC 


7 77777 




HPR 


-1,7 


11434 


020 


CO 


11433 




TRA 


*-l 


11435 


0020 


CO 


11140 


CVTOV 


TRA 


OVRLRO 








000040 


PPTIND 

* 

* 


BOOL 

ONE 


40 

OVERLORD DIRECTION 


11436 


00 56 


CO 


000020 


OVONE 


RNT 


20 


11437 


0020 


CO 


11500 




TRA 


CVNSZ 


BINARY CARD NO. 


LISP0216 








1144C 


0057 


CO 


000003 




RIR 


3 


11441 


0020 


CC 


11336 


* 
* 


TRA 

SIZE 
Nl = 
LIST 


OVTA 

N1,N2,N3,.N4 
LENGTH OF BINARY PROG 
, N3 = LENGTH OF FULL 


11442 


0054 


CC 


000002 


■ft - 

OVSZE 


RFT 


2 


1144 3 


0074 


CO 


4 01006 




TSX 


TAPDMP.4 


11444 


0500 


CC 


11323 




CLA 


GVPOS 


1144 5 


0074 


00 


4 07450 




TSX 


$NUMBR,4 


11446 


0100 


CC 


11471 




TZE 


OVCER 


11447 


-0600 


CO 


03066 




STQ 


LBINPG 


11450 


CC74 


00 


4 07450 




TSX 


$NUMBR,4 


11451 


C1C0 


CC 


11471 




TZE 


OVCER 


11452 • 


-0600 


00 


03067 




STQ 


LPBPDL 



9/20/67 


PAGE 


118 

LS054310 
LS054320 


CORE ON SYSTMP 




LS054330 


RESET WRITE INDICATOR 




LS054340 


RESET TAPE INDICATOR 




LS054350 


IF SYSPPT =? SYSPOT, 




LS054360 


EOF FOR SYSPOT 




LS054370 


IS ENOUGH 




LS054380 


SEE IF PUNCH TAPE USED 




LS054390 


SKIP IF NOT USED 




LS054400 


TAPE SPEC. 




LS054410 


SET UP 1-0 COMMANDS 




LS054420 


WRITE EOF ON PPT 




LS054430 


RESET INDICATOR 




LS054440 


UPDATE SYSTEM INDICATORS 




LS054450 


TAPE SPEC. 




LS054460 


SET UP 1-0 COMMANDS 




L SO 544 70 


WRITE EOF ON SYSPOT 




LS054480 
LS054490 


PICK UP RESTART INSTRUCTION 




LS054500 


STORE IN ZERO 




LS054510 


LIGHT THE PANEL 




LS054520 
LS054530 
LS054540 
LS054550 
LS054560 


STOP 




LS054570 


PRESS RESET AND START TO RESTART 


LISP 


LS054580 


TRANSFER TO GET NEXT DIRECTION CARD 


LS054590 


PUNCH TAPE INDICATOR 




LS054600 
LS054610 
LS054620 
LS054630 


TEST FOR SIZE 




LS054640 


ERROR, NO SIZE CARD READ 




LS054650 


RESET READ AND WRITE INDICATORS 




LS054660 


SAVE INDICATORS AND DO EVAL Q 




LS 054670 
LS054680 


tOVERLGRD DIRECTION CARD) 




LS054690 


AM, N2 * LENGTH OF PUBLIC PUSH DOWN 


LS054700 


fORO SPACE* N4 = LENGTH OF FREE ST0RAGELS054710 






LS054720 


TEST FOR DUMP OF CURRENT CORE IMAGE 


LS054730 


DUMP ON SYSTMP 




LS054740 


SET TO TRANSLATE NUMBERS ON SIZE 


CARD 


LS054750 


LENGTH OF BINARY PROGRAM 




LS054760 


ERROR IF ZERO 




LS054770 


SAVE NUMBER 




LS054780 


LENGTH OF PUBLIC PUSH DOWN LIST 




LS054790 


ZERO IS ERROR 




LS054800 


SAVE NUMBER 




LS054810 



MUM 
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11453 
11454 
11455 
11456 
11457 
11460 
11461 
11462 
1146 3 
11464 
11465 



0074 

cieo 

-0600 
0074 
0100 
•0 600 
0074 
441 
00 54 
0020 
0055 



CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
00 
CO 
CO 



07450 
11471 
03070 
07450 
11471 
03071 
02661 
11254 

000010 
11471 

000022 



BINARY CARD NC. 

11466 0057 

11467 G6C4 
1147C 0020 



LISP0217 
CO 000001 
CO 11254 
CO 11140 



11471 
11472 
11473 
11474 
1147 5 
11476 
11477 

1150C 
1150 1 
11502 
11503 



0441 CO 
55 CC 
0604 CO 
00 74 CC 

-0 ooocc 

00007 
0020 CO 



11254 
000001 

11254 
01527 
00365 
11255 
11140 



CC74 CC 4 C1527 

-0 COOOO 00365 

C 00012 11264 

0020 CO C 11140 



11504 
11505 
11506 
11507 
1151C 
11511 
11512 



6 34 
6 34 
0634 
0600 
0601 
-0600 
0604 



CO 
CO 
CO 
CC 
CO 
CO 
OC 



11636 
11637 
11640 
11750 
11633 
11634 
11635 



11513 0500 CO 11323 
BINARY CARD NO* LISR0218 



11514 
1 1 51 5 
11516 
11517 
11520 
11521 
11522 
11523 



0074 

100 
-0120 
-06 00 

0074 
-0600 

01 GO 
0074 



CO 

CC 
CO 
CO 
CO 
CO 
CC 
CO 



07450 
11700 
11712 
11752 
07450 
11753 
11700 
07450 



* 
* 

* 
» 

« 



TSX 
TZE 
STQ 
TSX 
TZE 
STQ 
TSX 
LDI 
RFT 
TRA 
SIR 



RIR 
STI 
TRA 

LDI 
SIR 
STI 
TSX 
MZE 

TRA 



OVNSZ TSX 
MZE 

TRA 

DUMP 



OVCER 



OVCMP 



$NUMBR,4 

CVCER 

LFULWS 

$NUMBR,4 

CVCER 

LFREES 

*SETUP,4 

SYSIND 

1C 

OVCER 

22 



SYSIND 
OVRLRD 

SYSIND 

1 

SYSIND 

OUTPUT, 4 

BCDOUT 

CVCEM,,7 

OVRLRD 

OUTPUT, 4 

BCDOUT 

0VNSM,,10 

OVRLRD 



LENGTH OF FULL WORD SPACE 

ZERO IS ERROR 

SAVE NUMBER 

LENGTH OF FREE STORAGE 

ZERO IS EKROR 

SAVE NUMBER 

PERFORM SETUP 

SYSTEM INDICATORS 

TEST FOR ERROR IN SETUP 

YES, CO ERROR PROCEDURE 

SET SIZE AND WRITE INDICATORS 



RESET READ INDICATOR 
UPDATE SYSTEM INDICATORS 
GET NEXT DIRECTION CARD 

GETT SYSTEM INDICATORS 

CONVERSION ERROR IN SIZE, SET READ 

UPDATE SYSTEM INDICATORS 

WRITE ERROR MESSAGE 

ON BCD OUTPUT TAPE AND ONLINE 

GET NEXT DIRECTION CARD 

WRITE ERROR MESSAGE 

ON BCD OUTPUT TAPE AND ONLINE 

GET NEXT DIRECTION CARD 



BEGINNING, END, N (OVERLORD DIRECTION) 
ALSO AVAILABLE TO LISP 
BEGINNING IS A NUMBER TO START DUMP 
(MEANING OBVIOUS) AND N IS A NUMBER 
STRAIGHT OCTAL DUMP AND IF NON-ZERO 
(LISP TYPE) DUMP. 



AT, END 
IF ZERO 
GIVES A 



A NUMBER 
GIVES A 
COMPLEMENT 



SXA 


0VDX.4 


SXA 


GVDY,2 


SXA 


0VDZ,1 


STZ 


OVDEX 


STO 


OVDC 


STQ 


OVDQ 


STI 


OVDI 


CLA 


OVPOS 


TSX 


$NUM8R,4 


TZE 


ODER 


TMI 


OVENK 


STQ 


OBEG 


TSX 


$NUMBR,4 


STQ 


OEND 


TZE 


ODER 


TSX 


$NUMBR,4 



SAVE INDEX REGISTERS 



INDICATE OVERLORD ENTRANCE 

SAVE AC 

SAVE MQ 

SAVE SI 

POSITION OF VARIABLE FIELD 



BEGGINNING OF DUMP 

ERROR IN CONVERSION 

IF FLOATING POINT NUMBER, LOOK AT 

NUMBER TO ENO DUMP AT 

CONVERSION ERROR 
TYPE OF DUMP 



LS054820 
LS054830 
LS054840 
LS054850 
LS054860 
LS054870 
LS054880 
L SO 54890 
LS054900 
LS054910 
LS054920 



LS054930 
LS054940 
LS054950 
LS054960 
LS054970 
INDLS054980 
LS054990 
LS055000 
LS055010 
LS055020 
LS055030 
LS055040 
LS055050 
LS055060 
LS055070 
LS055080 
LS055090 
LS055100 
LS055110 
LS055120 
LS055130 
LS055140 
LS055150 
LS055160 
LS055170 
LS055180 
LS055190 
LS055200 
LS055210 
LS055220 
LS055230 
LS055240 



LS055250 
LS055260 
KEYSLS055270 
LS055280 
LS055290 
LS055300 
LS055310 
LS055320 



mwmmmmmmmmmm 



mm 



MMMMNM 
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11524 


-0600 


CO 





11756 




STQ 


OLISD 


11525 


0100 


CO 





11700 




TZE 


ODER 


11526 


0500 


cc 





11753 


OVGE 


CLA 


OEND 


11527 


C4C0 


CO 





00425 




ADD 


$G1 


11530 


0621 


CO 





11551 




STA 


OLDQ 


11531 


0402 


CO 





11752 




SUB 


OBEG 


11532 


-0120 


CO 





11700 




TMI 


ODER 


11533 


0734 


CO 


1 


QOOOO 




PAX 


0,1 


11534 


0534 


cc 


4 


11752 




LXA 


OBEG, 4 


11535 


1 77772 


4 


11536 




TXI 


*+l,4,-6 


11536 


-0 634 


cc 


4 


11752 




SXD 


OBEG, 4 


11537 


C020 


cc 





11576 




TRA 


OVDSH 


1154C 


-0500 


cc 





11746 


-ft - 

0AXT1 


CAL 


OVDSF 


11541 


0602 


CO 


C 


11761 


OAXT 


SLW 


OUP+1 


BINARY CARD NO. 


LISP0219 








11542 


0774 


CO 


2 


00022 




AXT 


18,2 


11543 


C500 


cc 


c 


11752 




CLA 


OBEG 


11544 


0400 


CO 





0G5O1 




ADD 


$QD6 


11545 


0622 


CO 





11752 




STD 


OBEG 


11546 


C131 


CO 





OOOQO 




XCA 




11547 


0074 


CC 


4 


117 31 




TSX 


GCTLP,4 


11550 


C6C2 


CO 





11760 




SLW 


OUP 


11551 


-0500 


00 


1 


00000 


OLDQ 


CAL 


**,1 


11552 


0100 


CO 





11601 




TZE 


OSTZ 


11553 


-0625 


CO 





11747 




STL 


OVDZS 


11554 


0520 


CO 





11756 




ZET 


OLISD 


11555 


0020 


CO 





11603 




TRA 


OLID 


11556 


-0130 


CO 





00000 


ODXCL 


XCL 




11557 


00 74 


CO 


4 


11731 




TSX 


0CTLP,4 


11560 


0602 


CC 


2 


12004 




SLW 


OUP+20,2 


11561 


0074 


cc 


4 


11731 




TSX 


0CTLP,4 


11562 


0560 


CO 





00527 


08Q 


LDQ 


BLANKS 


11563 


-0765 


CO 





00006 




LGR 


6 


11564 


-0501 


CO 





00506 




ORA 


08LA.NK 


11565 


602 


CO 


2 


12005 




SLW 


GUP+21,2 


11566 


-0600 


CO 


2 


12006 




STQ 


OUP+22,2 


11567 


-2 00001 


1 


11623 




TNX 


CVDFN,i»l 


BINARY CARD NO. 


LISP 0220 








11570 


2 000 3 


2 


11551 




TIX 


OLDQ, 2, 3 


11571 


-05 20 


CO 





11747 




NZT 


OVDZS 


11572 


0020 


CO 





11540 




TRA 


0AXT1 


1157 3 


0074 


CO 


4 


01527 




TSX 


OUTPUT, 4 


11574 


00000 





00365 






8CD0UT 


11575 


C 00024 





11760 






CUP, ,20 


11576 


0600 


CO 





11747 


OVDSH 


STZ 


OVDZS 


11577 


-0 500 


CC 





00527 




CAL 


BLANKS 


11600 


0020 


CO 





11541 




TRA 


OAXT 


11601 


0600 


CO 


2 


12004 


OSTZ 


STZ 


CUP+20,2 


11602 


0020 


CO 





11562 


jt 


TRA 


OBQ 


11603 


0602 


CO 





11755 


OLID. 


SLW 


OCLT 



CONVERSION ERROR 
END DUMP NUMBER 

SET ADDRESS 

GIVES COUNT OF WORDS TO BE DUMPED 

NEGATIVE NUMBER YIELDS ERROR 

COUNT IN INDEX 1 

GET BEGINNING 

DECREMENT BY 6 (NUMBER OF WORDS /LI 

PUT IN DECREMENT FOR OCTAL CONVERSI 

START THE DUMP 



PICK UP STAR FLAG 
PUT STARS OR BLANKS 



IN LINE 



SET LR 2 

BEG IN INNING OF LINE 

6 WORDS PER LINE 

UPDATE LINE NUMBER 

NUMBER TO MQ 

CONVERT TO OCTAL 

BEGIN OUTPUT LINE 

PICK UP WORD TO BE DUMPED 

EASY IF ALL ZERO 

INDICATE SOMETHING NON-ZERO DUMPED 

SKIP IF STRAIGHT DUMP 

DO LISP DUMP 

NUMBER TO MQ 

CONVERT LEFT HALF 

PUT IN OUTPUT LINE 

CONVERT RIGHT HALF 

BLANKS TO MQ 

HOLE 

ONE BLANK 

OUTPUT LINE 



MAKE A 
INSERT 
PUT IN 
DITTO 
EXIT IF 



DONE 



LS055330 
LS055340 
LS055350 
LS055360 
LS055370 
LS055380 
LS055390 
LS055400 
LS055410 
NE)LS055420 
ON LS055430 
LS055440 
LS055450 
LS055460 
LS055470 



LS055480 
LS055490 
LS055500 
LS055510 
LS055520 
LS055530 
LS055540 
LS055550 
LS055560 
LS055570 
LS055580 
LS055590 
LS055600 
LS055610 
LS055620 
LS055630 
LS055640 
LS055650 
LS055660 
LS055670 
LS055680 
LS05569Q 



LOOP 6 TIMES 

SKIP IF NOT ALL ZEROS 

GO BACK AND GET STAR FLAG FOR ZEROS 

WRITE LINE OF DUMP 

ON BCDOUT 

SET SWITCH TO TEST FOR LINE OF ZEROS 
BLANK THE FLAG FIELD 
GET NEXT LINE 

IF ZERO PUT ZERO S IN OUTPUT LINE 
GO AS IF CONVERTED 

LISP TYPE (COMPLEMENT) DUMP 



LS055700 
LS055710 
LS055720 
LS055730 
LS055740 
LS055750 
LS055760 
LS055770 
LS055780 
LS055790 
LS055800 
LS055810 
LS055820 
LS055830 
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11604 
11605 
11606 
11607 
11610 
11611 
11612 
11613 
1161 4 
11615 



•0320 
01C0 

•0500 
CC20 

-0 535 

-0634 
0535 
6 34 
0560 
0C74 



CO 
CO 
CO 
CO 
CO 

cc 

CO 

CO 
CC 

CO 



11757 
1161C 
11755 
11556 
11755 
11755 
11755 
11755 
11755 
11731 



ouc 



ANA 
TZt 
CAL 
TRA 
LDC 
SXD 
LAC 
SXA 
LCQ 
TSX 



CLDM 

ODC 

OCLT 

OCXCL 

0DLT.4 

0DLT,4 

0GLT,4 

OCLT, 4 

ODLT 

0CTLP,4 



MASK OUT ALL BUT TAG AND PREFIX LS055840 

TRANSFER IF LISP LS055850 

HAS PREFIX AND/OR TAG, DUMP STRAIGHT LS055860 

GO TO NORMAL DUMP LS055870 

COMPLEMENT DECREMENT LS055880 

STORE LS055890 

COMPLEMENT ADDRESS LSO 55900 

STORE LS055910 

PUT IN MQ LS055920 

CONVER LEFT HALF LS055930 



BINARY CARD NC. LISP0221 



11616 -0501 CO 

11617 06C2 00 
1162C 0074 CC 

11621 -0501 CC 

11622 0020 CO 



1162 3 
11624 
1162 5 
11626 
1162 7 
11630 
11631 
11632 

11633 
11634 
11635 
11636 
11637 
11" 6 AC 
11641 
11642 
11643 



-2 00003 
-0500 CC 
0602 CO 
2 000 CI 
0074 CO 
000 CO 
00024 
0020 CC 

COOOO 
CGOCO 
OOOCO 



0774 

0774 
0774 
0520 
0C20 
0520 



CO 
CO 
CO 
CO 
CO 
CO 



11754 
2 12004 
4 11731 
11754 
11562 



11627 
00527 
12004 
11625 
01527 
00365 
11760 
11636 

COOOO 
COOOO 
00000 
00000 
COOOO 
COOQO 
11750 
00001 
11751 



OVDFN 



OVDLL 



ORA 
SLW 
TSX 
ORA 
TRA 

TNX 
CAL 
SLW 
TIX 
TSX 



TRA 
i FOLLOWING 
OVDC 
OVDQ 
OVDI 

OVDX AXT 

OVDY AXT 

OVOZ AXT 

ZET 

TRA 

ZET 



ODSAR 

OUP+20,2 

0CTLP,4 

ODSAR 

CBQ 

OVDLL, 2, 3 
BLANKS 
GUP+20,2 
*~ 1 , 2 , 1 
OUTPUT, 4 
BCDOUT 
GUP,, 20 
OVDX 
6 SELLS CONTAIN 



**,4 
**,2 
**, 1 

OVDEX 
1,4 

CVDEK 



AC 



CR IN A * 

PUT IN OUTPUT LINE 

CONVERT RIGHT HALF 

PUT IN * 

PUT AWAY AS USUAL 

SKIP IF LINE FILLED OUT 
GET BLANKS IN AC 
BLANK REST OF LINE 

WRITE LAST OUTPUT LINE 



GO TO EXIT 

MQ , SI, AND LR S UPON DUMP ENTRANCE 

AC CONTENTS 

DITTO MQ 

DITTO SI 

RESTORE INDEX REGISTERS 



TEST FOR LISP OR OVERLORD EXIT 

LISP EXIT 

TEST FOR ENK MODE 



LS055940 
LS055950 
LS055960 
LS055970 
LS055980 
LS055990 
LS056000 
LS056010 
LS056020 
LS056030 
LS056040 
LS056050 
LS056060 
LS056070 
LS056080 
LS056090 
LS056100 
LS056110 
LS056120 
LS056130 
LS056140 
LS056150 
LS056160 
LS056170 



BINARY CARD NO- 

11644 0020 

11645 CC20 



LISP0222 
CC 11712 
CO 11140 






11646 
11647 
11650 
11651 
11652 
11653 
11654 
11655 
1165 6 
11657 
11660 
11661 
11662 
11663 



634 
0634 
0634 

-C625 
0622 

-0600 
G500 
0074 

•0534 
0074 
0601 

-C534 
00 74 
0601 



CO 
CO 
CC 
CO 
CO 
CO 
CC 
CO 
CO 
CO 
CC 
CO 
00 
CC 



11636 
11637 
11640 
11750 
11750 
11753 
04064 
05342 
11750 
14065 
11752 
11753 
14065 
11753 



CUMPXX 



TRA 
TRA 

SXA 
SXA 
SXA 
STL 
STD 
STQ 
CLA 
TSX 
LXD 
TSX 
STO 
LXD 
TSX 
STO 



OVENK 
OVRLRD 

OVDX, 4 

GVDY.2 

OVDZ, 1 

OVDEX 

OVDEX 

CEND 

$ARG4 

$PRINT,4 

CVDEX,2 

FIXVAL,4 

OBEG 

0£ND,2 

FIXVAL,4 

OEND 



GO TO KEEYS 

GO BACK FOR NEXT DIRECTION CARD 

LISP ENTRANCE 

SAVE INDEX REGISTERS 

SET FOR LISP EXIT 
SAVE ARG1 

PICK UP ID FOR DUMP 

PRINT IT 

ARG 1 

EVALUATE AS FIXED POINT NUMBER 

STORE IN BEGINNING 

EVALUATE AS FIXED POINT NUMBER 



LS056180 
LS056190 
LS056200 
LS056210 
LS056220 
LS056230 
LS056240 
LS056250 
LS056260 
LS056270 
LS056280 
LS056290 
LS056300 
LS056310 
LS056320 
LS056330 
LS056340 
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11664 


-0534 


CC 


2 


04063 


LXD 


$ARG3,2 


11665 


74 


CO 


4 


14065 


TSX 


FIXVAL,4 


11666 


0601 


CC 





11756 


STO 


OLISD 


11667 


0020 


CO 





11526 


TRA 


OVGE 


11670 


6 34 


CO 


4 


11636 


DUMPYY SXA 


OVDX, 4 


11671 


C634 


CO 


2 


11637 


SXA 


0VDY»2 


BINARY CARD NO. 


LISP0223 






11672 


0634 


CO 


1 


11640 


SXA 


CVDZ,1 


11673 


-0625 


CC 





11750 


STL 


OVDEX 


11674 


-0600 


CC 





11753 


STQ 


CEND 


11675 


C6C1 


CC 


C 


11752 


STO 


08EG 


11676 


060O 


CO 





11756 


STZ 


OLISD 


11677 


0020 


CO 





11526 


TRA 


OVGE 


11700 


0074 


CO 


4 


01527 


ODER TSX 


OUTPUT, 4 


11701 


-C COO CO 





0C365 


MZE 


8CD0UT 


11702 


000C6 


c 


11704 




CD8A0,,6 


11703 


0020 


CO 





11636 


TRA 


OVDX 


11704 


002221246024 


ODBAD 3CI 


6,06AD DUMP 


11705 


644447602151 






11706 


276444254563 






11707 


62604C466525 






1171C 


5 14346512440 






11711 


60 5446600454 






I 11712 


0420 


7 7 


7 


77777 


OVENK HPR 


-1,7,63 


11713 


0760 


CO 





GO 00 4 


ENK 




11714 


-0754 


CO 





GOOOO 


PXO 


0,0 


11715 


-0763 


00 





00001 


LGL 


1 


11716 


0601 


CO 





11756 


STO 


OLISD 


1171? 


-0754 


CO 





CO 000 


PXD 


0,0 


BINARY CARD NO. 


LISP0224 






11720 


-0763 


CO 


■o 


C0021 


LGL 


17 


11721 


0601 


GO 





11752 


STO 


OBEG 


11722 


-0 754 


CO 





00000 


PXD 


0,0 


11723 


-0763 


CG 





00022 


LGL 


18 


11724 


0601 


CC 





11753 


STO 


OEND 


11725 


0601 


CO 





11751 


STO 


CVDEK 


11726 


0600 


CO 


G 


11750 


STZ 


OVDEX 


11727 


0100 


CC 





11636 


TZE 


OVDX 


11730 


0020 


CC 





11526 


TRA 


OVGE 


11731 


-0754 


CO 





00900 


OCTLP PXO 


0,0 


11732 


-0763 


CO 





0000 3 


LGL 


3 


11733 


0767 


CC 





00003 


ALS 


3 


11734 


-0763 


CO 





00003 


LGL 


3 


11735 


0767 


CO 





00003 


ALS 


3 


11736 


-0 763 


CO 





0000 3 


LGL 


3 


11737 


767 


CO 





00O03 


ALS 


3 


1I74C 


-0763 


CO 





00003 


LGL 


3 


11741 


0767 


CO 





0000 3 


ALS 


3 


11742 


-0 763 


CO 





00003 


LGL 


3 



ARG 3 

EVALUATE AS FIXED POINT NUMBER 

EXECUTE DUMP 



WRITE ERROR MESSAGE 
ON BCD OUTPUT TAPE AND ONLINE 

RESTORE AND EXIT 
ARGUMENTS -OVERLORD- *0 4* 



KEYS 

IN MO 



STOP FOR 
PUT KEYS 
CLEAR AC 
TYPE OF DUMP 
PUT AWAY 
CLEAR AC 



IN SIGN BIT 



BEGINNING 

CLEAR AC 

END 

SET SWITCH ON EXIT 
SET OVERLORD EXIT 
EXIT ON ZERO REGUEST 
PROCESS DUMP 

CONVERT LEFT HALF OF MG TO OCTAL 
CLEAR AC AND DO SHIFT DANCE 



LS056350 
LS056360 
LS056370 
LS056380 
LS056390 
LS056400 
LS056410 



LS056420 
LS056430 
LS056440 
LS056450 
L SO 56460 
LS056470 
LS056480 
LS056490 
LS056500 
LS056510 
LS056520 
LS056530 



LS056540 
LS056550 
LS056560 
LS056570 
LS056580 
LS056590 
LS056600 



LS056610 
LS056620 
LS056630 
LS056640 
LS056650 
LS056660 
LS056670 
LS056680 
LS056690 
LS056700 
LS056710 
LS056720 
LS056730 
LS056740 
LS056750 
LS056760 
LS056770 
LS056780 
LS056790 
LS056800 
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11743 0767 CO 

11744 -0763 CO 

11745 CC20 CO 



G 0OOQ3 
00003 
4 GCGOl 

11731 
C1024 



BINARY CA 
11746 
11747 
1175C 
11751 
11752 
11753 
11754 
11755 
11756 
11757 
11760 
11761 
11762 



RD NC. L 
6C5454 
COOC 
000 
COOC 
C 0000 

c oooc 

5 4 COOC 

o oooc 

COOC 

-3 COOC 

606060 

606060 



ISP0225 

545460 

CCOQO 

COOOO 

00000 

COOOO 

00000 

GOOOOO 

00000 

ocooo 

7 COOOO 

606060 

606060 



BINARY CA 
12004 
12005 
12006 
12007 
12010 
12011 
12012 
12013 
12014 
12015 
12016 
12017 
12020 
12021 
12022 
12023 
12024 
12025 
12026 
12027 
12030 
12031 



RD NC. 
0634 
6 34 
C6 34 
0074 
0774 
-C5C0 
C560 
-0763 
-0 765 
-0340 
0020 
0020 
2 COO 
0602 
CO 74 
C 000 
000 
0020 
0606 
7 736 
C 000 
60316 



LISP0226 



GO 
GO 
CO 
CO 
CO 
CO 
00 
CO 
CC 

cc 

CO 
CO 
CI 

cc 

CO 
CO 
14 
CC 



4 

2 

1 

4 

4 









4 





4 



4 







2465151 
C60606G 
CO C 00000 
2604 546 



12124 
12125 
12126 
12207 
0G005 
00601 
00602 
00023 
00001 
12142 
12020 
12042 
12015 
12030 
01527 
C0365 
12026 
11140 



CCTALP 
OVLT 



OVDSF 

OVDZS 

OVDEX 

OVDEK 

OBEG 

OEND 

OOSAR 

ODLT 

OLISD 

OLDM 

OUP 



* 

* 



OVTAP 



OVLA 



OVCMP 



ALS 
LGL 
TRA 

SYN 
SYN 



8CI 



OVTRM 



6CI 



SVN 
BCI 

BSS 



TAPE 



SXA 
SXA 
SXA 

rsx 

AXT 
CAL 
LDQ 
LGL 
LGR 
LAS 
TRA 
TRA 
TIX 
SLW 
TSX 



TRA 
QVTRN BCI 



BCI 



3 
3 
lt4 

OCTLP 
CVLTXX 



1 1 »#** 



1,*OOCOO 



,4+2+1 
2, 

18 



LS056810 

LS056820 

EXIT LS056830 

LS056840 
LS056850 
LS056860 



STAR FLAG AFTER DUMPING ZEROS LS056870 

SUPRESSES GUTPUT WHEN DUMPING ZEROS LS056880 
ZERO FOR OVERLORD EXIT NGN-ZERO , LISPLS056890 

TEST CELL NGN-ZERO FOR ENK MODE LS056900 

BEGIN DUMP LS056910 

END DUMP LS056920 

A * FOR COMPLEMENT DUMPING LS056930 

TEMPORARY STORAGE LS056940 

NON-ZERO FOR LISP TYPE DUMP LS056950 

MASK FOR TAG AND PREFIX LS056960 

BLANKS FOK BEGINNING OF OUT PUT LINE LS056970 



ROOM FOR REST OF LINE 



SYSXXX,A6 (OVERLORD DIRECTION CARD) 

SYSTAP, SYSTMP, SYSPIT AND SYSPOT ARE CURRENTLY 
RECOGINIZED LISP TAPES. UNIT DESIGNATION IS BY CHANNEL 
{A, B, OR C) AND NUMBER <1 THRU 10). 



0VTPX,4 

0VTPY.2 

GVTPZ,1 

GVTPR,4 

5,4 

DVBUF+2 

OVBUF+3 

19 

1 

0VTTB,4 

* + 2 

CVTAA 

CVLA,4,1 

OVTRM 

GUTPUT, 4 

BCDOUT 

GVTRN,,12 

OVRLRD 

2,0 SCRRY, 



SAVE INDEX REGISTERS 



NUMBER OF ENTRIES IN TAPE TABLE 

GET TAPE DESIGNATION IN AC AND MQ 

SHIFT INTO AC 

DUMPING Q BIT 

COMPARE WITH TAPE TABLE 

NOT THIS ONE 

THIS IS IT 

TRY AGAIN 

NOT FOUND, COMPLAIN 



GET NEXT DIRECTION CARD 



9, IS NOT A VALID LISP TAPE DESIGNATION -OVERLORQ- *0 2* 



LS056980 
LS056990 
LS057000 
LS0570I0 
LS057020 
LS057030 
LS057040 
LS057050 



LS057060 
LS057070 
LS057080 
LS057090 
LS057100 
LS057110 
LS057120 
LS057130 
LS057140 
LS057150 
LS057160 
LS057170 
LS057180 
LS057190 
LS057200 
LS057210 
LS057220 
LS057230 
LS057240 

LS057250 
LS057260 



mmmmmmmmmmm 
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BINARY CARD NC. 


LISP0227 






• 12032 


636021606521 






12033 


433124604331 






12034 


624760632147 






• 12035 


256024256231 






12036 


2 7452163 3146 






12037 


45604C466525 






• 1204C 


514346512440 






12041 


605446600254 






12042 


-C773 


CO 





00006 


CVTAA RGL 


6 


• 12043 


-0754 


CO 





00000 


PXD 


0,0 


12044 


-0763 


CO 





C0006 


LGL 


6 


12045 


CC44 


CO 


C 


CGOOO 


PAI 




• 12046 


0774 


CO 


2 


00003 


AXT 


3,2 


12047 


56 


CO 


C00003 


RNT 


3 


_ 12050 
• 12051 


774 


CO 


2 


00002 


AXT 


2,2 


0056 


CO 


( 


DQ00Q2 


RNT 


2 


12052 


7 74 


CO 


2 


C0G01 


AXT 


1,2 


12053 


-0 763 


CO 


C 


CC006 


LGL 


6 


• 12054 


-0320 


CO 





C0453 


ANA 


$QC17 


12055 


441 


CO 





00603 


LDI 


OVBUF+4 


12056 


-00 54 


00 


' 


770000 


LFT 


770000 


• 12057 


0020 


CO 





12061 


TRA 


* + 2 


BINARY CARD NO* 


LISP022 8 






• 1206C 


0400 


CO 





00435 


ADO 


$Q9 


12061 


0734 


CO 


1 


COOOQ 


PAX 


0,1 


_ 12062 


-3 000 CO 


1 


12064 


TXL 


* + 2,l ,0 


• 12063 


-3 00012 


1 


12073 


TXL 


OVTPS, 1,10 


12064 


C500 


CO 





00527 


CLA 


BLANKS 


a 12065 


0560 


CC 


c 


00602 


LDQ 


CVBUF+3 


• 12066 


-0 773 


CO 





00030 


RGL 


24 


12067 


-0763 


CC 





0GO14 


LGL 


12 


I 1 1207C 


0560 


CO 





00603 


LDQ 


CVBUF+4 


• 12071 


-0 7 63 


CC 





C0006 


LGL 


6 


I 120 72 


0020 


CO 





12021 


TRA 


OVCMP 


i a 12073 


-0501 


CO 


4 


12147 


OVTPS ORA 


CVTCT,4 


1 • 22074 


-C501 


CC 


2 


12152 


ORA 


CVCHN,2 


| 12075 


06 02 


CO 


4 


GO 371 


SLW 


TAPASG,4 


~ 12076 


0560 


CO 


4 


12142 


LDQ 


0VTTB,4 


• 12077 


-0 600 


CO 





12133 


STQ 


OVTPO 


S 12 10G 


3 0OOC1 


4 


12 115 


TXH 


CVTXX,4, I 


i m, 12101 


0500 


CC 





00370 


CLA 


SYSTAP 


• 12102 


74 


CO 


4 


00277 


TSX 


$U0S),4 


12103 


0560 


CO 


C 


00360 


LDQ 


$TCO 


12104 


-0620 


CO 





00145 


SLQ 


BOTTCM+1 


W 1210 5 


0560 


CC 





00351 


LDQ 


$RDS 


BINARY CARD NO. 


LISP0229 






• 12106 


-C6C0 


CO 





12173 


STQ 


GCRDB 


12107 


0560 


GO 





00362 


LDQ 


$RCH 


1 21 1 C 


-0620 


CC 





12174 


SLQ 


GCRDC 


• 12111 


0560 


CC 


c 


00363 


LDQ 


$LCH 


12112 


-0620 


CC 





12176 


SLQ 


GCROD 


_ 12113 


766 


CO 





01341 


WPUA 





DUMP THE COMMA 

CLAEft AC 

CHANELL LETTER IN AC 

IN INDICATORS 

TRY CJHAN. C 

SKIP IF C 

TRY B 

SKIP IF B OR C 

IF NO SKIP, M.UST BE A 

TAPE NUMBER IN AC 

MASK OUT ALL BUT 4 LOW ORDER BITS 

NEXT WORD IN INDICATORS 

SKIP IF LEFT WOST CHARACTER IS A 



IF LEFT MOST IS ADD 9 TO THE 1 
RESULT TQ INDEX 1 
ZERO UNIT DOES NOT GO 
UNITS OVER TEN DON T GO 
OVER 10, COMPLAIN 



POSITION TAPE DESiG 



ALL IN AC 

GO COMPLAIN 

OR IN BIN OR BCD FOR THAT TAPE 

OR IN PROPER CHANEL DESIGNATION 

CHANGE TAPE ASSIGNMENT 

MAKE OUTPUT MESSAGE BY GETTING NAME 

PUT INTO MESSAGE 

SKIP FOLLOWING IF NOT SYSTAP 

SET UP 1-0 COMMANDS FOR SYSTAP 
MAKE PROPER SYSTEM CALL CARD 
AND SET UP BOOT STRAP RECORD 



PUCH OUT THE 2 CARD CALLER 



LS057270 
LS057280 
LS057290 
LS057300 
LS057310 
LS057320 
LS057330 
LS057340 
LS057350 
LS057360 
LS057370 
LS057380 
LS057390 
LS057400 



LS057410 
LS057420 
LS057430 
LS057440 
LS057450 
LS057460 
LS057470 
LS057480 
LS057490 
LS057500 
LS057510 
LS057520 
LS057530 
LS057540 
LS057550 
LS057560 
LS057570 
LS057580 
LS057590 
LS057600 
LS057610 
LS057620 



LS057630 
LS057640 
LS057650 
LS057660 
LS057670 
LS057680 
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12114 
12115 
12116 
12117 
12120 
12121 
12122 
12123 
12124 
12125 
1212 6 
12127 
1213C 
12131 
12132 
12133 



CO 
CO 
CO 
CO 
CO 
CO 



0540 
0500 
•C5G1 
0621 
0625 
0074 
C 000 CO 
000C5 
0774 CO 
0774 CO 
C774 00 
0020 CO 
606CG0 
31626C454 
604331624 
0000-00000 



12202 
12155 
12167 
12130 
12130 
01527 
00365 
12130 
OOOOO 
COOOO 
CO 000 
11140 

000 

666 

760 

OGO 



OVTXX 



BINARY CARD NO. LISP0230 
12134 33606C6G6060 



12135 
12136 
12137 
12140 
12141 
12142 
12143 
12144 
12145 
1214 6 
12147 
12150 
12151 
12152 
12153 
12154 
12155 
12156 
12157 
12160 
12161 



6 2 7062 
627062 
627062 
627062 
6 2 706 2 
COOC 

cooc 

COOC 
COOC 
0000 
000 
0000 
0000 
COGOOC 
OOOOOC 
OOOOOC 
OOOOOC 
OOOOOC 

cooooo 

GOOOOO 
OOOOOC 



474763 

4 74 663 

4 73163 

6 34 447 

6 3214 7 

COOOO 
OOOOO 
OOOOO 
00020 
00020 
03200 
02 200 
01200 



C 













23C000 
220000 
210000 
COO 100 
C01160 
001060 
000760 
000660 



GVTPX 
OVTPY 
OVTPZ 

OVTPP 



RCHA 

CLA 

ORA 

STA 

STT 

TSX 



AXT 
A XT 
AXT 
TRA 
BCI 



OVTPO BCI 



OVTTB 



OVTCT 



QVCHN 



TABLES 
BCI 



PZE 
PZE 
PZE 
PZE 
PZE 
PZE 
PZE 
PZE 
BCI 



OVCLT BCI 



GCIOC 

CVCLT 

CVCTN 

OVTPP 

OVTPP 

OUTPU 

BCDOU 

OVTPP 

** ,4 

*#,2 

**, 1 

OVRLR 

3,0 



,2 
tl 



T,4 

T 

..5 



CHANNEL COMMANOS 

TELL WHAT YOU HAVE DONE BY MAKING 

A MESSAGE 



PRINT CUI THE NEW ASSIGNMENT 



RESTORE INDEX REGISTERS 



D GET NEXT DIRECTION CARD 

OOOIS NOW LISP 



2,000000. 



FOR OVTAP 
5,SYSPPTSYSP0TSYSPITSYSITMPSYSTAP 



16 
16 

3*512+2*64,, 3 
2*512+2*64,, 2 
1*512+2*64,,! 



LOW DENS, BCD PPT 
LOW DENS, BCD PIT 
LOW DENS, BCD POT 
HI DENS, BIN IMP 
HI DENS, BIN TMP 
CHANNEL C 
B 
A 



3,000C0O000600OOOA00 



LS057690 
LS057700 
LS057710 
LS057720 
LS057730 
LS057740 
LS057750 
LS057760 
LS057770 
LS057780 
LS057790 
LS057800 
LS057810 



LS057820 



LS057830 
LS057840 



LS057850 
LS057860 
LS057870 
LS057880 
LS057890 
LS057900 
LS057910 
LS057920 
LS057930 



9,0000100000 9 00008 00007 00006 00005 00004 O0O03 00002 LS057940 



BINARY CARD NC. LISP0231 



12162 
12163 
12164 
12165 
12166 
1216 7 
12167 



00000C000560 
C0G00C0G0460 
C0000CCGC360 
0OOO0C0O026O 
000O0CGG0160 

CG606C606060 



BCI 

OVCTN BSS 

CVSPC BCI 



1,00001 


1,0 



SPACING FOR CC PRINT 



* SYSTEM CALL CARD PERFORMS A LOAD TAPE SEQUENCE ON THE SYSIAP 
* 

12170 C00C6 C0011 GCRD IOCD 9,, 6 



LS057950 
LS057960 
LS057970 
LS057980 
LS057990 
LS058000 
LS058010 
LS058020 



LISP 1.5 FOR SHARE D LSTR IBUTIGN , 
OVERLORD 



MARCH 1965 



12171 
12172 
12173 
12174 
12175 
12176 
12177 
1220C 



0060 
0021 
0762 
5 40 
06 00 
0544 
0021 



CO 
CO 
CO 
CO 
CO 
CO 

cc 



1 00003 



00001 
00011 
01221 
00016 
0OOQ1 
OOOQO 
00001 
OOOQO 



GCRD8 

GCRDC 

GCRDD 



TCOA 

TTR 

RT8A 

RCHA 

STZ 

LCHA 

TTR 

IOCT 



12201 0000 CO 00371 GCROE HTR 



12202 


2 


12203 


2 


12204 


2 


12205 


2 


12206 


C 



COO 11 12170 
000C1 12201 
OOOCC 12206 
COOCO 12206 
COOCC 00000 



12207 0634 CO 4 00575 



BINARY CARD NC. 

12210 0C54 

12211 0020 

12212 0054 

12213 0074 

12214 CC54 

12215 0074 

12216 0057 

12217 CC55 
1222C 0055 

12221 0604 

12222 0534 
1222 3 020 



LISP0232 



CO 
CO 

cc 
cc 

CO 
CO 
CO 
CC 
CO 
CC 
CC 
CO 



000100 

12 22 

000002 

4 01006 

000001 

4 01024 

GG0001 

000002 

000100 

11254 

4 005 75 

4 00001 



11140 
11140 
1114G 



GC IOC 



ICRP 
ICRP 
ICRP 

ICRP 
I0CD 



000100 TAPING BOOL 



1 

9 

1 

14 

1 



1 

0,,3 

CONTIN 

GCRD,,9 
GCRDE,, 1 
*+2,,0 
*+lttO 
0..0 

100 



9/20/67 



SELECT THE SYSTEM TAPE 

STOP IF TAPE DOES NOT LOAD 

LOAD 1-0 COMMAND FROM TAPE 

TRANSFER TO ONE 

LOAD FIRST 3 WORDS FROM TAPE 

SECOND CARD OF CALLER 

BECOMES A TRANSFER CARO 

1-0 COMMANDS TO PUNCH CALL CARDS 

TRANSFER CARD 
2 BLANK CARDS 

DISCONNECT CHANNEL 



PAGE 126 



* 
* 

9 
* 

CVTPR 



GVTJJ 



CVSCR 
OVFSCR 

OVLD 
« 



OVERLORD TAPE AND DISK 
SXA 0VTX4,4 



ASSIGNMENT CHANGE RITUAL 



RFT 
TRA 
RFT 
TSX 
RFT 
TSX 
RIR 
SIR 
SIR 
STI 
LXA 
TRA 



TAPING 

DVTJJ 

2 

TAPDMP,4 

1 

0VLT,4 

1 

2 

TAPING 

SYSIND 

0VTX4,4 

1,4 



SKIP IF LAST CARD WAS NOT A 

SKIP READ AND WRITE SECTION 

TEST FOR TAPE DUMP ON SYS7MP 

DO IT 

TEST FOR *EAD 

GET NEW IMAGE 

RESET READ INDICATOR 

SET WRITE INDICATOR 

SET TAPE DIRECTION INDICATOR 

UPDATE SYSTEM INDICATORS 

MIKE REALLY WAS RIGHT 



TAPE CARD 



OVERLORD DISK ROUTINES FOR TAPE LISP 



SYN 
SYN 
SYN 



OVRLRD 
OVRLRD 
OVRLRD 



LS058030 
LS058040 
LS058050 
LS058060 
LS058070 
LS058080 
LS058090 
LS058100 
LS058110 
LS058120 
LS058130 
LS058140 
LS058150 
LS058160 
LS058170 
LS058180 
LS058190 
LS058200 
LS058210 
LS058220 
LS058230 
LS058240 
LS058250 
LS058260 



LS058270 
LS058280 
LS058290 
LS058300 
LS058310 
LS058320 
LS058330 
LS058340 
LS058350 
LS058360 
LS058370 
LS058380 
LS058390 
LS058400 
LS058410 
LS058420 
LS058430 
LS058440 
LS058450 
LS058460 
LS058470 



'mm 



mmm 



LISP 1 



.5 FOR SHARE DISTRIBUTION. 
EVALQUOTE 



MARCH 1965 



9/20/67 
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TTL 

HEAD 



EVALG 



EVALQUOTE 
S 



A SUCCESSOR TO 
(AS OF 1 MARCH 



12224 


6 34 CO 


4 


12342 


EVALQ SXA 


EVLQX.4 


12225 


0634 00 


2 


12343 


SXA 


EVLQY,2 


12226 


500 CO 





00615 


CLA 


$TSIND 


12227 


0601 CO 


c 


12502 


STO 


EVTS 


12230 


0074 CO 


4 


01725 


TSX 


EVTIME.4 


12231 


0520 CO 





12502 


ZET 


EVTS 


12232 


0020 CO 





12451 


TRA 


TSEVQ 


1223 3 


0074 CO 


4 


01527 


TSX 


OUTPUT, 4 


12234 


COOCO 





00365 




BCDOUT 


12235 


00014 





12511 




EVQBM,,12 


BINARY CARD NO. LISP0233 






12236 


0600 CO 





12507 


STZ 


EVQRTS 


12237 


0600 CO 





04414 


STZ 


EVQB 


12240 


774 CO 


2 


00144 


AXT 


EVQBL,2 


1224 1 


6 34 CO 


2 


12375 


EVQRO SXA 


EVQRX,2 


1224 2 


-0625 CO 





02423 


STL 


8ACKT1 


12243 


0074 CO 


4 


06560 


TSX 


$READ,4 


12244 


0601 CO 





04247 


STO 


EVGAN 


12245 


340 CO 





12510 


CAS 


EVQSP 


12246 


0020 CO 





12250 


TRA 


*+2 


1224 7 


1 0O0C1 


2 


12263 


TXI 


EVQPO, 2,1 


12250 


0520 CO 





04414 


ZET 


EVQB 


12251 


0020 CO 


c 


12255 


TRA 


EVQA 


12252 


-0625 CO 





04414 


STL 


EVQB 


12253 


0601 00 


2 


04414 


STO 


EVQB ,2 


12254 


0020 CC 





12241 


TRA 


EVQRD 


12255 


-0734 CO 


L 


00000 


EVQA PDX 


0,4 


12256 


0754 00 


4 


OOOQG 


PXA 


0,4 


12257 


0621 CO 


2 


04414 


STA 


EVQB, 2 


12 260 


600 CO 





04414 


STZ 


EVQB 


12261 


2 00001 


2 


12241 


TIX 


EVQRD,2,1 


12262 


0020 CO 


C 


12264 


TRA 


EVQOP 


12 263 


0074 CO 


4 


07136 


EVQPO TSX 


TEREAD,4 


BINARY CARD NC. LISP0234 






12264 


-0634 CO 


2 


12334 


EVQOP SXD 


EVQTH,2 


12265 


-0625 CO 





12507 


STL 


EVQRTS 


12266 


774 CO 


2 


00144 


AXT 


EVQBL,2 


12267 


0634 00 


2 


12331 


EVULP SXA 


EVG£K,2 


1227C 


0074 00 


4 


01505 


EVQS TSX 


SPACEX,4 


12 271 


COOCO 





01523 




6SPACE 


12272 


500 


2 


04414 


CLA 


EVQB, 2 


12273 


0600 CO 


2 


04414 


STZ 


EVQB, 2 


12274 


0600 CC 


c 


Q4060 


STZ 


$ALIST 


12275 - 


-0734 CO 


4 


00000 


PCX 


0,4 


12276 


0560 CC 





00424 


LDQ 


$ZERO 


12277 - 


-C765 CO 


c 


CC022 


LGR 


18 



THE APPLY 
1961) THE 

SAVE 
SAVE 



OPERATOR, 
EVALQUOTE 



THE GRAND 
OPERATOR. 



NEW 



LINK 
IR 2 



IR 



TS 

YES 

WRITE 



OPENNING MESSAGE 



INITIALIZE TEST CELLS 

DITTO 

LENGTH OF EVAL QUOTE BUFFER 

SAVE INDEX 2 INCASE OF READ ERROR 

READ THE INPUT LISTS 
SAVE THE LIST 
COMPARE WITH STOP ATOM 
IS NOT 

SKIP IF FIRST LIST OF DOUBLET 

IS SECOND LIST 

FLIP SWITCH 

SAVE FIRST LIST OF DOUBLET IN BUFFER 

GET NEXT LIST 

LIST TO INDEX 

MOVE TO ADDRESS 

SAVE SECOND LIST OF DOUBLET IN BUFFER 

FLIP SWITCH 

GET NEXT LIST 



INDEX VALUE OF LAST LIST READ IN 

SET ERROR RETURN SWITCH 

LENGTH OF BUFFER 

SAVE IND8X VALUE 

WRITE OUT SOME BLANK LINES 

3 DOUBLE SPACES 
PICK UP FIRST ITEM IN BUFFER 
ZERO THE BUFFER ENTRY 
RESET ALIST 
MAKE AN ATOM TEST 

SECOND LIST INTO MQ 



LS058480 
LS058490 
LS058500 
LS058510 
LS058520 
LS058530 
LS058540 
LS058550 
LS058560 
LS058570 
LS058580 
LS058590 
LS058600 
LS058610 
LS058620 
LS058630 
LS058640 



LS058650 
LS058660 
LS058670 
LS058680 
LS058690 
LS058700 
LS058710 
LS058720 
LS058730 
LS058740 
LS058750 
LS058760 
LS058770 
LS058780 
LS058790 
LS058800 
LS0588I0 
LS058820 
LS058830 
LS058840 
LS058850 
LS058860 



LS058870 
LS058880 
LS058890 
LS058900 
LS058910 
LS058920 
LS058930 
LS058940 
LS058950 
LS058960 
LS058970 
LS058980 



42 



OV 
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1230C 
12301 
12302 
12 303 
12304 
12305 
12306 
12 307 
12310 
12311 



-0754 CO 4 OCOOC 
0C74 CO 4 10565 
OOOCO 00002 
602565 214 350 
644663256060 



-0774 
0634 
7 74 
0634 
06C1 



CO 
CO 
CO 
CO 
CO 



12321 
12 32 
15721 
12321 

12504 



PXD 0,4 

TSX PRINAR,4 

2 

BCI 2, EVALQUOTE 

EVTPl AXC EVQFT,4 

SXA EVQD, 4 

EVQMP AXT $APPLY,4 

SXA EVQFT,4 

STO EVQAC 



FIRST LIST INTO AC 
PRINT HEADING 



SET RETURN INDES CELL 



LS058990 
LS059000 
LS059010 
LS059020 



LS059030 

LS059040 

SET CELL OF PROGRAM TO BE EXECUTED LS059050 

INITIALIZE PROGRAM TO BE EXECUTED CELLLS059060 

SAVE AC LS059070 



BINARY CAR 
12312 
12 313 
12 314 
12315 
12316 
12317 
12320 
12 321 
12322 
12 32 3 
12324 
12325 
12 326 
12327 
12330 
12331 
12332 
12333 
12334 
12335 

12336 
12337 



D NC. LISP0235 

-0734 00 4 OOOQO PDX 0,4 

0500 00 4 OCOOO CLA 0,4 

0734 00 4 00000 PAX 0,4 

3 77776 4 12377 TXH £VQAT,4,-2 

5 00 CO 12 504 EVQNF CLA EVQAC 

0600 CO 04063 EVQZ STZ $ARG3 
0774 CO 4 00000 EVQD AXT **,4 
0020 CO 00000 EVQFT TRA ** 

0601 CO 04247 EVQE STO EVQAN 
0074 OC 4 01527 TSX OUTPUT, 4 
OOOCO 00365 BCDOUT 

0OOC5 12525 EVQAM, ,5 

500 CO 04247 CLA EVQAN 

0074 CO 4 05342 TSX $PRINT,4 

0600 CC 04247 STZ EVQAN 

0774 CO 2 00000 EVQE A AXT **,2 

0520 CO 12502 ZET EVTS 

0020 CO 12451 TRA TSEVQ 

-3 OOOCO 2 12336 EVQTH TXL EVQDN,2,*» 

2 0O0C1 2 12267 TIX EVQLP,2,1 

12336 EVQDN SYN * 

0074 CC 4 01741 TSX EVTIM3.4 

0074 CC 4 01527 TSX OUTPUT, 4 



FIRST LIST TO IR 4 



TRANSFER IF FIRST LIST IS ATOMIC 

RESTORE AC 

NULL ALIST FOR APPLY 

RETURN INDEX REGBSTER 

PROGRAM TO 88 EXECUTED 

SAVE ANSWER 

PRINT END OF EVALQUOTE MESSAGE 



PICK UP ANSWER 

PRINT IT 

ZERO TEMP STORAGE 

ERRORS COME BACK HERE, RESTORE IR 2 

TS 

YES 

EXIT IF LAST DOUBLET EXECUTED 

EXECUTE NEXT OOUBLET 



PRINT COLSING MESSAGE 



LS059080 
LS059090 
LS059100 
LS059110 
LS059120 
LS059130 
LS059140 
LS059150 
LS059160 
LS059170 
LS059180 
LS059190 
LS059200 
LS059210 
LS059220 
LS059230 
LS059240 
LS059250 
LS059260 
LS059270 
LS059280 
LS059290 
LS059300 



BINARY CARD NC. LISP0236 



12 340 
12341 
12342 
12343 
12344 



12345 
12346 
12 347 
12350 
12 351 
12352 
12353 
12354 
12355 
12356 



OOOCO 
0OC05 
0774 CO 
0774 GO 
0020 CO 



0634 
-0734 
C5C0 
0560 
•0765 
734 
G5C0 
0767 
0131 
0020 



CO 
CO 
CO 
CO 
CO 
CC 
CC 
CO 
00 
CO 



00365 
12532 
4 OGOQC 
2 COOQO 
4 00001 



12320 
OOOOC 
OOOQO 
00424 
00022 
COOOO 
00000 
00022 
00000 
12307 



EVLQX 
EVLQY 

* 

EVALQT 



AXT 
AXT 
TRA 



BCDOUT 

EVQME,,5 

**,4 

**,2 

1,4 



RESTORE LINK IR 



EXIT 



EVALQT LISP ENTRANCE TO EVALQUOTE 



SXA 
PDX 
CLA 
LDQ 
LGR 
PAX 
CLA 
ALS 
XCA 
TRA 



EVQD, 4 
0,4 
0,4 
$ZERO 
18 
0,4 
0,4 
18 

EVQMP 



SET RETURN INDEX CELL 



GO TO MAIN PROGRAM 



LS059310 
LS059320 
LS059330 
LS059340 
LS059350 
LS059360 
LS059370 
LS059380 
LS059390 
LS059400 
LS059410 
LS059420 
LS059430 
LS059440 
LS059450 
LS059460 
LS059470 
LS059480 



LISP 1.5 FOR SHARE DISTRIBUTION, 
EVALQUOTE 
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12357 0074 CC 4 07136 



12360 0074 CO 

12361 0074 00 

12362 0074 GO 

12363 0520 GC 

12364 0020 GO 



4 06026 
4 06246 
4 03200 
12502 
12451 



12365 0520 CO 12507 



BINARY CARD NC. LISP0237 



12366 
12367 
12 37C 
12 371 
12372 
12 37 3 
12374 
12375 
12376 



12377 
12400 
12401 
12402 
12403 
12404 
12405 
12406 
1240 7 
12410 
12411 
12412 
12413 



0020 CO 
•0625 CO 
0074 CO 
COOCO 
C0012 

5 CO CO 
0074 CC 
0774 CO 

1 C00C1 



•C734 00 

-3 COOCO 

0500 CO 

0734 CO 

-0625 CC 

-3 10437 

■3 10440 

•3 11703 

■3 117C4 

0600 CO 

-3 11627 

-3 11630 

-3 11666 



4 
4 
4 
4 
C 
4 
4 
4 
4 

4 

4 



12331 

12507 
01527 
00365 
12537 
04247 
05342 
00000 
12 2 64 



00000 
12316 
00000 
COOOG 
12506 
12406 
1243 7 
12410 
12415 
12506 
12413 
12437 
12377 



BINARY C 
1241 
1241 
1241 
1241 
1242 
1242 
1242 
1242 
1242 
1242 
1242 
1242 
1243 
1243 
1243 
1243 



ARD N 

4 3 

5 -07 

6 05 

7 07 

-07 

1 05 

2 00 

3 06 

4 -06 

5 -07 

6 01 



C. LI 
1166 7 
34 CO 



-07 

CO 
01 
05 
00 



CO 
34 
54 
20 
20 
01 
CO 
54 
31 
54 
74 
31 
00 
74 



CC 
00 
GO 
CO 
CC 
CO 
CC 
CO 
CO 
CO 
CC 
00 
CC 
CO 



SP0238 
4 12377 
00000 
00000 
00000 
CCOOO 
12506 
12317 
04247 
1250 5 

oeooo 

00000 
COOOG 
04471 
00000 
12505 
04471 



4 

4 
4 
4 


C 





c 

4 



4 



* ERROR RETURNS CONTROL HERE 
* 

EVQERR 



EVQRX 






CASE 



EVQAT 



TSX 
TSX 
TSX 
TSX 
ZET 
TRA 
ZET 



TRA 
STL 
TSX 



CLA 
TSX 
AXT 
TXI 



EVQFX 



TEREAC4 

"tERPRI,4 

TERPUN,4 

TEKPDL.4 

EVTS 

TSEVQ 

EVQRTS 



EVGER 

EVQRTS 

OUTPUT, 4 

BCDOUT 

EVGRE,,10 

EVQAN 

SPRINT, 4 

**,2 

EVQ0P,2,1 



CLEAN 

CLEAN 

CLEAN 

RESET 

TS 

YES 

SKIP IF 



UP READ BUFFER 
UP PRINT BUFFER 
UP PUNCH BUFFER 
PUSH DOWN LIST 



IN REAC IN SECTION OF 



LS059490 
LS059500 
LS059510 
LS059520 
LS059530 
LS059540 
LS059550 
LS059560 
LS059570 
EVALQUOTLS059580 



PICK UP LAST LIST READ IN 

RESTORE IR 2 TO RIGHT VALUE 
SET IR 2 TO PROER VALUE 



EXECUTE NEXT DOUBLET LS059590 

MOVE TO OPERATE SECTION OF EVALQUOTE LS059600 
MESSAGE THAT READ WAS ERROR TERMINATEDLS059610 

LS059620 
LS059630 
LS059640 
LS059650 
LS059660 
LS059670 
LS059680 
LS059690 
LS059700 
LS059710 
LS059720 
LS059730 
LS059740 
LS059750 
LS059760 
LS059770 
LS059780 
LS059790 
LS059800 
LS059810 
LS059820 
LS059830 



LS059840 
LS059850 
LS059860 
LS059870 
LS059880 
LS059890 
LS059900 
LS059910 
LS059920 
LS059930 
LS059940 
LS059950 
LS059960 
LS059970 
LS059980 
LS059990 



FOR AT 


3MIC FIRST LIST OF 


DOUBLET 




POX 


0,4 






TXL 


EVGNF,4,0 


EXIT IF END OF 


ATOM 


CLA 


0,4 


NEXT WORD 




PAX 


0,4 


CAR OF ATOM 




STL 


EVQST 


SET SWITCH FOR 


SU8R OR EXPR 


TXL 


*+2,4,$SUBR-l 


LOOK FOR 5$SUBR 




TXL 


EVQFS,4,$SUBR 


TREAT AS FSUBR 


(ALMOST) 


TXL 


*+2,4,$EXPR-l 


LOOK FOR $EXRR 




TXL 


EVGFX,4,$EXPR 


TREAT AS FEXPR 


(ALMOSiT) 


STZ 


EVQST 


SET SWITCH FOR 


FSUBR OR FEXP 


TXL 


*+2,4,$FSUBR-l 


LOOK FOR FSUBR 




TXL 


EVQFS,4,$FSUBR 






TXL 


EVGAT,4,$FEXPR-1 


LOOK FOR FEXPR 




TXH 


EVQAT,4,$FEXPR 






POX 


0,4 


FOUND AN FEXPR 




CLA 


0,4 






PAX 


0,4 


THE EXPRESSION 


FOR THE FEXPR 


PXD 


0,4 


EXPRESSION TO AC 


ZET 


EVQST 


SKIP IF FEXPR 




TRA 


EVQZ 


GO TO APPLY CALL FOR EXPR 


STO 


EVQAN! 


SAVE THE EXPRESSION 


STQ 


EVGMQ 


SAVE MQ 




PXD 


0,0 


CLEAR 




XCA 




MQ AND 




PXD 


0,0 


AC 




TSX 


SCONS, 4 


NULL A LIST 




XCA 




INTO MQ 




CLA 


EVQMQ 


PUT SECOND LIS1 


" 1M AC 


TSX 


$CGNS,4 


CONS(L,A! 





LISP 1.5 FDR SHARE DISTRIBUTION, 
EVALQUOTt 



MARCH 1965 



12434 


0131 


CO 





00000 




XCA 




• 12435 


C5C0 


CO 





04247 




CLA 


EVQAN 


12436 


C020 


CO 





12317 




TRA 


EVCZ 


• 1243 7 


-0734 


CO 


4 


00000 


3t 

EVQF5 


PCX 


0,4 


12 44C 


5 CO 


CO 


4 


00000 




CLA 


C4 


1244 1 


734 


CO 


4 


00000 




PAX 


0,4 


BINARY CARD NC. 


LISP0239 








12442 


G5C0 


CO 


4 


ccooo 




CLA 


0,4 


• 12443 


0621 


CO 





12321 




STA 


EVQFT 


12444 


-0754 


00 





00000 




PXD 


0,0 


12445 


0131 


cc 





00000 




XCA 




• 12446 


0520 


CO 





12506 




ZET 


EVQST 


1244 7 


074 


CO 


4 


10712 




TSX 


SPREAD, 4 


12450 


0020 


CO 





12 320 


Jt 


TRA 


EVQD 














TS EVALQUOTE 


• 12451 


-0625 


CC 





00615 


TS6VQ 


STL 


$TSIND 


12452 


00 74 


CO 


4 


01527 




TSX 


OUTPUT, 4 


12453 


COOCO 





00365 






BCDOUT 


• 12454 


00001 





12503 






EVQM,,1 


12455 


0074 


CC 


4 


07136 




TSX 


TEREAD,4 


12456 


074 


CC 


4 


12465 




TSX 


TSRD, 4 


• 12457 


C6C1 


CC 





04413 




STO 


EVQB-1 


12460 


0074 


00 


4 


12465 




TSX 


TSRD, 4 


12461 


0131 


CO 





00000 




XCA 




• 12462 


C5 00 


CC 





04413 




CLA 


FVGB-1 


1246 3 


C600 


CC 


c 


04060 




STZ 


4ALIST 


m 12464 


002O 


CO 





12 30 5 




TRA 


EVTP1 


12465 


0634 


CO 


4 


12500 


TSRD 


SXA 


TSRR, 4 


12466 


0074 


CC 


4 


06560 




rsx 


$READ,4 


• 1246 7 


0340 


CO 





12510 




CAS 


EVQSP 


BINARY CARD NC. 


LISP0240 








• 12470 


0020 


CO 





12472 




TRA 


* + 2 


12471 


0020 


CO 





12336 




TRA 


EVQDN 


12472 


G601 


CO 





04412 




STO 


EVQ8-2 


• 1247 3 


0600 


CO 





00615 




STZ 


$TSIND 


12474 


0074 


CC 


4 


05342 




TSX 


$PRINT,4 


1247 5 


-0625 


CO 





00615 




STL 


$TSIND 


• 12476 


0500 


CO 





04412 




CLA 


EVQB-2 


12477 


0600 


00 





04412 




STZ 


EVQB-2 


_ 12500 


0774 


00 


4 


00000 


TSRR 


AXT 


-,4 


• 12501 


0020 


CO 


4 


00001 




TRA 


1,4 


1250 2 


COOGC 





GOOOC 


EVTS 


PZE 




• 12503 


601425655014 


EVQM 


8CI 


1, -EVG- 


12504 


OOOCC 





00000 


EVQAC 






• 12505 


00000 





coooo 


EVQMQ 






12506 


C 00000 





ccooo 


6VQST 






_ 12507 


GOO GO 





coooo 


EVQRTS 







9/20/67 



ANSWER TO ARC 2 

FEXPR 

GO TO APPLY FOR FEXPR 

FOUND FSUBR, GET TXL INSTRUCTION 



PAGE 130 



SAVE ADDRESS 

ZERO 

THE MQ AND PUT LIST IN AC 

SKIP IF FSUBR 

SPREAD THE ARGUMENTS 

EXECUTE THE SUBR OR FSUBR 



NOISE IF TS EVALQUOTE 



TEMPORARY 
DITTO 
TEST CELL 
TEST CEEL 



STORAGE 

IS NON-ZERO FOR SUBR OR 
IS ZERO DURING READ IN 



LS060000 
LS060010 
LS060020 
LS060030 
LS060040 
LS060050 
LS060060 



LS060070 
LS060080 
LS060090 
LS060100 
LS060110 
LS060120 
LS060130 
LS060140 
L SO 60 150 
LS060160 
LS060170 
LS060180 
LS060190 
LS060200 
LS060210 
LS060220 
LS060230 
LS060240 
LS060250 
LS060260 
LS060270 
LS060280 
LS060290 
LS060300 
LS060310 
LS060320 



LS060330 
LS060340 
LS060350 
LS060360 
LS060370 
LS060380 
LS060390 
LS060400 
LS060410 
LS060420 
LS060430 
LS060440 
LS060450 
LS060460 
LS060470 
LS060480 
EXPRLS060490 
LS060500 
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00144 

12510 10477 OOOOC 

12511 0C25652I4350 

12512 644663256046 

12513 472551216346 

12514 516021626046 

12515 266001056044 



EVQBL tQU 
EVQSP 
EVQBM BCI 



100 

,,$STCP 

7.0EVALQU0TE 



OPERATOR 



LENGHT OF 
STOP ATOM 
AS OF 15 



BUFFER 



MAR 1964. 



LS060510 
LS060520 
LS060530 



BINARY CARD 

12516 2 

12517 
12520 6 

1252 1 6 
12522 6 
125^3 2 
12 52 A 2 

12525 

12526 2 

12527 5 

12530 6 

12531 6 

12532 

12533 2 

12534 5 

1253 5 4 

12536 4 

12537 

12540 4 

12541 4 

12542 2 

12543 4 



NO. L 
15160 

4 336C 
3145 
04331 
04546 
53145 
52124 
02545 
66025 
06446 
06521 
03162 
12545 
66025 
06446 
64725 
6516C 
05125 
5276C 
43145 
46022 

5 6025 



ISP0241 

011106 

606060 

4 76463 

626 362 

666 022 

2 76051 

336060 

246046 

65 2143 

632573 

4 36425 

603333 

246046 

652143 

6 32 560 

512163 

606060 

212431 

632551 

216 325 

706021 

515146 



BCI 



EVQAM BCI 



EVQME BCI 



EVQRE BCI 



5, INPUT LISTS NOW BEING READ. 



5,CEND OF EVALQUOTE, VALUE IS 



5.1END OF EVALQUOTE OPERATOR 



LS060540 



LS060550 



LS060560 



9, DREADING TERMINATED BY AN ERRO«. LAST LIST READ IN IS LS060570 



BINARY CARD NO. L1SP0242 

12544 513360432162 

12545 636043316263 

12546 605125212460 

12547 3 14560316260 
1255C 6 0333 3 333 333 



12551 -0634 CO 

12552 CQ7<< CO 

12553 -3 12664 

12554 -0634 CO 






# 



BCI 



HED 
ERRORSETIE,N,SW,AL) 

ERRORSET ATTEMPTS TO EVALUATE ITS FIRST ARGUMENT- IF AN 
ERROR OCCURS DURING THE EVALUATION, OR IF MORE THAN N CONS-S 
OCCUR DURING THE EVALUATION, ERRORSET RETURNS WITH A VALUE OF 
AFTER RESTORING CONDITIONS TO WHAT THEY WERE BEFORE THE 
ATTEMPTED EVALUATION. IF THE EVALUATION SUCCEEDS, ERRORSET 
RETURNS LIST OF THE RESULT. IF SW = F» ERROR DIAGNOSTICS ARE 
SUPPRESSED, AND IF SW = T, THEY ARE INCLUDED. 
USED FOR THE EVALUATION. 



AL IS THE A-LIST 



4 


12653 


ERRS 


ET SXD 


HORN, 4 


H 


03104 




TSX 


$SAVE,4 





03153 




TXL 


$END8,,H0RN+9 


2 


12654 




SXD 


HORN+1,2 



LS060580 
LS060590 
LS060600 
LS060610 
LS060620 
LS060630 
LS060640 
LS060650 
LS060660 
LS060670 
LS060680 
LS060690 
LS060700 
LS060710 
LS060720 
LS060730 
LS060740 
LS060750 
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12555 


0634 


CO 


1 


12654 


12556 


0604 


CO 





12657 


12557 


-0734 


CO 


1 


COOOC 


12560 


-0 534 


CO 


4 


04O63 


12561 


0634 


CO 


4 


12655 


12562 


C131 


CO 





00000 


12 563 


-0734 


CO 


2 


OCOOO 


12564 


0074 


CO 


4 


14065 


12565 


0601 


CO 





12661 


12566 


0500 


CO 





04503 


12 567 


-0 320 


CC 





00513 


12570 


0400 


GO 





04650 


12571 


0402 


CO 


c 


12661 


BINARY CARD NG. 


LISP0243 


12572 


-0120 


CO 





12602 


12573 


-0760 


CO 





00003 


12574 


0601 


CO 





12660 


12575 


C5G0 


CO 





12661 


12576 


0621 


CO 





04503 


12577 


-0320 


CC 


C 


00521 


12600 


601 


CO 


C 


04650 


12601 


CC20 


CC 





12603 


12602 


06 00 


CO 





12660 


12603 


560 


CO 





04064 


12604 


502 


CO 





03110 


12605 


0601 


CC 


G 


12661 


12606 


-0625 


CC 





12662 


12607 


C774 


CO 


4 


12616 


1261C 


0634 


CO 


4 


12656 



12611 -0754 00 1 00000 

12612 CC74 CC 4 16521 

12613 0560 CO 00424 

12614 0074 CO 4 04471 

12615 0020 CO 12634 

12616 -C535 CO 4 12661 

12617 -0634 CO 4 12632 

BINARY CARD NO. LISP0244 



12620 
12621 
12622 
12623 
12624 
12625 
12626 
12627 
12630 
12631 
12632 
12633 



CO 20 
-053* 
-0 5 00 
-0320 

322 

0100 

74 

CC20 

0074 
-0 535 

3 000 C 
-0754 C 



12631 

03110 
77 777 
00515 
00505 
1263C 
03117 
12631 
17712 
03110 
12621 
CCOOO 



OBOE 



BSOON 



HARP 



TUBA 



SXA 


HORN+1,1 


STI 


HORN+4 


PUX 


0,1 


LXD 


$ARG3,4 


SXA 


ERNULL,4 


XCA 




PDX 


0,2 


TSX 


FIXVAL,4 


STO 


HORN+6 


CLA 


$CNTR1 


ANA 


$AMASK 


ADD 


$CNTS 


SUB 


HORN+6 


TMI 


OBOE 


SSM 




STO 


HORN+5 


CLA 


HORN+6 


STA 


$CNTR1 


ANA 


PDTMSK 


STO 


$CNTS 


TRA 


* + 2 


STZ 


HORN+5 


LDQ 


$ARG4 


CLS 


$CPPI 


STO 


HORN+6 


STL 


ICOUNT 


AXT 


BSOON, 4 


SXA 


EREXIT,4 


ATTEMPT TO PERFORM TH 


PXD 


0,1 


TSX 


$EVAL,4 


WE GET 


HERE IF THE EV 


LDQ 


$ZERO 


TSX 


$CGNS,4 


AN ERROR IN THIS CONS 


TRA 


SHAWM 


WE GET 


HERE IN CASE 


LDC 


HORN + 6, 4' 


SXD 


TUBA, 4 


TRA 


TUBA-1 


LXD 


$CPPI,4 


CAL 


-1,4 


ANA 


$PMASK 


ERA 


$GP5 


TZE 


*+3 


TSX 


UNSAVE,4 


TRA 


* + 2 


TSX 


C$UNWND,4 


LDC 


$CPPI,4 


TXH 


HARP, 4,** 


PXD 


0,0 



EXPRESSION TO BE EVALUATED 
ERROR BYPASS SWITCH 



GET CONS COUNTER LIMIT 



GET CURRENT CONS COUNT 



COMPARE WITH THE LIMIT 



TRA IF COUNTER NEED NOT BE CHANGED 
NEG. NUMBER FOR GARBAGE COLLECTOR 
SAVE I LIMIT - OLD COUNT) 
SET CONS COUNTER TO LIMIT 



TAKE 1IMIT = OLD COUNT 
A-LIST FOR EVALUATION 
SAVE PUSHDOWN POINTER 

TURN ON CONS COUNTER 
SET UP EXIT IN ERROR 

E EVALUATION 

EXPRESSION TO BE EVALUATED 

ALUATION WORKED 

FORM LIST OF THE RESULT 

ACTS LIKE AN ERROR IN THE EVALUATION 
RESTORE PARAMETERS AND EXIT 
F ERROR 

UNSAVE ALL RECURSIVE FUNCTIONS 
ENTERED SINCE THE ERROR 



TEST FOR STR FROM COMPILER 



RETURN VALUE OF NIL 



LS060760 
LS060770 
LS060780 
LS060790 
LS060800 
LS060810 
LS060820 
LS060830 
LS060840 
LS060850 
LS060860 
LS060870 
LS060880 



LS060890 
LS060900 
LS060910 
LS060920 
LS060930 
LS060940 
LS060950 
LS060960 
LS060970 
LS060980 
LS06099Q 
LS061000 
LS061010 
LS061020 
LS061030 
LS061040 
LS061050 
LS061060 
LS061070 
LS061080 
LS061090 
LS061100 
LS061110 
LS06U20 
LS061130 
LS061140 



LS06U50 
LS061160 
LS061170 
LS061180 
LS061190 
LS061200 
LS061210 
LS061220 
LS061230 
LS061240 
LS061250 
LS061260 
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RESTORE PARAMETERS FOR EITHER KIND OF EXIT 



12634 
12635 
12636 
1263 7 
1264C 
12 641 
12642 
12643 
12644 
12645 



0601 
0500 

•0320 
0400 
04C2 
0621 

•0320 
0601 
C534 

-0534 



cc 

CO 
GO 

CO 

cc 

CO 
CO 
CC 
CO 
CO 



12661 
04503 
00513 
G465C 
12660 
04503 
0C521 
04650 
L2654 
12654 



SHAWM 



BINARY CARD NO'. LISP0245 



12646 
1264 7 
12650 
12 651 
12 652 



12653 
12654 
12655 
12656 
12657 
12660 
12661 
12662 



0441 
0500 
CO 74 
-C534 
CC20 



CO 
CO 
CO 
CO 
CC 



12657 
12661 
4 03117 
4 12653 
4 00001 



•C OOOCC 

-0 OOOCC c 

-0 GOOCG 

-3 COOCO C 

-0 GOOCO 

•0 00000 

•G COOCO 

-C CCOCC 



11760 
00000 
12655 
12357 

ccooc 

00000 
00000 
00000 

12656 



HORN 

ERNULL 
EREXIT 



NUBPOL 
1CCUNT 

TERA2 



STG 
CLA 
ANA 
ADD 
SOB 
STA 
ANA 
STO 
LXA 
LXD 



LDI 
CLA 
TSX 
LXD 
TRA 



HORN+6 

$CNTR1 

$AMASK 

$CNTS 

HORN+5 

$CNTR1 

PDTMSK 

$CNTS 

HORN+1,1 

HORN+1,2 



HORN+4 
HCfRN+6 
UNSAVE,4 
HORN, 4 
1,4 



SAVE EXIT VALUE 
RESTORE CONS COUNTER 



RESTORE INDICATORS, IR1, AND IR2 



PICK UP EXIT VALUE 
RESTORE HORN BLOCK 
RESTORE IR4 AND EXIT 



PROTECTED TEMPORARY STORAGE FOR ERRORSET 



HEAD 

MZE 

MZE 

MZE 

TXL 

MZE 

MZE 

MZE 

MZE 

HEAD 

SYN 



H 
ERSETG 



EVGERR 



» , 



1+0) ERRORSET OBJECT IN A,, IR4 IN D 

(+1) IR1 IN A, IR2 IN D 

1+2) ZERO MEANS SKIP DIAGNOSTICS 

(+3) EXIT INSTURCTION FOR $ERROR 

(+4) INDICATORS 

(+5) CONS COUNTER INCREMENT 

(+63 PDL BACKUP POINT IN D 

1+7) NON-ZERO ACTIVATES CONS COUNTER 



C 
EREXIT 



LS061270 
LS061280 
LS061290 
LS061300 
LS061310 
LS061320 
LS061330 
LS061340 
LS061350 
LS061360 
LS061370 



LS061380 
LS061390 
LS061400 
LS061410 
LS061420 
LS061430 
LS061440 
LS061450 
LS061460 
LS061470 
LS061480 
LS06I490 
LS061500 
LS061510 
LS061520 
LS061530 
LS061540 



LISP 
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12663 
12664 
12665 
12666 
12667 
12670 
12671 
12672 



C634 
-0734 
0500 
0734 
0500 
7 34 
C5 00 
C7 34 



CC 
00 
CO 
CO 
CO 
00 
CO 
CC 



4 
4 
4 
4 
4 
4 
4 
4 



12674 
00000 
OGOOO 
OOOQO 
00000 
COOQC 
OOOQO 
CCOQO 



12673 -0754 CO 4 COOOO 



BINARY CARD NO. 

12674 0774 

12675 CC20 



LISP0246 
CC 4 00000 
CO 4 00001 



12676 
12677 
1270C 
12701 
12702 

12703 
12704 
12705 
12706 
12707 
1271C 
12711 
12712 
12713 
12714 
12715 
12716 

12717 
12720 



0634 CC 4 12674 

-C734 CO 4 OOOOG 

C500 CO 4 CCOOO 

•0734 CO 4 COOOO 

0020 CC 12667 



0634 

-0 734 
05C0 
734 
0500 

-0734 
CC20 
G634 

-0734 
C500 

-0734 
002-0 

634 
CC20 



4 
4 
4 
4 
4 
4 



CO 
CO 
CC 
CO 
CO 
CO 
CC 
CO 4 
CO 4 
CO 4 
CO 4 
CO 



CO 
CO 



12674 

CCOOO 
COOOO 
OOOQO 
COOOO 
CCOOO 
12671 
12674 
CCOOO 
CCOOO 
OOOQO 
12707 

12674 
12701 



* 
* 

* 
CAAARX 



AA 



A 



CAX 

CAADRX 



AAX 



CADARX 



AD 



CADDRX 



AOX 



12721 0634 CC 4 12674 CADRXX 

BINARY CARD NCI. L1SP0247 

12722 0020 CO 12715 



TIL 



HEAD 



SXA 
PDX 
CLA 
PAX 
CLA 
PAX 
CLA 
PAX 
PXD 



AXT 
TRA 

SXA 
PDX 

CLA 
PDX 
TRA 

SXA 
PCX 
CLA 
PAX 
CLA 
PCX 
TRA 
SXA 
POX 
CLA 
PDX 
TRA 



CAARXX SXA 
TRA 

SXA 



TRA 



*CRE LISP FUNCTIONS 

H 

EXTENDED CAR S AND CDR S FOR THE INTERPRETER 

CAX, 4 SAVE LINK IR 

0,4 

0,4 

C,4 

0,4 

0,4 

C4 

0,4 

0,4 



** ,4 
1,4 

CAX, 4 
C,4 
0,4 
0,4 

AA 

CAX, 4 

C,4 

0,4 

0,4 

0,4 

0,4 

A 

CAX, 4 

C,4 

0,4 

0,4 

AD 

CAX, 4 
AAX 

CAX,4 



AOX 



1272 3 


C634 


CO 


4 


12733 


CDAARX 


SXA 


CDX,4 


12724 


-0734 


CO 


4 


COOOO 




PDX 


0,4 


12 72 5 


500 


CO 


4 


CCOOO 




CLA 


0,4 


12726 


0734 


CO 


4 


COOOO 




PAX 


0,4 


12727 


0500 


CO 


4 


OCOOO 


DA 


CLA 


0,4 


12730 


C734 


CO 


4 


OOOQO 




PAX 


0,4 


12731 


0500 


CO 


4 


OOOOG 


D 


CLA 


0,4 


12732 


-0320 


CC 





00514 




ANA 


$DMASK 



RESTORE LINK IR 
EXIT 



LS061550 
LS061560 
LS061570 
LS061580 
LS061590 
LS061600 
LS061610 
LS061620 
LS061630 
LS061640 
LS061650 
LS061660 
LS061670 
LS061680 
LS061690 



LS061700 
LS061710 
LS061720 
LS061730 
LS061740 
LS061750 
LS061760 
LS061770 
LS061780 
LS061790 
LS061800 
LS061810 
LS061820 
LS061830 
LS061840 
LS061850 
LS061860 
LS061870 
LS061880 
LS061890 
LS061900 
LS061910 
LS061920 
LS061930 
LS061940 
LS061950 



LS061960 
LS061970 
LS061980 
LS061990 
LS062000 
LS062010 
LS062020 
LS062030 
LS062040 
LS062050 



mmmmm 



■MUM 



mmm 
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12733 
12734 
12 73 5 
12736 
12737 
1274C 
12741 

12742 
12743 
12744 
12745 
12 746 
12747 



0774 

C020 

C634 

-0 734 

0500 

-0734 

0020 

6 34 
-0734 
500 
0734 
050C 
-07?4 



CO 
CO 
00 
CO 
CO 
CO 
CO 

CO 
CO 
CO 
CO 
CO 
CO 



00000 
00001 
12733 
OOOQO 
COOOO 
00000 
12727 

12733 

COOOO 
00000 
00000 
00000 
00000 



CDX AXT 

TRA 

CDADRX SXA 

POX 

CLA 

DAX PDX 
TRA 

CODARX SXA 
PDX 
CLA 
PAX 
DD CLA 
PDX 



**, 4 
lt4 

CDX, 4 
C, 4 
0,4 
0,4 
DA 

CDX, 4 

0,4 

0,4 

0,4 

0,4 

0,4 



LS062060 
LS062070 
LS062080 
LS062090 
LS062100 
LS062110 
LS062120 
LS062130 
LS062140 
LS062150 
LS062160 
LS062L70 
LS062180 
LS062190 



BINARY CARD NO. 
12750 0020 



LISP0248 
CO 12731 



12 751 
12752 
12753 
12754 
12755 

12756 
12757 

1276C 
12761 



12762 
12 76 3 
12764 
12765 
12766 
12767 
1277C 
12771 
12772 
12773 
12774 
12775 



0634 
-0734 

5 CO 
-0734 

CC20 



634 
CC20 



CO 
CO 
CO 

CO 
00 

CO 
CO 



12733 
00000 
COOOO 
OCOOG 
12746 

127 33 

12740 



0634 CO 4 12733 
0020 CO 12 754 



0634 
6C1 
0500 
0601 
05C0 
0074 

-0734 
0500 
0734 

-0754 
0774 
0C2O 



CO 4 

CO 
CO 
CO 
CO G 



CO 
CO 
CO 
CO 
CO 
CO 
CO 



12774 
12777 
12776 
04063 
12777 
10631 
00000 
COOOO 
00000 
00000 
00000 
00001 



CDDDRX 



DDX 



CDARXX 



CDDRXX 



GET 



GETX 



TRA 

SXA 
PDX 
CLA 

PDX 
TRA 

SXA 

TRA 

SXA 
TRA 

HEAD 

SXA 

STO 

CLA 

STO 

CLA 

TSX 

PDX 

CLA 

PAX 

PXD 

AXT 

TRA 



D 

CDX, 4 
0,4 
0,4 
0,4 

DD 

CDX, 4 

DAX 

CDX,4 
DDX 

C 

GETX,4 

GETL 

FCN31 

$ARG3 

GETL 

$PR0P,4 

0,4 

0,4 

0,4 

0,4 



SAVE LINK IR 



**,4 



RESTORE LINK IR 



1,4 



LS062200 
LS062210 
LS062220 
LS062230 
LS062240 
LS062250 
LS062260 
LS062270 
LS062280 
LS062290 
LS062300 
LS062310 
LS062320 
LS062330 
LS062340 
L SO 62 350 
LS062360 
LS062370 
LS062380 
LS062390 
LS062400 
LS062410 
LS062420 
LS062430 
LS062440 
LS062450 
LS062460 



BINARY CARD NO. LISP0249 

12776 -3 OOOCO 12774 
12 777 COO CO COOOO 



1300 0634 CO 

13001 0634 CC 

13002 0601 CO 

13003 -0600 CC 



4 13017 
2 13020 
C 04 061 
04062 



FCN31 
GETL 
* 

* COMPAT 

* 

* 

COMPAT 



TXL 



SXA 
SXA 
STO 

STQ 



GETX, ,0 



FUNCTIONAL ARGUMENT LINKAGE PROGRAM BETWEEN COMPILED 
PROGRAMS AND APPLY FOR S-> EXP RE SSI ON FUNCTIONAL ARGUMENTS 



CX,4 
CY,2 
$ARG1 
$ARG2 



SAVE INDEX REGISTERS 

SAVE AC 
DITTO MQ 



LS062470 
LS062480 
LS062490 
LS062500 
LS062510 
LS062520 
LS062530 
LS062540 
LS062550 
LS062560 
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13004 


0560 CC 





00424 




LDQ 


$ZERO 


13005 


05G0 CO 


4 


00001 




CLA 


lf4 


13006 


0622 CO 





13022 




STO 


CA 


13007 


C737 00 


2 


GOOOO 




PAC 


C,2 


13010 


-3 COOCC 


2 


13015 


CI. 


TXL 


CD, 2,0 


13011 


C5C0 CC 


2 


04060 




CLA 


$ARG1-1,2 


13012 


0074 CO 


4 


04471 




TSX 


$C0NS,4 


13013 


0131 CO 





OCOOO 




XCA 




13014 


1 00001 


2 


13010 




TXI 


CL,2,1 


13015 


C500 CO 


C 


13022 


CO 


CLA 


CA 


13016 


0600 CO 





04063 




STZ 


$ARG3 


13017 


0774 CO 


4 


00000 


ex 


A XT 


**,4 


13020 


0774 CO 


2 


00000 


CY 


AXT 


**,2 


13021 


1 77777 


4 


15721 




TXI 


$APPLY,4,-1 


13022 


OOOCO 





00000 


CA 
F 


HED 












* 


PACK(CHAR) 










* 
* 


PACK 


ADDS ANOTHER C 



END OF ARGUMENT LIST 

ARGUMENTS FOR CQMPAT 

S-EXPRESSION FUNCTIONAL ARGUMENT 

COMPLEMENT NUMBER OF ARGUMENTS 

GO WHEN AIL DONE 

PICK UP ARGUMENT 

CONS ON TO ARGUMENT LIST 

LIST TO MQ 

GO BACK FOR NEXT 

FUNCTIONAL ARGUMENT 

ZERO PAIR LIST 

RESTORE INDEX REGISTERS 

GO TO APPLY AND ADJUST EXIT INDEX 
S-EXPRESSIQN GOES HERE 



13023 0771 CO 00022 



PACK ARS 



18 



GET CHARACTER CODE FROM 



LS062570 
LS062580 
LS062590 
LS062600 
LS062610 
LS062620 
LS062630 
LS062640 
LS062650 
LS062660 
LS062670 
LS062680 
LS062690 
LS062700 
LS062710 
LS062720 
LS062730 
LS062740 
LS062750 
LS062760 
LS062770 
LS062780 



BINARY CARD NC. 


LISP0250 








13024 


0402 


CO 





00556 




SUB 


HORG 


13025 


-0 765 


CC 


c 


00006 




LGR 


6 


13026 


-C5C0 


CC 


c 


13571 




CAL 


CHARS 


13027 


C140 


CO 





13 030 




TOV 


* + l 


13-0-30 


-0763 


CO 





00006 




LGL 


6 


13031 


0140 


CO 





13035 




TCV 


B5 


13032 


06G2 


CO 





13571 




SLW 


CHARS 


13033 


-C754 


CO 





00000 




PXD 


tO 


13034 


0020 


CO 


4 


00001 




TRA 


1.4 


13035 


0634 


CC 


4 


13044 


B5 


SXA 


Bl,4 


13036 


774 


CO 


4 


00024 


BFLOC 


AXT 


20 t 4 


13037 


06C2 


CC 


4 


13617 




SLW 


BCFF0,4 


13040 


-2 00001 


4 


13047 




TNX 


B3,4,l 


13041 


C5C0 


CO 





13405 




CLA 


Al 


1304 2 


C6C1 


CC 


c 


13571 




STO 


CHARS 


13043 


0634 


CO 


4 


13036 




SXA 


BFLOC, 4 


13044 


0774 


CO 


4 


00600 


Bl 


AXT 


,4 


13045 


-0754 


CC 


C 


OCOOO 




PXD 


,0 


13046 


CC20 


CO 


4 


00001 




TRA 


1,4 


13047 


-3 00000 


4 


13052 


B3 


TXL 


B4,4,0 


13050 


0634 


00 





130 36 




SXA 


BFLOC, 


13051 


0020 


CO 





13057 




TRA 


B6 


BINARY CARD NC. 


LISP0251 








13052 


0074 


CO 


4 


13140 


B4 


TSX 


$MKNAH,4 


13053 


0074 


CC 


4 


07246 




TSX 


INTRN1,4 


13054 


-C634 


CO 


4 


02313 




SXD 


$ERR0R,4 


13055 


074 


CO 


4 


02 314 




TSX 


$ERR0R+1,4 


13056 


54233C600I54 




BCI 


1,*CH 1* 


13057 


0500 


CC 


■o 


00525 


B6 


CLA 


SEVENS 


1306C 


C601 


CO 





13571 




STO 


CHARS 



LOCATION OF OBJECT 
PUT NEW CHARACTER INTO PACKED WORO 

SHUT OFF OVERFLOW LIGHT 

IF WORD FULL, PUT IT IN BUFFER 

CLEAR AC FOR EXIT 

EXIT 

SAVE IR4 

ADDRESS HAS INDEX FOR BOFFO 

STORE FULL WORD OF CHARACTERS 

IF BUFFER FULL, TRANSFER 

WHEN 1 SWIFTS PAST P BIT, 

NEW WORD HAS 6 CHARACTERS 
SAVE BUFFER INDEX 
RESTORE IR4 
CLEAR AC FOR EXIT 
EXIT 

IF MORE THAN 120 CHARS, TRANSFER 
SET INDEX TO SHOW BUFFER FILLED 



FORM OBJECT FOR E£ROR PRINTOUT 



TOO MANY CHARACTERS IN PRINT NAME 
BIT I IN CHARS WILL MAKE 
WORD LOOK FULL 



LS062790 
LS062800 
LS062810 
LS062820 
LS062830 
LS062840 
LS062850 
LS062860 
LS062870 
LS062880 
LS062890 
LS062900 
LS062910 
LS062920 
LS062930 
LS062940 
LS062950 
LS062960 
LS062970 
LS062980 
LS062990 
LS063000 



LS063010 
LS063020 
LS063030 
LS063040 
LS063050 
LS063060 
LS063070 



■MOT 



mm 



■M 



mmmmmmmm 



mmm 
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13061 C020 CO C 13044 



13062 
13063 
13064 
13065 
13066 
13067 
13070 
13071 
13072 
13073 
13074 
13075 
13076 
13077 

BINARY CA 
13 IOC 
13101 
13102 
1310 3 
1310 4 
13105 
13106 
13107 
131 1 G 
13111 
13112 
13113 
13114 
13115 
13116 
13117 
1312 
13121 
1312 2 
1312 3 
1312 4 
1312 5 



C6 34 

0140 

-0 500 

0560 

-0763 

-C140 

0534 

0602 

C500 

074 

100 

0120 

131 

560 

RD NO. 
0074 
5 34 
0020 

-0760 
0020 
0131 
0560 
0074 
0534 
0020 
0131 

-0120 
0340 
0020 
020 
361 
0767 
5 34 
0020 
0560 
0074 
774 



CO 4 
CO c 
CO 
CO c 
CO 
CO 
00 4 
CO 4 

cc 

GO 4 

GO 
CO 
CO 
CO 



13125 
13064 
13571 
00525 
00006 
13066 
13036 
13617 
13561 
07450 
13127 
13103 
QOOOO 
00533 



LISP0252 
CO 4 13624 



CO 
CO 
00 
GO 
00 
CO 

cc 

00 
CO 

CO 
CO 
00 
CO 
GO 
CO 
CO 
00 
CO 
CO 
CO 
CO 



4 






4 
4 

G 






4 


4 
4 



13125 
13172 
00.001 
13112 
00000 
00540 
13624 
1312 5 
13172 
00000 
13123 
00436 
13123 
13123 
00556 
00022 
13125 
13172 
00532 
13624 
00000 



* 
* 
* 
* 



NUMOB 



GV2 



GV6 



GV4 
GV1 



TRA Bl 

PACK USES $ERROR, 



$ERGR1, AND $Q1 



SPACE 5 

NUMOB 

NUMOB MAKES A NUMERICAL OBJECT CORRESPONDING TO 
CHARACTERS IN THE BUFFER BOFFO. 



THE BCD 



THIS ROUTINE HAS CROSS-REFERENCES TO THE INNARDS OF NUMBR 



SXA 
TOV 
CAL 
LOU 
LGL 
TNO 
LXA 
SLW 
CLA 
TSX 
TZE 
TPL 
XCA 
LDQ 



TSX 

LXA 
TRA 
PBT 
TRA 
XCA 
LDQ 
TSX 
LXA 
TRA 
XCA 
TMI 
CAS 
TRA 
TRA 
ACL 
ALS 
LXA 
TRA 
LDQ 
TSX 
AXT 



GV1,4 

# + 1 

CHARS 

SEVENS 

6 

*-l 

BFL0C4 

B0FF0,4 

PARAM 

NUMBR, 4 

GV3 

GV2 

FLOS 



$MKNG,4 

GV1,4 

CLEAR 

GV6 

$OCTD 
$MKN0,4 
GV1,4 
CLEAR 

GV4 

$Q10 

GV4 

GV4 

HORG 

18 

GV1,4 

CLEAR 

FIXS 

$MKNG,4 

,4 



SAVE IR4 

SHUT OFF OVERFLOW 

SHIFT SEVENS INTO 



LIGHT 

LAST PACKED WORD 



CONE WHEN I PASSES THROUGH 
PUT LAST WORD INTO BOFFO 



P BIT 



INPUT PARAMETER FOR NUMBR IS 

BEGINNING OF BOFFO 
ERROR IF ZERO IN AC 
TRANSFER *IF FIXED POINT OUTPUT 
GET NUMBER FROM Mfi 
FLOATING POINT SIGNAL 



FORM OBJECT 

RESTORE IR4 

RESET BOFFO AND EXIT 

OCTAL SIGNAL IN NUMBR OUTPUT 

TRA IF NOT OCTAL 



MAKE OCTAL NUMBER 



RESET BOFFO AND EXIT 
BRING THE NUMBER TO THE AC 
TEST FOR DIGITS THRU 9 



FORM OBJECT DIRECTLY 

RESTORE IR4 

FIXED POINT SIGNAL FOR $MKNO 
FORM NUMERICAL OBJECT 
RESTORE IR4 



LS063080 
LS063090 



LS063100 
LS063110 
LS063120 
LS063130 
LS063140 
LS063150 
LS063160 
LS063170 
LS063180 
LS063190 
LS063200 
LS063210 
LS063220 
LS063230 
LS063240 
LS063250 
LS063260 
LS063270 
LS063280 
LS063290 
LS063300 
LS063310 



LS063320 
LS063330 
LS063340 
L SO 6 3350 
LS063360 
LS063370 
LS063380 
LS063390 
LS063400 
LS063410 
LS063420 
LS063430 
L SO 6 3440 
LS063450 
LS063460 
LS063470 
LS063480 
LS063490 
LS063500 
LS063510 
LS063520 
LS063530 



mmmmmm mmmmmm 



mmmmmm 



IMMM 
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BINARY CARD NO. LISP0253 



13126 
13127 
1313 
13131 

13132 
13133 
13134 
13135 
13136 
13137 



C020 CC 
CC74 CC 
C COO CO 
C C0CC4 



13172 
01527 
00365 
13134 



-0754 CO OCOOC 
C020 CC 13125 
602551514651 
6 04564442225 

51606C54233C 
600254606060 



GV3 



GVA 



« 



TRA 


CLEAR 




RESE 


TSX 


CUT PUT, 4 
BCDOUT 
GVA, ,4 






BCI 


1,»CH 2* 




FLO A 


PXD 


0,0 




RETU 


TRA 


GV1 






BCI 


4, ERROR 


NUMBER 


*CH 2* 



RESET BOFFO ANO EXIT 



FLOATING POINT NUMBER OUT OF RANGE 



THIS ROUTINE USES $CONS, $MKNO, $ZERO,.$ERRGR, AND $ERORl 



LS063540 
LS063550 
LS063560 
LS063570 
LS063580 
LS063590 
LS063600 
LS063610 



LS063620 
LS063630 



SPACE 5 

MKNAM AND 



CLEARBUFF 



# 
* 



CLEARBUFF STARTS AT CLEAR ANO RESETS THE BUFFER BOFFO TO 

THE BEGINNING 

MKNAMU HAS AS OUTPUT A PNAME LIST STRUCTURE CORRESPONDING 
TO THE CHARACTERS IN THE BUFFER BOFFO. THE BEGINNING OF 
BOFFO IS RESET. 

THIS ROUTINE HAS CROSS-REFERENCES TO THE INNARDS OF PACK. 



1314C 0634 CC 4 13200 MKNAM SXA BB1,4 

13141 0634 CC 2 13170 SXA BBIR2,2 

13142 -0500 CC 13571 CAL CHARS 

13143 -0340 00 13405 LAS Al 

13144 C020 CO 13147 TRA BE5 

13145 -0754 CO OOOOO PXD ,0 

13146 0020 CO 1316C TRA BB2 

13147 0140 GO 1315C BB5 TOV *+l 

13150 0560 CC 00525 LDi> SEVNS 

13151 -0763 CO 00006 LGL 6 

13152 -0140 CO 13151 TNO *-l 

13153 0602 CC 13562 SLW Tl 

BINARY CARD NC. LISP0254 



13154 

1315 5 
13156 
13157 

1316 
13161 
1316 2 
1316 3 
13164 



0500 
074 
0560 
0074 
534 
3 00023 
0602 CO 
500 CO 
CG74 GO 



CO 
CO 
CO 
CO 
CO 



13562 CLA Tl 

4 C4451 TSX $CCNSW,4 

00424 LCQ ZERO 

4 04471 TSX $CCNS,4 

2 13036 BB2 LXA BFL0C,2 

2 13170 BB4 TXH BBIR2,2,19 

04415 SLW BBPNT 

2 13616 CLA BOFFO-1,2 

4 04451 TSX $C0NSW f 4 



SAVE IR4 
SAVE IR2 
IF CICHARS) as 1, 
NO SIGNIFICANT 



CHARS CONTAINS 
CHARACTERS 



NO SIGNIFICANT CHARACTERS IN CHARS 
SHUT OFF OVERFLOW LIGHT 
SHIFf SEVENS INTO LAST WORD 

OF LIST 

PUT P BIT INTO SIGN 



FORM POINTER TO LAST WORD OF LIST 



LOC OF LAST S1GNIFICAN BUFFER WORD 

TRA IF BUFFER EXHAUSTED 

SAVE DECREMENT FOR FUTURE USE 

GET NEXT WORD OF BUFFER 

TACK IT ONTO FRONT OF LIST 



LS063640 
LS063650 
LS063660 
LS063670 
LS063680 
LS063690 
LS063700 
LS063710 
LS063720 
LS063730 
LS063740 
LS063750 
LS063760 
LS063770 
LS063780 
LS063790 
LS063800 
LS063810 
LS063820 
LS063830 
LS063840 
LS063850 
LS063860 
LS063870 
LS063880 



LS063890 
LS063900 
LS063910 
LS063920 
LS063930 
LS063940 
LS063950 
LS063960 
LS063970 





LISP 


1.5 FOR SHARE 


DISTRIBUTION 


, MARCH 










FORE 


LISP 


FUNCTIONS 


1316 5 


C560 


CO 





04415 




LDQ 


BBPNT 


13166 


0074 


00 


4 


04471 




TSX 


$CGNS,4 


1316 7 


1 000C1 


2 


13161 




TXI 


BB4,2,1 


1317C 


0774 


CO 


2 


00000 


BBIR2 


A XT 


*»,2 


13171 


0020 


CO 


C 


13173 




TRA 


BB3 


13172 


0634 


00 


4 


13200 


CLEAR 


SXA 


BB1,4 


1317 3 


0560 


CO 





13405 


BB3 


LDQ 


Al 


13174 


-0600 


CO 





13571 




S'TU 


CHARS 


13175 


0774 


CO 


4 


00024 




axt 


20,4 


13176 


0634 


CO 


4 


13036 




SXA 


BFL0C,4 


13177 


0600 


GO 





04415 




STZ 


BBPNT 


13200 


C774 


CO 


4 


00000 


BB1 


AXT 


,4 


13201 


00 20 


GO 


4 


C0001 




JRA 


1,4 



1965 
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MOVE TO NEXT WORD OF BUFFER 
RESTORE IR2 

RESET POSITION IN BOFFO 
ENTRANCE FOR CLEARING BUFFER 
RESET CHARS CELL TO CHARACTERS 



SET INDEX IN PACK 

BUFFER WORD 
AVOID UNNECESSARY 
RESTORE IR4 
EXIT 



FOR FIRST 



GARBAGE COLL. 



LS063980 
LS063990 
LS064000 
LS064010 
LS064020 
LS064030 
LS064040 
LS064050 
LS064060 
LS064070 
LS064080 
LS064090 
LS064100 



* 
* 
•» 
•s 

* 
* 



SPACE 5 

ADVANCE, STARTREAD, 



AND ENDREAD PROGRAMS 



ADVANCE SETS CURCHAR TO THE NEXT CHARACTER 
STARTREAD READS A NEW RECORD 

ENDREAD MOVES TO THE END OF THE CURRENT RECORD AND 
GIVES ERROR OUTPUT, IF ANY 



LS064110 
LS064120 
LS064130 
L SO 64 140 
LS064150 
LS064160 
LS064170 
LS064180 



BINARY CA 
13202 
13203 
13204 
13205 
13206 
13207 
13210 
13211 
13 212 
13213 
13214 
13215 
13216 
13217 
13220 
13221 
13222 
13223 
13224 
13225 
13226 
1322 7 



RD NO. L 
-0634 C 
-0534 C 

2 0000 
-0 5 34 

2 0000 
-0 520 

0020 C 

1 COOC 
-06 34 C 

0020 
-0520 

020 

0600 

0774 
-C5G0 

0602 

0602 

2 0000 
74 
COOC 

0001 

1 OOOC 



ISP0255 
4 13211 
13227 
13240 
13230 
13234 
13 572 
13214 
132 64 
13211 
13216 
13505 
13224 
13505 
00014 
00527 
13560 
13523 
13221 
01170 
00000 
13524 
13304 



ADVANC 



4 
4 

4 
4 



4 




4 

k 
4 
4 
4 






BINARY CARD NO. LISPG256 

13230 1 00000 13257 

13231 -0625 CO 13572 

13232 0600 CO 13623 



PORK 
STREAO 

VEAL 



RUTH 



JOYCE 



SXD 
LXD 
TIX 
LXD 
TIX 
NZT 
TRA 
TXI 
SXD 
TRA 
NZT 
TRA 
STZ 
AXT 
CAL 
SLW 
SLW 
TIX 

rsx 



CHPOS TXI 



PORK, 4 

CHPOS, 4 

CHOPS, 4, 6 

W0NUM.4 

LAMB, 4, 1 

fcORTS 

VEAL 

STEW,,0 

PORK, 4 

* + 3 

ERSIG 

JOYCE 

ERSIG 

12,4 

BLANKS 

ERBFL.4 

ERBFU,4 

RUTH,4,1 

$INPUT,4 

$8CDIN 

8UFF-12,, 14 

RI8S,,0 



SAVE IR4 

FIND NO. OF CHARS. LEFT IN PACKED 
WORD 

FIND NEW PACKED WORD 

IF NEW RECORD NEEDED, CONTINUE 

IF NONZERO GIVE EOR AS OUTPUT CHAR- 
ACTER, OTHERWISE READ NEW RECORD 

READ A NEW RECORD 

SAVE IR4 



TURN OFF ERROR SIGNAL 

PUT 8LANKS IN ERROR BUFFER 



READ A NEW RECORD 



ERROR RETURN 



WDNUM TXI RUMP,, 
STL EORTS 
STZ $CHACT 



EOF RETURN 

SET SIGNAL FOR EOR OUTPUT NEXT TIME 

INITIALIZE CHARACTER COUNT 



LS064190 
LS064200 
LS064210 
LS064220 
LS064230 
LS064240 
LS064250 
LS064260 
LS064270 
LS064280 
LS064290 
LS064300 
LS064310 
LS064320 
LS064330 
LS064340 
LS064350 
LS064360 
LS064370 
LS064380 
LS064390 
LS064400 



LS064410 
LS064420 
LS064430 



mmmmmmmmmmmmmmm 
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13233 
13234 

1323 5 
13236 
13237 
1324C 

1324 1 
13242 
13243 
13.244 
13245 
13246 
1324 7 
13250 
13251 
13252 
13 2 5 3 
13254 
13255 

BINARY CA 
13256 
13257 
13260 
13261 
13262 
13263 
13264 
13265 
13266 
13267 
1327C 
13271 
13272 
13273 
13274 
13275 
13276 
1327 7 
1330C 
13 301 
13302 
13303 



0774 
-0634 

0500 

06C1 

0774 
-0634 
-0754 

0560 
-0763 
-0600 

7 34 

1 074 2 6 
C5C0 CO 
0400 
0601 

-0754 

0602 

0634 
-0 534 



00 
CO 
CG 
00 
00 
CC 
CO 
CC 
CO 
CO 
00 



CO 

CO 
00 
CO 
CC 
CC 



00014 
13230 
13540 
1356C 
00044 
13227 
OOOQO 
1356C 
00O06 
13560 
00000 
13247 
13623 
00425 
13623 
OOOQO 
13622 
13621 
13211 



LI 
CO 
CO 
CO 
CO 
CO 
CO 
CC 
CO 
CC 
CO 



RD NO. 
0020 
0534 
0020 

-0634 

-0634 

-0634 

-0520 
CC20 
0074 
0074 
COOCC 
C 00015 
0074 CO 
000 CO 
00015 
CC74 CO 
OOOCC 
C 00015 
0074 CO 
0534 CO 
0600 CO 
0020 CO 



SP0257 
4 00001 
00557 
13302 
13211 
13227 
13230 
13505 
13301 
06026 
01527 
00 365 
13506 
01527 
00 365 
13523 
01527 
00365 
13543 
06026 
00560 
13572 
13247 



4 

4 





4 
4 
C 

4 


4 


4 
4 


c 



AXT 

LAMB SXO 
CLA 
STO 
AXT 

CHOPS SXO 
PXO 
LDQ 

A6 LGL 
STQ 
PAX 
SHANK TXI 
BACON CLA 
ADO 
STO 
PXD 
SLW 
SXA 
LXD 



RUMP 



ENDREO 



STEW 



TRA 
LXA 
TRA 
SXD 
SXO 
SXD 
NZT 
TRA 
TSX 
TSX 



TSX 



TSX 



TSX 

SUZIE LXA 

JEAN STZ 

TRA 



12,4 

WDNUM,4 

BUFF, 4 

PWORD 

36,4 

CHP0S,4 

,0 

PWORD 

6 

PWORD 

0,4 

*+ 1,4, SHOO 

$CHACT 

$ttl 

SCHACT 

.4 

$CURC 

$CURC1,4 

PORK, 4 



1,4 

EOF, 4 

JEAN 

PORK, 4 

CHPOS,0 

WDNUM.O 

ERSIG 

SUZIE 

TERPRI ,4 

OUTPUT, 4 

BCDOUT 

ERBFU-13, ,13 

OUTPUT, 4 

BCOOUT 

BUFF-13,,13 

OUTPUT, 4 

BCDOUT 

ERBFL-13, ,13 

TERPRI ,4 

E0R,4 

EORTS 

BACON 



SET INDEX FOR START OF INPUT BUFFER 

PICK UP NEW PACKED WORD FROM 

INPUT BUFFER AND STORE IT 
INITIALIZE POSITION IN PACKED WORD 

PICK OFF ONE CHARACTER 



SAVE SHIFTED PACKED WORD 

POINTER TO NEW CHARACTER OBJECT 
BUMP CHARACTER COUNT 



SET CURCHAR TO NEW CHARACTER 
POINTER IN OECREMENT FOR BIN 
POINTER IN ADDRESS FOR APVAL1 
RESTORE IR4 



RETURN 
END OF 



FILE CHARACTER 



SAVE IR4 FOR EXIT (ENDREAD ENTRANCE) 
SET CHARACTER POSITION AND WORD 
NUMBER AT END OF RECORD 
TEST IF ERROR PRINTOUT NEEDED 

PRINT BLANK LINE 

PRINT UPPER ERROR BUFFER 



PRINT BAD LINE 



PRINT LOWER ERROR BUFFER 



PRINT BLANK LINE 
LOAD END OF RECORD 
SIGNAL TO READ NEW 



CHARACTER 
RECORD NEXT TIME 



LS064440 
LS064450 
LS064460 
LS064470 
LS064480 
LS064490 
LS064500 
LS064510 
LS064520 
LS064530 
LS064540 
LS064550 
LS064560 
LS064570 
LS064580 
LS064590 
LS064600 
LS064610 
LS064620 



LS064630 
LS064640 
LS064650 
LS064660 
LS064670 
LS064680 
LS064690 
LS064700 
LS064710 
LS064720 
LS064730 
LS064740 
LS064750 
LS064760 
LS064770 
LS064780 
LS064790 
LS064800 
LS064810 
LS064820 
LS064830 
LS064840 



BINARY CARD NC. LISP0258 

13304 -0634 CO 4 02313 

13305 0074 CO 4 02314 

13306 54233C600354 

00525 



RIBS SXO $ERR0R,4 

TSX $ERR0R+1,4 
BCI i,*CH 3* 
« TAPE READING ERROR 

SEVNS SYN SEVENS 



-ADVANCE, STARTREAD- 



LS064850 
LS064860 
LS064870 
LS064880 
LS064890 
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LITER(CHAR) 


13307 


-C634 


CO 


4 


13324 


LITER 


SXD 


AL1,4 


13310 


-0737 


CO 


4 


00000 




PDC 


0,4 


13 311 


C5G0 


CO 





13426 




CLA 


A2 


13312 


0402 


CO 


4 


03757 


AL3 


SUB 


CHTYP-$H00,4 


13313 


-0534 


CO 


4 


13324 




LXD 


AL1,4 


13314 


-0100 


CO 


C 


13317 




TNZ 


AL6 


13315 


0500 


CO 





00476 




CLA 


$QD1 


13316 


00 20 


CO 


4 


00001 




TRA 


1,4 


13317 


-0 7 54 


CO 





00000 


AL6 


pxn 


,c 


1332C 


020 


CO 


4 


CC001 




TRA 


1,4 
CPCHAR1CHAR) 


13321 


-0634 


CO 


4 


13324 


CPCHAR 


SXD 


AL1,4 


13322 


-0737 


CO 


4 


coooo 




PDC 


0,4 


13 32 3 


500 


CO 


C 


13425 




CLA 


A3 


1332 4 


1 CCO CO 


C 


13 312 


AL1 


TXI 


AL3, ,0 
















DIGIT (CHAR) 


1332 5 


0340 


CO 


c 


00561 


DIGIT 


CAS 


H0L9 


13 326 


0020 


CO 





13332 




TRA 


AL5 


13327 


0761 


CO 


c 


ccooo 




NCP 




13330 


05C0 


CO 





00476 




CLA 


$CD1 


13331 


0020 


CO 


4 


00001 




TRA 


1,4 


BINARY CARD NC. 


L1SP0259 








13332 


-0754 


CO 





00000 


AL5 


PXD 


,c 


13 33 3 


0020 


CG 


4 


00001 




TRA 


1,4 



COMPARE WITH TABLE ENTRY 

EXIT WITH T 
EXIT WITH F 



LS064900 
LS064910 
LS064920 
LS064930 
LS064940 
LS064950 
LS064960 
LS064970 
LS064980 
LS064990 
LS065000 
LS065010 
LS065020 
LS065030 
LS065040 
LS065050 
LS065060 
LS065070 
LS065080 
LS065090 
LS065100 
LS065110 
LS065120 
LS065130 
LS065140 



LS065150 
LS065160 



SPACE 5 
ERR0R1 

ER1 CREATES A VISUAL POINTER 
TO A READING ERROR 



IN ER8FU AND ERBFL 



13334 


-0625 


CO 





13505 


ER0R1 


STL 


ERSIG 


13335 


0634 


CO 


4 


13351 




SXA 


ERIR, 4 


13336 


500 


00 





00431 




CLA 


$Q5 


13337 


0560 


GO 





00460 




LDQ 


0CT41 


1334C 


-0 5 35 


CO 


4 


1322/ 




LDC 


CHP0S,4 


13 341 


-0763 


CO 


4 


77772 




LGL 


-6,4 


13342 


-0 5 34 


GO 


4 


13230 




LXD 


W0NUM,4 


13343 


-3 00000 


4 


13350 




TXL 


ERX, 4,0 


13344 


-0 602 


CO 


4 


13523 




ORS 


ERBFU,4 


13 345 


-G130 


00 





00000 




XCL 




13346 


0322 


CO 


4 


13560 




ERA 


ERBFL, 4 


13347 


0602 


CO 


4 


13560 




SLW 


ERBFL, 4 


13350 


-0754 


00 





00000 


ERX 


PXD 


,0 


13351 


0774 


00 


4 


00000 


ERIR 


AXT 


»*,4 


1335 2 


C02O 


GO 


4 


00001 




TRA 


1,4 



TURN ON ERROR SIGNAL 

SAVE IR4 

V FOR UPPER BUFFER 

A FOR LOWER BUFFER 

SHIFT BOTH LETTERS INTO POSITION 



CO NOTHING IF 
INSERT V INTO 



END OF RECORD 
UPPER BUFFER 



INSERT A INTO LOWER BUFFER 



RESTORE 
EXIT 



LR4 



LS065170 
LS065180 
LS065190 
LS065200 
LS065210 
LS065220 
LS065230 
LS065240 
LS065250 
LS065260 
LS065270 
LS065280 
LS065290 
LS065300 
LS065310 
LS065320 
LS065330 
LS065340 
LS065350 
LS065360 
LS065370 



mm 



M 
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13353 0634 CO 

13354 0634 CO 
1335 5 -0 7 34 00 
13356 C560 CO 
13 357 0774 CO 



4 13402 

2 13403 

4 00000 

4 GOOQC 

2 00006 



BINARY CARD NC. LISP0260 



13 360 
13361 
13362 
13363 
13364 
13365 
13366 

13367 
13370 
13371 
13372 
13373 
13374 
13 375 
13376 
13377 
13400 
13401 
13402 
13 403 
13404 



-0 754 CO 

-0763 CC 

0340 CO 

1 OO0C1 

1 000 CI 
C601 CO 

2 0O0C1 

0600 CO 
■3 00OC6 
0500 CO 
0400 

76 7 
0560 
0074 
0601 

1 000 CI 
0500 00 
0600 
0774 
0774 
020 



CO 

CO 
CO 

CO 
CO 



CO 

CO 
CO 
CO 







2 
2 
2 
2 


2 
2 




4 

2 


4 
2 

4 



00000 
G0O06 
00447 
13367 
13 36 7 
13570 
13 360 

04415 
13400 
13570 
00556 
00022 
04415 
04471 
04415 
13370 
04415 
04415 
00000 
00000 
OOOOi 



* 
■» 

* 
UNPACK 



UP2 



UP1 
UP4 



UP3 

UP 1.4 
UP 1,2 



SPACE 5 
UNPACK(NAME) 

UNPACKiNAME) GIVES A LIST 
IN THE CELL -NAME-, UP TO 



SXA 
SXA 
PCX 
LDQ 
AXT 



PXD 
LGL 
CAS 
TXI 
TXI 
STO 
TIX 

STZ 
TXH 
CLA 
ADD 
ALS 
LDQ 
TSX 
STO 
TXI 
CLA 
STZ 
AXT 
AXT 
TRA 



UPI4,4 

UPI2*2 

,4 

0,4 

6,2 



,0 

6 

$063 

UP 1,2,1 

LP1,2,1 

Tl+6,2 

UP2,2,1 

UPLST 

UP3,2,6 

Tl+6,2 

HGRG 

18 

UPLST 

SCONS, 4 

UPLST 

UP4,2,1 

UPLST 

UPLST 

* * , 4 

**,2 

1,4 



OF THE CHA*ACT€R OBJECTS 
THE FIRST 77- 

SAVE IR2 AND IR4 

PUT ARGUMENT CELL IN MQ 



LOOK AT A CHARACTER 



ADJUSf IR2 FOR CHARACTER 

COUNT 
STORE THE CHARACTER 



SET END OF LIST TO NIL 
EXIT IF ALL CHARACTERS 
PICK UP NEXT CHARACTER 
AND FORM OBJECT 



LISTED 



PUT CHAR AT HEAD OF LIST 



RETURN WITH LOCATION OF LIST 
AVOID UNNECESSARY GARBAGE COLL. 
RESTORE IR4 AND IR2 

EXIT 



THIS ROUTINE USES $CONS 



LS065380 
LS065390 
LS065400 
LS065410 
LS065420 
LS065430 
LS065440 
LS065450 
LS065460 
LS065470 
LS065480 



LS065490 
LS065500 
LS065510 
LS065520 
LS065530 
LS065540 
LS065550 
LS065560 
LS065570 
LS065580 
LS065590 
LS065600 
LS065610 
LS065620 
LS065630 
LS065640 
LS065650 
LS065660 
LS065670 
LS065680 
LS065690 
LS065700 
LS065710 
LS065720 



SPACE 



00556 
00 557 
00560 
00561 
00562 
00565 



13405 +CG0GOCCGCOC1 



HORG 

EOF 

£0R 

H0L9 

H0L14 

H0L40 

CHTYP 



SHOOA 
$H12A 
SH72A 
$H11D 
SH14D 
$H40D 

TITLE 

DEC 1,1,1, 



SYN 
SYN 
SYN 
SYN 

SYN 

SYN 



* * 



* * 



# # * 



STORAGE 



liltlf If 1 



= ILLEGAL CHARACTER 



LS065730 
LS065740 
LS065750 
LS065760 
LS065770 
LS065780 
LS065790 
LS065800 
LS065810 
LS065820 
LS065830 
LS065840 
LS065850 
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BINARY CARD NC. LISP0261 
13415 +000O0GG0OG01 
13425 +C0C00CO0O0O3 

BINARY CARD NO. LISP0262 
13435 +0O0OOC0OO002 
13445 +00CGGCGQG003 
13455 +CCCOOC00CO02 

BINARY CARD NO. LISP0263 
13465 +0CGCOCCGG0G4 
13475 +CCCCGCC00002 



00424 


ZERO 


13405 


Al 


13426 


A2 


13425 


A3 


00460 


0CT4 


00446 


A36 



13 505 

BINARY CARD NO. LISP0264 
13506 GC606C6G6060 
13523 

BINARY CARD NO. LISP0265 
1352 3 t 606C 606060 
1354C 
13543 

BINARY CARD NC. LISP0266 
13543 60606060:6060 
13 56C 
13560 

BINARY CARD NC. LISP0267 



13561 000 CI 

13562 

13571 
13572 
13617 
13617 

13620 



13573 
C0533 

00532 



BINARY CARD NO. LISP0268 

13621 000 CO 00000 

13622 G 00000 GOOOO 

13623 GOOCO 00000 



13624 0634 CG 4 13646 



DEC 1,1,4,3,3,0,0,0 
DEC 3,2,2,2,2,2,2,2 



DEC 2,2,4,4,4,0,0,0 
DEC 3,2,2,2,2,2,2,2 
DEC 2,2,4,4,3,0,0,0 



DEC 4,3,2,2,2,2,2,2 
DEC 2,2,4,4,4,0,0,0 
DETAIL 
SYN $ZERD 
SYN CHTYP 
SYN CHTYP+17 
SYN CHTYP+16 
SYN $0041 
SYN $Q36 
ERSIG BSS 1 



■BCI 
ER8FU BES 



BCI 

BUFF BES 

BES 



ER.BFL 

PWORD 



PARAM 

FLOS 

Tl 

FIXS 

CHARS 

EORTS 

80FF0 



04415 UPLST 



BCI 
BES 
BSS 1 



PZE 
SYN 
BSS 
SYN 
BSS 
BSS 
BES 
BSS 
SYN 
BSS 



CURC1 PZE 

CURC PZE 

CHACT PZE 

* MKNO 
* 

MKNO SXA 



1,0 
12 



1, 
12 

3 



1, 
12 



BOFFO-20,,1 

FLCATD 

7 

$FIXD 

1 

20 
1 

BBPNT 
1 



1 

2 



3 
4 



DIGIT 
LETTER 



OPERATION 
OfHER 



CHARACTER 



ERROR INDICATOR 



DOUBLE SPACE UNDER PROGRAM CONTROL 
UPPER ERROR BUFFER 



SINGLE SPACE UNDER PROGRAM CONTROL 

BUFFER FOR INPUT* RECORD 

ROOM FOR EXTRA WORDS IN READ-IN 



SINGLE SPACE UNDER PROGRAM CONTROL 
LOWER ERROR BUFFER 



NONZERO INDICATES EOR OUTPUT CHAR 

JUNK WORD FDR BOFFO REMNANTS 
CUMULATIVE LIST OF CHARACTERS 



LS065860 
LS065870 



LS065880 
LS065890 
LS065900 



LS065910 
LS065920 
LS065930 
LS065940 
LS065950 
LS065960 
LS065970 
LS065980 
LS065990 
LS066000 



LS066010 
LS066020 



LS066030 
LS066040 
LS066050 



LS066060 
LS066070 
LS066080 



LS066090 
LS066100 
LS066110 
LS066120 
LS066130 
LS066140 
LS066150 
LS066160 
LS066170 
LS066180 



A FUNCTION OF TWO 
ND IS A TYPE {FLO 
MKIR,4 



POINTER APPEARS W ADDRESS LS066190 

POINTER APPEARS IN DECREMENT LS066200 

CHARACTER COUNT LS066210 

L SO 662 20 

ARGUMENTS, THE FIRST IS A NUMBER, THE SECQLS066230 

OR FIX). MKNO FORMS A NON-UNIQUE NUMBER LS066240 

SAVE LINK IR LS066250 



m*m*mmmm 



IHlWPBIMWfliWWWW 
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13625 


-06CG 


CO 





04417 


L3626 


74 


CO 


4 


04451 


13627 


0131 


CO 





00000 


13630 


C5GO 


CO 





00514 


13631 


G074 


CO 


4 


04471 


13632 


-0534 


CO 


4 


04417 


13633 


0622 


CO 





04417 


13634 


0500 


CO 


c 


00475 


13635 


-3 11661 


4 


13640 


13636 


3 11662 


4 


13640 


13637 


0500 


CO 





00472 


13640 


-3 11644 


4 


13643 


13641 


3 1164 5 


4 


13643 


13642 


5 00 


GO 





G0473 


13643 


-C534 


CO 


4 


04417 


13644 


-0602 


00 


4 


coooc 


13645 


-G754 


CO 


4 


CC0Q0 


13646 


€774 


CO 


4 


COOOC 



BINARY CARD NO. LISP0269 

13647 0020 CO 4 00001 



13650 
13651 
13652 

1365 3 
13654 
13655 
13656 
13 657 
13660 
13661 
13662 
13663 

13664 
13665 

1366 6 
13667 
13670 
13671 

1367 2 
13673 
13674 



0100 
-0634 

0774 

06 34 

0074 
-3 13745 

0074 00 

00 74 

0560 
-0600 

560 

0020 



CO 
CO 
CO 

cc 

CO 



GO 
CO 

CO 
CO 

cc 



0100 
-06 34 

0774 

0634 

0074 
-3 13745 

00 74 CO 

0074 CC 

560 CC 



CO 
CO 
CO 
CG 
CO 



4 
4 
4 
4 
4 

4 
4 




c 

4 
4 

4 
4 
4 
C 

4 
4 





00001 
13743 
11423 
13 743 
03104 
03171 
17050 
03117 
00424 
13744 
13735 
13713 

OOOOi 
13743 
11433 
13743 
03104 
03171 
17050 
03117 
00525 



MKIR 



H 
* 
* 

* 
* 
* 



LOGOR 



* 

LOG AND 



STQ 


KKT1 


TSX 


$C0NSfc,4 


XCA 




CLA 


SOMASK 


TSX 


$CCNSi4 


LXD 


MKT1,4 


STO 


MKT1 


CLA 


$QT5 


TXL 


*+3,4,$FIX-i 


TXH 


*+2,4,$FIX 


CLA 


$QT1 


TXL 


*+3,4,$FL0AT-l 


TXH 


*+2,4,$FL0AT 


CLA 


$QT2 


LXD 


MKT1,4 


ORS 


0,4 


PXD 


0,4 


AXT 


**»4 



TYPE OF NUMBER TO MQ 



TYPE TO IR 4 
ASSUME IT IS OCTAL 



LOCATION OF NUMBER 
PUT IN NUMBER FLAG 
ANSWER TO AC 
RESTORE LINK IR 



TRA 



1,4 



HED 

LCGOR, LOGAND, AND L06X0R 



THESE 
EXCLU 
OBJEC 

TZE 

SXD 
AXT 
SXA 
TSX 
TXL 
TSX 
TSX 
LDQ 
STQ 
LDQ 
TRA 

TZE 
SXD 
AXT 
SXA 
TSX 
TXL 
TSX 
TSX 
LDQ 



FUNCTIONS TAKE THE LOGICAL AND, LOGICAL OR, AND LOGICAL 
SIVE OR RESPECTIVELY OF THEIR ARGUMENTS* WHICH ARE NUMBER 
TS. THE RESULT IS AN OCTAL NUMBER OBJECT. 



1,4 
Tl,4 
•$JPJ36,4 
Ti,4 
$SAVE,4 
$ENDl,,Tl+2 
$EVLIS,4 
UNSAVE,4 
$ZERO 
Tl + 1 
ORS 
L0G2 

1,4 
Tl,4 
•$)PJ37,4 
Tl,4 
$SAVE,4 
$ENDl,,Tl+2 
$EVLIS,4 
LNSAVE.4 
SEVENS 



RETURN IF INPUT 
SAVE IR4 

SET FUNCTION ON PDL 

SAVE 1 ITEM 

EVALUATE LIST OF ARGUMENTS 

OR OF NO ARGUMENTS 

INSTRUCTION FOR INNER LOOP 



EXIT WITH IF 4NPUT 
SAVE IR4 

SET FUNCTION CN PDL 

SAVE 1 ITEM 

EVALUATE LIST OF ARGUMENTS 

AND OF NO ARGUMENTS 



LS066260 
LS066270 
LS066280 
LS066290 
LS066300 
LS066310 
LS066320 
LS066330 
LS066340 
LS066350 
LS066360 
LS066370 
LS066380 
LS066390 
LS066400 
LS066410 
LS066420 
LS066430 



LS066440 
LS066450 
LS066460 
LS066470 
LS066480 
LS066490 
LS066500 
LS066510 
LS066520 
LS066530 
LS066540 
LS066550 
LS066560 
LS066570 
LS066580 
LS066590 
LS066600 
LS066610 
LS066620 
LS066630 
LS066640 
LS066650 
LS066660 
LS066670 
LS066680 
LS066690 
LS066700 
LS066710 
LS066720 
LS066730 
LS066740 
LS066750 
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BINARY CARD NO. 

13675 -0600 

13676 C560 

13677 0C20 



LISP0270 
GO 13744 

CO 13736 
CO 13713 



13 70C 
13701 
13702 
1 3 70 3 
13704 
13705 
1370c 
13 707 
1371C 
13711 
13712 



CO 
CO 
CO 

CO 
GO 



0100 
•0634 

0774 

0634 

00 74 
•3 13745 

0074 GO 

0074 

560 
•0600 

0560 



CO 
CO 
CO 
CO 



00001 
13743 
11413 
13 743 
03 104 
03171 
17050 
03117 
00424 
13744 
13737 



13713 -0600 

13714 0634 

13715 -0734 



13 716 
13717 
13720 
13721 
1372 2 



500 
-0734 

7 34 
-0754 

0074 



CO 

CO 
00 

CO 
CO 
GO 
CO 

CO 



13725 
2 13733 
2 00000 



00000 
00000 
00000 
00000 
15343 



BINARY CARD NO. LISP0271 

13723 -0734 CO 4 00000 

13724 -0500 CO 4 GOOOO 
1372 5 OOOCO 00000 
13726 3 COOCO 2 137 16 



13727 
13730 
13731 
13732 
13733 
13734 

13735 
13736 
1373 7 
1374C 
13741 
13742 

13743 
13744 



0500 
0560 
0074 
-0534 
7 74 
0020 

-0602 
320 
0020 
322 
0602 
0020 



CO 
CO 
CO 
GO 
CO 
CO 

CO 
GO 
CC 
CC 
GO 
CC 




■0 
4 
4 
2 
4 


C 







13744 
00540 
13624 
13743 

00000 
COOOl 

13744 
13744 
13740 
13744 
13744 
13726 



-OCGOOOGOOOOO 
-OCOOOCCOCOOO 



LOGXOR 



L0G2 



L0G1 



LOG 5 
L0G7 

L0G6 



L0G4 



ORS 
ANS 
ERS 



Tl 



STQ Tl + 1 

LDQ ANS 

TRA L0G2 

TZ6 1,4 

SXO Tl,4 

AXT -$)PJ38,4 

SXA Tl,4 

TSX $SAVt,4 

TXL !ENDl,,Tl+2 

TSX $EVLIS,4 

TSX UNSAVE,4 

LDQ $ZERO 

STQ Tl+1 

LDQ ERS 

COMMON PART OF LOGAND, 

STQ L0G5 

SXA L0G4,2 

PDX ,2 

FCRM THE PROPER LOGICA 

CLA 0,2 

PDX 0,2 

PAX 0,4 

PXO 0,4 

TSX NUMVAL,4 



INSTRUCTION FOR INNER LOOP 



EXIT WITH IF 'INPUT 

SAVE IR4 

LOGXOR ATOM 

SET FUNCTION ON PDL 

SAVE 1 ITEM 

EVALUATE LIST OF ARGUMENTS 

RINGSUM OF NO ARGUMENTS 

TRA TO INSTRUCTIONS FOR INNER LOOP 
LOGOR, AND LOGXOR 

SAVE IR2 

POINTER TO ARGUMENT LIST 
L COMBINATION OF THE ARGUMENTS 
L 
CDR(L) 

CAR(L) 

GET NUMBER FOR THIS ELEMENT 



PDX 
CAL 

TXH 

RETURN 

CLA 

LDQ 

TSX 

LXD 

AXT 

TRA 



0,4 
0,4 

LOG1,2,0 
A POINTER 

ri+i 

$OCTD 

$MKN0,4 

Tl,4 

**,2 

1,4 



INSTRUCTION SET EARLIER 
LOOP AGAIN IF COR(L) NOT NULL 
TO THE RESULT 

PICK UP RESULT 

MAKE AN OBJECT OF IT 

RESTORE IR4 AND IR2 



INSTRUCTIONS TO BE INSERTED IN INNER LOOP 



ORS 
ANS 
TRA 
ERA 
SLW 
TRA 

OCT 



Tl + 1 
Tl + 1 
*+l 
Tl + 1 
Tl + 1 
L0G7 

-0,-0 



TRA SINCE ERS TAKES 2 INSTRUCTIONS 



STORAGE FOR LOGAND, ETC. 



THIS ROUTINE USES NUMV AL, $MKN0, $Z£RO,AND SEVENS 



LS066760 
LS066770 
LS066780 
LS066790 
LS066800 
LS066810 
LS066820 
LS066830 
LS066840 
LS066850 
LS066860 
LS066870 
LS066880 
LS066890 
LS066900 
LS066910 
LS066920 
LS066930 
LS066940 
LS066950 
LS066960 
LS066970 
LS066980 
LS066990 
LS067000 



LS067010 
LS067020 
LS067030 
LS067040 
LS067050 
LS067060 
LS067070 
LS067080 
LS067090 
LS067100 
LS067110 
LS067120 
LS067130 
LS067140 
LS067150 
LS067160 
LS067170 
LS067180 
LS067190 
LS067200 

LS067210 



LISP 1.5 FOR 



SHARE DISTRIBUTION, MARCH 1965 
WORE LISP FUNCTIONS 
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* 



SPACE 5 
LEFTSHIFT1X,N) 



13745 0634 

13746 0634 

13747 C601 
13 75 131 



BINARY CA 
13751 
13 752 
13 753 
13754 
13755 
13 756 
13757 
13 760 
13761 
13762 
13 76 3 
13764 
13765 
13766 
13767 
13770 
13771 
13772 
13773 



RD NO. 

-0734 
00 74 
0774 

-0120 
0774 

-0634 
0621 
0500 
G074 

-0734 

-0500 
0767 
C560 
602 
500 
0074 
774 
07 74 
0020 



13774 0634 

13775 0634 
13 776 0601 

BINARY CARD NO. 
13777 0500 
14000 0621 



GO 
CO 
CC 
CO 



4 13772 
2 13771 
13743 
00000 



LISPO 
CO 2 
CO 4 
00 4 
CO 
CO 4 
00 4 
CO 
CO 
CO 4 
00 4 
00 4 
CO 
CC 
CO 
CO 



CC 
00 
00 
CO 



CO 
CO 
CC 



272 

00000 
14065 
77100 
13756 
76700 
13 764 
13764 
13743 
15343 
00000 
00000 
OOOQO 
00540 
13743 
13743 
13624 
00000 
00000 
00001 
13743 



2 14033 
1 14034 
14062 



LISP0273 
00 4 00O03 
CO 14031 



LSHIFT 



LSH2 



LSH3 



LSH4 
LSH1 

T2 



* 
Q 

* 

* ARYGET 

* 

ARYGET 



IF N 
IF N 
BOTH 

SXA 
SXA 
STO 
XCA 



PDX 
TSX 
AXT 
TMI 
AXT 
SXD 
STA 
CLA 
TSX 
PCX 
CAL 
ALS 
LDQ 
SLW 
CLA 
TSX 
AXT 
AXT 
TRA 
SYN 

THIS 

HED 



SXA 
TSX 
PZE 

SXA 
SXA 
STO 



CLA 
STA 



IS + , X IS SHIFTED LEFT N PLACES. 
IS -, X IS SHIFTED RIGHT -N PLACES. 
INPUTS MUST BE NUMERICAL OBJECTS. 



LSH1,4 
LSH4.2 
T2 



SAVE 
SAVE 
SAVE 



LR4 
IR2 
X 



FIND VALUE OF N 
L,4 
6+7*512+1*64,4 SET UP ARS 

IF NEGATIVE „ SET UP ARS 
6+6*512+7*64,4 SET UP ALS 
4 PUT OP CODE INTO INSTRUCTION 

PUT ADDRESS IN SHIFT INSTRUCTION 

FIND VALUE OF X 
L,4 



THIS INSTRUCTION WAS SET UP EARLIER 
FORM OCTAL NUMBER 
SAUNDERS FIXES THE LEFTSHIFT BUG..**. 



,4 



RESTORE I.R2 



0,2 

FIXVA 

7*409 

LSH2 

7*409 

LSH3, 

LSH3 

T2 

NUMVA 

0,4 

0,4 

»* 

SOCTD 

T2 

T2 

$MKNO 

**,2 

**,4 

1,4 

Tl 



ROUTINE USES $MKNO, $OCTD, AND NUMVAL 



THE FUNCTION THAT GETS AND SETS THE VALUES OP ARRAYS 

USED IN LISP AS FOLLOWS ... 

TC GET A VALUE i NAME ,01*02, D3 ) 

TO SET A VALUE 1 NAME, SET , VALUE.D1 ,.02, D<3 ) 

THE CALLING SEQUENCE IS AS FOLLOWS 

ARYGTX,4 

ARYGET, 4 

LOCATION OF TABLE 1,, NUMBER OF DIMENSIONS 



ARYY,2 
ARYZ.l 

AGAQ 



3,4 

AGXEX 



SAVE INDEX REGISTERS 
SAVE ARGUMENT 1 



TABLE ZERO PARAMETER WORD 
ADDRESS OF END OF TABLE I 



LS067220 
LS067230 
LS067240 
LS067250 
LS067260 
LS067270 
LS067280 
LS067290 
LS067300 
LS067310 
LS067320 



LS067330 
LS067340 
LS067350 
LS067360 
LS067370 
LS067380 
LS067390 
LS067400 
LS067410 
LS067420 
LS067430 
LS067440 
LS067450 
LS067460 
LS067470 
LS067480 
LS067490 
LS067500 
LS067510 
LS067520 
LS067530 
LS067540 
LS067550 
LS067560 
LS067570 
LS067580 
LS067590 
LS067600 
LS067610 
LS067620 
LS067630 
LS067640 
LS067650 
LS067660 
LS067670 
LS067680 
LS067690 
LS067700 



LS067710 
LS067720 



LISP 1.5 FOR SHAKE DISTRIBUTION, MARCH 1965 
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14001 


-0734 


CO 


2 


00000 




POX 


0,2 


14002 


-0 6 GO 


CG 





14063 




STQ 


AGAT 


14003 


C5G0 


CO 





04063 




CLA 


$ARG3 


14004 


0601 


CO 





14064 




STO 


AGATH 


14005 


0500 


CO 





14060 




CLA 


AX 


14006 


-G534 


CO 


4 


14062 




LXD 


AGAO, 4 


14007 


-3 10 


536 


4 


14021 




TXL 


AGN,4,$SET 


14010 


3 10537 


4 


14021 




TXH 


AGN,4,$SET 


14011 


-0600 


CO 





14061 




STQ 


AGV 


14012 


C500 


CO 





04063 




CLA 


$ARG3 


14013 


C6G1 


CO 





14062 




STO 


AGAO 


14014 


C500 


GO 





04064 




CLA 


$ARG4 


14015 


0601 


CO 





14063 




STO 


AGAT 


14016 


C5C0 


CO 





04065 




CLA 


$ARG5 


14017 


0601 


CO 





14064 




STO 


AGATH 


14020 


500 


CO 





14057 




CLA 


AXS 


14021 


622 


GO 





14031 


AGN 


STD 


AGXEX 


14022 


3 GO0C2 


2 


140 3 6 




TXH 


AGDTH, 2, 2 


14023 


3 00001 


2 


14046 




TXH 


AGDT,2,1 


14024 


-0534 


CO 


2 


14062 




LXD 


AGAO, 2 


BINARY CARD NO. 


LISP 0274 








14025 


00 74 


CO 


4 


14 065 




TSX 


FIXVAL,4 


1402 6 


0734 


CO 


1 


CCOOO 




PAX 


0,1 


14027 


0774 


CO 


6 


00000 




AXT 


0,6 


1403C 


500 


CO 





14061 


AGXE 


CLA 


AGV 


14031 


0522 


CO 


4 


00000 


AGXEX 


XEC 


** ,4 


14032 


0774 


CO 


4 


00000 


ARYGTX 


AXT 


**,4 


14033 


0774 


CO 


2 


00000 


ARYY 


AXT 


**,2 


14034 


0774 


00 


1 


00000 


ARYZ 


AXT 


**»1 


14035 


0020 


GO 


4 


00001 




TRA 


1,4 


14036 


-0534 


CO 


2 


14064 


AGDTH 


LXD 


AGATH,2 


1403 7 


0074 


CO 


4 


14065 




TSX 


FIXVAL,4 


1404C 


0734 


CO 


1 


CCOOO 




PAX 


0,1 


14041 


-G534 


CO 


2 


1406 2 




LXD 


AGAO, 2 


14042 


0074 


CO 


4 


14065 




TSX 


FIXVAL,4 


14043 


0621 


CO 





14055 




STA 


AGR 


14044 


-05 34 


CO 


2 


14063 




LXD 


AGAT, 2 


14045 


0020 


CO 





14053 




TRA 


AGD1 


14046 


0634 


CO 





14055 


•It 

AGO T 


SXA 


AGR,0 


14047 


-0534 


CO 


2 


14063 




LXD 


AGAT, 2 


14050 


0074 


CO 


4 


14065 




TSX 


FIXVAL,4 


14051 


07 34 


00 


1 


00000 




PAX 


0,1 


14052 


-C534 


CO 


2 


14 06 2 


AGO 


LXD 


AGAO, 2 


BINARY CARD NO. 


LISP0275 








14053 


00 74 


CO 


4 


14065 


AGD1 


TSX 


FIXVAL,4 


14054 


G7 34 


CO 


2 


OOOQO 




PAX 


0,2 


14055 


C774 


00 


4 


OOOQO 


AGR 


AXT 


**,4 


14056 


0020 


00 





14030 




TRA 


AGXE 


1405 7 


0522 


60 





00 000 


AXS 


XEC* 


_ 


14060 


05 22 


CO 





00000 


AX 


XEC 


— 



NUMBER 
ARG 2 



OF DIMENSIONS 



ARGUMENT 3 

XEC INSTRUCTION 

GET ARG 1 

TEST FOR *SET OPERATION 

GO ON IF NOT $SET 

IS SET SAVE VALUE 

DIMENSION 1 

DIMENSION 2 

DIMENSION 3 

XEC* INSTRUCTION 

SET UP FETCH OR STORE 

GO IF 3 ARRAY 

GO IF 2 D ARRAY 

DIMENSION 1 



EVALUATE THE FIXED POINT NUMBER 

INTO PROPER INDEX 

ZERO INDEX REGISTERS 

GET THE VALUE 

FETCH BY *EC OR STORE BY XEC* 

RESTORE INDEX REGISTERS 



INSTRUCTION 



DIMENSION 3 

EVALUATE AS A FIXED POINT NUMBER 

INTO 4N08X 

DIMENSION 1 

EVALUATE IT 

SET UP AXT INSTRUCTION 



PRESET AXT INSTRUCTION 

FIXED POINT NUMBER EVALUATION 
INTO INDEX 1 



INTO -INDBK 2 

ZERO OR DIMENSION 1 

GO BACK TO MAIN PROGRAM 



THE STORE 
THE FETCH 



INSTRUCTION 
INSTRUCTION 



LS067730 
LS067740 
LS067750 
LS067760 
LS067770 
LS067780 
LS067790 
LS067800 
LS067810 
LS067820 
LS067830 
LS067840 
LS067850 
LS067860 
LS067870 
LS067880 
LS067890 
LS 067900 
LS067910 
LS067920 



LS067930 
LS067940 
LS067950 
LS067960 
LS067970 
LS067980 
LS067990 
LS068000 
LS068010 
LS068020 
LS068030 
LS068040 
LS068050 
LS068060 
LS068070 
LS068080 
LS068090 
LS068100 
LS068110 
LS068120 
LS068130 
LS068140 
LS068150 
LS068160 



LS068170 
LS068180 
LS068190 
LS068200 
LS068210 
LS068220 
LS068230 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
MORE LISP FUNCTIONS 

14061 C COOCO COOQO AGV 

14062 C OOOCC C 00000 AGAO 

14063 GOOCC 00000 AGAT 

14064 COOCO OOOOO AGATH 



VALUE TO BE 
DIMENSION 1 
DIMENSION 2 
DIMENSION 3 
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BINARY CARD NO. LISP0276 

14101 0074 CO 4 02314 

14102 54316C60C454 



Ji 9 



14103 
14104 

1410 5 
14106 
14107 
14 11C 
14111 
14112 



0560 
0020 



CO 
00 



-3 COCCI 

0634 CO 

0634 
•0734 

500 

0734 



CO 

(JO 
CO 
CO 



14105 
04756 

14106 
14312 
14 313 
GOO 00 
GOOOQ 
00000 



F1XVAL 



14065 


06 34 


CO 


2 


14076 


* 
* 
« 
F 


14066 


G5C0 


CO 


2 


00000 




14067 


0734 


CO 


2 


CCOOO 




14070 


-3 777 76 


2 


14076 




14071 


-0734 


CO 


2 


CCOOC 




14072 


-0320 


00 





00472 




14073 


G1C0 


CO 





14076 




14074 


0500 


CO 


2 


OOOOO 




14075 


CO 20 


GO 


4 


00001 




14076 


0774 


CO 


2 


OOOOO 




14077 


-0634 


CO 


4 


02313 




14100 


-0754 


CO 


2 


OOOOO 





FIXVAL HAS AS INPUT A POINTER TO A FIXED POINT NUMBER OBJECT 
IR2, AND HANDS BACK THE NUMERICAL VALUE OF THAT OBJECT- 



IN 



IXVAL 



FXVE 



SXA 
CLA 
PAX 
TXL 
PDX 
ANA 
TZE 
CLA 
TRA 
AXT 
SXD 
PXD 



TSX 
BCI 



2,-2 



FXVE 

0,2 

0,2 

FXVE 

0,2 

$QT1 

FXVE 

0,2 

1,4 

**,2 

$ERR0R,4 

0,2 



SAVE 1R2 IN CASE OF ERROR 



ERROR IF NOT ATOMIC 



PICK UP VALUE 

NORMAL EXIT 

IR2 SHOULD LAND 



IN OECR. OF AC 



$£ 
1, 



* 

* 



ARYMAK 



* 

* 
* 
* 

* 

« 
* 
* 
* 
* 

* 

ARYMAK 



AMFAG 



ARRAYS 



SXA 
TSX 

PZE 

PZE 
PZE 
CLA 
*** 

STO 
*** 



TH 

TH 

FG 

MAY 

NO 

AR 

AR 

AR 

EN 

TO 

TA 

* ** 

******* 

*# 

******* 



LDQ 
TRA 

TXL 
SXA 
SXA 
PDX 
CLA 
PAX 



AH 
MA 

*+ 
AF 
AF 
0, 

0, 

o, 



RROR+1,4 
#1 4* 



E FUNCTION T 
E ARGUMENT I 
RM (NAME, ID 
BE 1, 2, OR 
N-LIST TYPE. 

RAY IS STORE 

TGTX,4 

YGET,4 

D + 1,, N OF 

TAL LENGTH,, 

BLE ZERO,, N 

,2 

*** ********* 

,1 

************ 



FAG 
PL IS 

It, 1 

RX,4 

RY,2 

4 

4 

4 



IT DOES INDEED LAND THERE 



BAD ARGUMENT — FIXVAL 



HAT MAKES ARRAYS 

S A SINGLE LIST WHOSE SUB-LISTS HAVE THE 
I MENSICN1 , D IMfiNS I0N2 , DIMENS I0N3 i , TYPE ) 
3 DIMENSIONAL AND MAY BE OF LIST OR 



D AS FOLLOWS ... 

ADDRESS OF SUBR TXL INSTRUCTION 

DIMENSIONS (ARRAY PROPERTY POINTS HERE) 
LIST LENGTH 
UMBER OF DIMENSIONS (ARYGET PARAMETER WORD 

TABLE 1 
*** 

TABLE 2 
****** 

ARRAY PROPER GOES HERE 

PICK UP FUNCTIONAL ARGUMENT 

LET MAPLIST HANDLE ITERATION ALONG LI 

FUNCTIONAL ARGUMENT 
SAVE INDEX REGISTERS 

POINTER TO LIST 

POINTER TO SUBLIST 



LS068240 
LS068250 
LS068260 
LS068270 
LS068280 
LS068290 
LS068300 
LS068310 
LS068320 
LS068330 
LS068340 
LS068350 
LS068360 
LS068370 
LS068380 
LS068390 
LS068400 
LS068410 
LS068420 
LS068430 
LS068440 
LS068450 



LS068460 
LS068470 
LS068480 
LS068490 
LS068500 
LS068510 
LS068520 
LS068530 
LS068540 
LS068550 
LS068560 
LS068570 
LS068580 
LS068590 
LS068600 

)LS068610 
LS068620 
LS068630 
LS068640 
LS068650 
LS068660 
LS068670 
LS068680 

SLS068690 
LS068700 
LS068710 
LS068720 
LS068730 
LS068740 
LS068750 
LS068760 





LISP 


1.5 FOR SHARE DIST 


RIBUFION 


, MARCH 1965 










MORE LISP 


FUNCTIONS 


14113 


-C5C0 


CO 


4 


COOOO 


CAL 


0,4 


14114 


0734 


CO 


4 


00000 


PAX 


0,4 


14115 


-0634 


CO 


4 


04245 


SXD 


AFAT,4 


14:116 


-0734 


00 


4 


00000 


PDX 


0,4 


14117 


0500 


CO 


4 


COOOO 


CLA 


0,4 


14120 


734 


CO 


2 


COOOO 


PAX 


0,2 


14121 


-0734 


CO 


4 


OOOQO 


PDX 


0,4 


14122 


0500 


CO 


4 


GOOOO 


CLA 


0,4 


14123 


0734 


CO 


4 


OOOQO 


PAX 


0,4 


14124 


0600 


CO 





143 30 


STZ 


ATYP 


14125 


-3 11462 


4 


14130 


TXL 


ADA,4,*LIST-1 


14126 


3 1146 3 


4 


14130 


TXH 


ADA,4,$LIST 


BINARY CARD NO. 


LISP0277 






14127 


-0634 


CO 


4 


14330 


SXD 


ATYP,4 


1413C 


0500 


CO 


2 


00000 ADA 


CLA 


C,2 


14131 


07 34 


CO 


2 


COOOO 


PAX 


0,2 


14132 


06 22 


CO 





04246 


STD 


AT MP 


14133 


0074 


CO 


4 


14065 


TSX 


FIXVAL.4 


14134 


0601 


CO 





14332 


STO 


ADO 


1413 5 


-0534 


CO 


4 


04246 


LXD 


ATMP,4 


14136 


-3 00000 


4 


14154 


TXL 


AOD, 4,0 


14137 


500 


CC 


4 


GOOOO 


CLA 


0,4 


141 4 C 


0622 


CO 





04 246 


STD 


ATMP 


14141 


734 


00 


2 


00000 


PAX 


0,2 


1414 2 


00 74 


00 


4 


14065 


TSX 


FIXVAL,4 


14143 


0601 


CO 





14 333 


STO 


ACT 


14144 


-0534 


CC 


4 


C4246 


LXD 


ATMP, 4 


14145 


-3 GOOOO 


4 


14163 


TXL 


ATD, 4,0 


14146 


500 


CO 


4 


00000 


CLA 


0,4 


14147 


734 


CO 


2 


ocooo 


PAX 


0,2 


14150 


0074 


CO 


4 


14065 


TSX 


FIXVAL,4 


14151 


0601 


CO 





14334 


STO 


ADTH 


14152 


0774 


00 


2 


00003 


A XT 


3,2 


14153 


0020 


CC 


C 


14171 


TRA 


AGA 


1415 4 


C500 


CC 





14332 AOD 


CLA 


ADO 


BINARY CARD NO.. 


LISP0278 






14155 


0601 


CO 


c 


14334 


STO 


ADTH 


14156 


500 


CC 





00425 


CLA 


$Q1 


14157 


0601 


CO 





14333 


STO 


ADT 


14160 


0601 


CO 





14332 


STO 


ADO 


14161 


774 


CO 


2 


OG001 


AXT 


1,2 


14162 


0020 


CC 





14171 


TRA 


AGA 


1416 3 


060 1 


CO 





14334 ATD 


STO 


ADTH 


14164 


0500 


CO 





14332 


CLA 


ADO 


14165 


0601 


CO 





143 33 


STO 


AD f 


14166 


0500 


CO 





00425 


CLA 


$Q1 


1416 7 


0601 


CO 





14 332 


STO 


ADO 


14170 


07 74 


CO 


2 


00002 


AXT 


2,2 


14171 


0560 


CO 





14332 AGA 


LDQ 


ADO 


14172 


-0754 


GO 





00000 


PXD 


0,0 


14173 


200 


00 





143 3 3 


MPY 


ADT 


14174 


-0600 


CO 





14327 


STQ 


ADOT 


14175 


0200 


CO 





14334 


MPY 


ADTH 
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NAME 
SAVE IT 



POINTER TO DIMENSION LIST 

TYPE 

GO IF NOT $ LIST 



MAKES ATYP NON-ZERO FOR LIST 

FIRST WORD ON DIMENSION LIST 

DIMENSION 1 

POINTER TO REST 

EVALUATE THE FIXED POINT NUMBER 

DIMENSION 1 

PICK UP POINTER TO REST OB LIST 

GO IF 1 D 

NEXT WORD 

SAVE POINTER 

DIMENSION 2 

GET NUMBER VALUE 

DIMENSION 2 

POINTER TO REST OF LIST 

GO IF 2 D ARRAY 

DIMENSION 3 

NUMBER VALUE 

DIMENSION 3 

NUMBER OF DIMENSIONS 

GO TO NEXT PART OF PROGRAM 

ID, TREAT AS A 1 X 1 X Dl ARRAY 



ARRAYS 



DIMENSION 2 
DIMENSION 1 
1 D ARRAY 
GO NEXT PART 



DIMENSION 1 
2 ARRAY 
DIMENSION 1 
ZERO AC 
DIMENSION 2 
CI X 02 
DIMENSION 3 



LS068770 
LS068780 
LS068790 
LS068800 
LS068810 
LS068820 
LS068830 
LS068840 
LS068850 
LS068860 
LS068870 
LS068880 



LS068890 
LS068900 
LS068910 
LS068920 
LS068930 
LS068940 
LS068950 
LS068960 
LS068970 
LS068980 
LS068990 
LS069000 
LS069010 
LS069020 
LS069030 
LS069040 
LS069050 
LS069060 
LS069070 
LS069080 
LS069090 
LS069100 



LS069110 
LS069120 
LS069130 
LS069140 
LS069150 
LS069160 
LS069170 
LS069180 
LS069190 
LS069200 
LS069210 
LS069220 
LS069230 
LS069240 
LS069250 
LS069260 
LS069270 
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14176 


C520 


CO 





14330 


ZET 


ATYP 


• 14177 


-C6C0 


CO 





1433C 


STQ 


ATYP 


i 14200 


0131 


00 





00000 


XCA 




1420 1 


0400 


CO 





14327 


ADO 


ADOT 


• 14 20 2 


4 00 


CO 


c 


14332 


ADD 


ADO 


BINARY CARD NO. 


LISP0279 






• 14203 


0400 


CO 





00431 


ADD 


$Q5 


14204 


C621 


CO 


C 


14 325 


STA 


APWT 


14205 


0621 


CO 





14331 


STA 


ATMQ 


• 14206 


0534 


CO 


4 


14330 


LXA 


ATYP, 4 


14207 


-C634 


CO 


4 


14325 


SXD 


APWT, 4 


1421C 


0074 


CO 


4 


04543 


TSX 


BLCCKR,4 


• 14211 


0100 


CO 





14315 


TZE 


ARYTL 


14212 


0621 


GO 





04246 


STA 


ATMP 


14213 


0400 


CO 





00425 


ADD 


$Q1 


• 14214 


06 21 


CO 





14324 


STA 


APWO 


| 14215 


-06 34 


00 


2 


14326 


SXD 


ATBZ*2 


14216 


-0634 


00 


2 


14324 


SXD 


APfcO,2 


• 14217 


-0634 


CO 


2 


14335 


SXD 


ASBR.2 


14220 


0402 


CO 





14331 


SUB 


ATMQ 


14221 


0621 


GO 





14335 


STA 


ASBR 


• 14222 


0737 


CO 


4 


00000 


PAC 


0,4 


14223 


1 77776 


4 


14224 


rxi 


*+l,4,-2 


^ 14224 


-06 34 


CO 


4 


14336 


SXD 


AARY,4 


• 14225 


7,37 


GO 


4 


00000 


PAC 


0,4 


14226 


0400 


CO 





00430 


ADD 


$Q4 


_ 14227 


04 00 


CO 





14332 


ADD 


ADO 


• 14230 


0621 


00 





14 326 


STA 


ATBZ 


BINARY CARD NC- 


LISP0280 






• 14231 


0774 


00 


2 


0000 5 


AXT 


5,2 


14232 


0500 


CO 


2 


1432 7 ACLA CLA 


ADOT, 2 


14233 


0601 


CO 


4 


00000 


STQ 


0,4 


• 14234 


1 777 77 


4 


14235 


TXI 


•+1,4,-1 


14235 


2 00001 


2 


14232 


TIX 


ACLA, 2,1 GET 


14236 


-0320 


CO 





00513 


ANA 


SAMASK 


• 14237 


-0501 


CO 





14337 


ORA 


ACLAS 


14240 


0534 


CO 


2 


14332 


LXA 


ADO, 2 


14 241 


0400 


00 





14333 AADD ADD 


ADT 


• 14242 


0601 


GO 


4 


00000 


STO 


0,4 


1424 3 


1 777 7 7 


4 


14244 


TXI 


*+l,4,-l 


_ 14244 


2 00OC1 


2 


1424i 


TIX 


AADD, 2,1 


• 14245 


0534 


CO 


2 


14327 


LXA 


ADOT, 2 


14246 


-0320 


CO 





00513 


ANA 


$AMASK 


14247 


-0501 


CO 





14340 


ORA 


ARSTO 


• 14250 


400 


CO 





14334 AAA ADD 


ADTH 


14251 


0601 


CO 


4 


00000 


STO 


0,4 


^ 14252 


1 77777 


4 


14253 


TXI 


*+l,4,-l 


• 14253 


2 00001 


2 


14250 


TIX 


AAA,2,1 










* 




TABLE CONSTRUCTION 










* 




THE FOLLOWING ADDS 


• 14254 


500 


CO 





14336 


CLA 


AARY 


14255 


0560 


CO 





00424 


LDQ 


$ZERO 


14256 


0074 


CO 


4 


04471 


TSX 


$CGNS,4 



SKIP NEXT IF NON-LIST ARRAY 

LIST LENGHT 

Dl X D2 X 03 TO AC 

ADD INDEX TABLE LENGTHS 



CONSTANT LENGTH 
PARAMETER WORD TWO 
SAVE LENGTH 
ZERO OR LIST LENGTH 

RESERVE A BLOCK OF THIS LENGTH 

GO IF ARRAY WILL NOT FIT 

END OF BLOCK ADDRESS 

ADD 1 

PARAMETER WORD 1 

NUMBER OF DIMENSIONS 



LENGTH OF BLOCK 

ADDRESS OF BEGINNING OG BLOCK 

POINTER IN IR 4 

POINTER TO ARRAY PROPERTY 

SAVE POINTER 

POINTER TO BEGINNING OF ARRAY 

LENGTH OF PREFIX - 1 

LAST LOC. IN TAQBLE ONE 



LENGTH OF PREFIX TO ARRAY 

PICK UP PREFIX 

AND STORE IN CORE 

UPDTAEC CORE LOCATION 

REST OF PREFIX 

TABLE ZERO IN AC 

OR IN CLA* INSTRUCTION 

LENGTH OF TABLE 

INCREMENT BY DIMENSION 2 

PUT IN CORE 

UP DATE CORE COUNTER 

FINISH OFFF 

LENGTH OF TABLE 2 

CLEAR OUT ALL BUT ADORESS 

PUT INSTRUCTION 

ADD DIMENSION 3 

PUT IN CORE 

UPDATE CORE COUNTER 

CONTINUE TO CONSTRUCT TABLE 

ALL DONE. 

PROPERTYS TO THE ARYATOM 

PICK UP POINTER TO TO ARRAY PROPERTY 



LS069280 
LS069290 
LS069300 
LS069310 
LS069320 



LS069330 
LS069340 
LS069350 
LS069360 
LS069370 
LS069380 
LS069390 
LS069400 
LS069410 
LS069420 
LS069430 
LS069440 
LS069450 
LS069460 
L SO 69470 
LS069480 
LS069490 
LS069500 
LS069510 
LS069520 
LS069530 
LS069540 



LS069550 
LS069560 
LS069570 
LS069580 
LS069590 
LS069600 
LS069610 
LS069620 
LS069630 
LS069640 
LS069650 
LS069660 
LS069670 
LS069680 
LS069690 
LS069700 
LS069710 
LS069720 
LS069730 
LS069740 
LS069750 
LS069760 
LS069770 
LS069780 



MMM 
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BINARY CARD NO. 


LISP0281 








• 14257 


0560 


CO 





00424 




I.DQ 


$ZERO 


14260 


0074 


CO 


4 


04471 




TSX 


$C0NS,4 


m 14261 


0131 


CO 





OOOOO 




XCA 




• 14262 


C5G0 


CO 





14341 




CLA 


ARY 


14263 


0074 


CO 


4 


04471 




TSX 


*C0NS,4 


m 14264 


0601 


CO 





04246 




STO 


ATMP 


• 14265 


0500 


CC 





14335 




CLA 


ASBR 


14266 


74 


CO 


4 


04451 




rsx 


$CGNSW,4 


14267 


0560 


CO 


C 


04246 




LCQ 


ATMP 


• 1427C 


0074 


CO 


4 


04 471 




TSX 


$C0NS,4 


14271 


0131 


OC 


€ 


OOOOO 




XCA 




14272 


C5C0 


CO 





00543 




CLA 


ASB 


• 14273 


0074 


CO 


4 


04471 




TSX 


$C0NS,4 


14274 


0131 


CO 





OOOOO 




XCA 




- 14275 


-0534 


CO 


4 


04245 




LXD 


AFAT, 4 


• 14276 


0500 


CO 


4 


OOOOO 




CLA 


0,4 


14277 


-0 734 


GO 


4 


OOOOO 




POX 


0,4 


m 14300 


-0 7 54 


CO 


4 


OOOOO 




PXD 


0,4 


• 14301 


0131 


CO 





OOOOO 




XCA 




14302 


74 


CO 


4 


10515 




TSX 


$NC0NC,4 


- 14303 


-0 5 34 


00 


4 


04245 




LXD 


AFAT, 4 


• 14304 


0622 


CO 


4 


OOOOO 




STO 


0,4 


BINARY CARD NO. 


LISP0282 








• 14305 


-07 54 


00 


4 


OOOOO 




PXD 


0,4 


14306 


0560 


CO 





04047 




LDQ 


ARYLIS 


_ 14 307 


00 74 


CO 


4 


04471 




TSX 


SCONS, 4 


• 14 310 


0622 


CO 





04047 




STD 


ARYLIS 


14311 


0500 


GO 





04245 




CLA 


AFAT 


^ 14312 


0774 


CO 


4 


CO 000 


AFRX 


AXT 


**,4 


• 14313 


774 


CO 


2 


OOOOO 


AFRY 


AXT 


**,2 


14314 


0020 


CO 


4 


C0001 




TRA 


1,4 


• 14 315 


-0634 


CO 


4 


02313 


ARYTL 


SXD 


$ERR0R,4 


14316 


0534 


CO 


2 


14313 




LXA 


AFRY, 2 


14317 


0500 


CO 


C 


04245 




CLA 


AFAT 


• 14320 


0074 


CO 


4 


02314 




TSX 


$ERR0R+1,4 


14321 


54316C60CI54 




BCI 


1,*I 1» 












* 




CONSTANTS 


• 14322 


0634 


CC 


4 


14032 




SXA 


ARYGTX,4 


14323 


0074 


CO 


4 


13774 




TSX 


ARYGET.4 


14324 


000 CO 





OOOOO 


APWO 






• 1432 5 


COOCC 





OOOOO 


APWT 






14326 


COO 00 


C 


coooo 


ATBZ 






1432 7 


C COO CO 





OOOOO 


ADOT 






• 14330 


COOCO 





OOOOO 


ATYP 






14331 


00000 





OOOOO 


ATMQ 






_ 14332 


COOCO 





OOOOO 


ADO 






BINARY CARD NO. 


LISP028 3 








14333 


GOO GO 





000 QO 


ADT 






w 14334 


oooco 





COOOO 


ADTH 






14 33 5 - 


-3 OOOCO 


G 


OOOOO 


ASBR 


TXL 


»# , , * * 


^ 14336 


OOOCO 





OOOOO 


AARY 







AND 



POINTER TO ATONIC SYMBOL ARRAY 

(ARRAY,! POINTER TO ARRAY PROPERTY 

SAVE IN TEMP STORAGE 

TXL IN STRUCT I ONM 

PUT IN FULL WORD SPACE 

REST OF PROPERTIES 



POINTER TO $SUBR ATOMIC SYMBOL 

SAVE IN MQ 

POINTER TO NAME 

FIRST WORD 

SAVE POINTER TO REST 

PUT IN AC 

INTER CHANGE AC AND MQ 

SPLICE 2 LISTS TOGETHER 

POINTER TO FIRST WORD ON PROPERTY 

REPLACE DECREMENT OPERATION 



POINTER TO ARRY ATOM 
PICK UP ARRAY LIST 
PUT ON AS ACTIVE ARRAY 
UPDATE ARRAY LIST 
FINAL ANSWER 
RESTORE INDEX REGISTERS 

EXIT 

SAVE TNDE'X 4 
RESTORE INDEX 2 
ARRAY NAME 
GO TO ERROR 

NOT ENOUGH ROOM FOR ARRAY 
STORAGE 

5 WORD PREFIX TO ARRAYS 

END+1, ,N OF 

LENGTH,, LIST LENGTH 

TABLE ZERO,, N OF 

Dl X D2 

ZERO OR LIST LENGTH 

TEMPORARY STORAGE 

Dl 



D2 
03 

POINTER TO ARRAY PROPERTY 



LS069790 
LS069800 
LS069810 
LS069820 

J) LS069830 
LS069840 
LS069850 
LS069860 
LS069870 
LS069880 
LS069890 
LS069900 
LS069910 
LS069920 
LS069930 
LS069940 
LS069950 
LS069960 
LS069970 
LS069980 

LISTLS069990 
LS070000 



LS070010 
LS070020 
LS070030 
LS070040 
LS070050 
LS070060 
LS070070 
LS070080 
LS070090 
LS070100 
LS070110 
LS070120 
LS070130 
LS070140 
LS070150 
LS070160 
LS070170 
LS070180 
LS070190 
LS070200 
LS070210 
LS070220 
LS070230 
LS070240 



LS070250 
LS070260 
LS070270 
LS070280 



MUMP 
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14337 
14340 
14341 



C500 60 
0601 CO 
■0 12514 



2 00000 

1 00000 

COOOO 

00543 



14342 
14343 
14344 
14345 
14 346 
14347 
1435G 
14351 
14352 
14 35 3 
14354 
14355 
14356 
14 35 7 
14360 



6 34 

-0600 
0074 

-0734 
0500 
0601 

-0600 
0500 
074 

•0734 
0500 
0131 
0402 

-0100 
0500 



BINARY CARD NO. 

14361 0601 

14362 0500 

14363 0774 

14364 0020 



1436 5 
14366 
14367 
14370 
14371 
14372 
14373 
14374 
14375 
14376 
14377 
14400 
14401 

1440 2 
1440 3 
14404 
14405 
14406 



-0600 
06 34 

-0 5 34 
0074 
0761 
0020 
0500 
0074 
0560 

-0600 
0560 
0774 
0020 

0131 
0074 
0131 
5 34 
0020 



CO 4 
CO 
CO 4 
CO 4 
CO 4 
CO 
CO 
GO 
CO 4 
CO 4 
CO 4 
CO O 
CO 
CO 
CO 



14363 
14410 
15343 
COOOO 
00000 
14407 
14411 
14410 
15343 
COOOO 
00000 
000 00 
14411 
14365 
14411 



LISP0284 
CO 04063 
CO 1440 7 
CO 4 COOOO 
CO 4 00001 



CO 
CO 2 
CO 2 
CO 4 
CO 
CO 
CO 
CO 4 
CO 
CO 
00 
CO 2 
CO 



14410 
14400 
14411 
15551 
00000 
14402 
14407 
15566 
00533 
040 6 3 
14410 
COOOO 
14363 



CO 

CO 
CO 
CO 
CO 



00000 
4 15566 
COOOO 
2 14400 
14360 



BINARY CARD NO. LISP0285 

14407 GOOCO COOOO 
14410 00000 COOOO 



ACLAS CLA* 

ARSTO STO 

ARY 

ASB SYN 






* UNUMIX 



UNUMIX 



UNUE 



UNUX 



UNMXA 



UNUX 2 



UNMX8 



SXA 
STQ 
TSX 
PDX 
CLA 
STO 
STO 
CLA 
TSX 
PDX 
CLA 
XCA 
SUB 
TNZ 
CLA 



STO 
CLA 
AXT 
TRA 

STQ 
SXA 
LXD 
TSX 
NOP 
TRA 
CLA 
TSX 
LDQ 
STQ 
LOQ 
AXT 
TRA 

XCA 
TSX 
XCA 
LXA 
TRA 



** » 1 

,,$ARRAY 

$SUBRD 



EVALUATES ITS 2 
POINT ARGUMENT I 
VALUES ARE LEFT 

UNUX, 4 

UNUT 

NUMVAL,4 

0,4 

0,4 

UNUS 

UNUR 

UNUT 

NUMVAL,4 

0,4 

0,4 



FETCH 
PUT IN 



INSTRUCTION 
STRUCTIGN 



UNUR 

UNMXA 

UNUR 



$ARG3 
UNUS 
**, 4 
1,4 

UNUT 
UNUX2,2 
UNUR, 2 
FIXFL0.4 

UNMXB 

UNUS 

$UNFIX,4 

UNFLT 

$ARG3 

UNUT 

**,2 

UNUX 



$UNFIX,4 

UNUX2,2 
UNUE 



NUMERICAL 
F A MIXED 
IN AC AND 

SAVE L 
SAVE S 
NUMER4 
POINTE 
NUMEftI 
SAVE I 
SAVE T 
PICK U 
NUMERI 
POINTE 
NUMERI 
VLUE T 
COMPAR 
TRA IF 
PICK U 



ARGUMENTS ANO 
EXPRESSION. 
MQ WITH TYPE 



FLOATS THE FIXED 
THE NUMERICAL 
OF NUMBER IN 



INK I 
ECOND 
CALLY 
R TO 
CAL V 
T 

YPE 
P SEC 
CALLY 
R TO 
CAL V 
MQ, 

e wit 

NOT 
P NUM 



R 
ARGUMENT 
EVALUATE 

FULL WORD 

ALUE 

F NUMBER 
OND ARG 

EVALUATE 
FULL WORD 
ALUE 

TYPE TO 
H TYPE OF 
SAME 
BER TYPE 



THE FIRST ARG 



IT 



AC 
FIRST 



PICK UP 
RESTORE 
EXIT 



FIRST NUMERICAL 
LINK IR 



VALUE 



MIXED TYPES, SAVE SECOND VALUE 

SAVE IR 2 

PICK UP TYPE OF FIRST NUMBER 

DISPATCH 

IMPOSSIBLE RETURN 

FLOAT SECOND NUMBER 

FIRST NUMBER 

FLOAT IT 

$FLOAT FOR TYPE 



SECOND NUMBER 
RESTORE IR 2 
RESTORE LINK AND 



EXIT 



UNUS 
UNUT 



FLOAT SECOND NUMBER 

FLOAT FUNCTION 

BACK TO MQ 

RESTORE IR 2 

GET FIRST NUMBER,. RESTORE LINK + EXIT 



FIRST NUMERICAL VALUE 
SECOND ARG AND VALUE 



LS070290 
LS070300 
LS070310 
LS070320 
LS070330 
LS070340 
LS070350 
LS070360 
SARG3LS070370 
LS070380 
LS070390 
LS070400 
LS070410 
LS070420 
LS070430 
L SO 70440 
LS070450 
LS070460 
LS070470 
LS070480 
LS070490 
LS070500 
LS070510 
LS070520 
LS070530 



LS070540 
LS070550 
LS070560 
LS070570 
L SO 70580 
LS070590 
LS070600 
LS070610 
LS070620 
LS070630 
L SO 70640 
LS070650 
LS070660 
LS070670 
LS070680 
LS070690 
LS07Q700 
LS070710 
LS070720 
LS070730 
LS070740 
LS070750 
LS070760 
LS070770 



LS070780 
LS070790 
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14411 C OOOCC 



00000 
00533 



UNUR 
tiNFLT SYN FLOATD 



TYPE OF FIRST ARG 
FLOAT INDICATOR 



14412 
14413 
14414 



14421 
1442 2 
14423 
1442 4 
1442 5 
14426 
14427 
14430 
144 31 
14432 
144 3 3 
14434 



0604 
57 
0020 



14415 0604 

14416 0057 

14417 0055 
14420 0020 



0604 
0057 
0055 
06 34 
0634 
0074 
-C534 
•0600 
0074 
761 
0241 
0020 



CO 
CO 

cc 

CO 
00 
CO 
CO 

CO 
00 
CO 
CO 
00 
CO 

cc 

CO 
CO 
00 
CO 
CO 



14 502 

000003 

14424 

1450 2 
000003 
000002 

14424 

14502 
000003 
CGOOOl 

4 1447 3 
14472 
14342 
0406 3 
14503 
15551 
00000 
14503 
14463 



* THIS ROUTINE USES NUMVAL , $UNF I X , F I XFLO , AND $ARG3 + $FLOAT 



* DIV 

* 

* QUO 

* 

* REM 

D I V ID 



IDE 



TEN 



AIN 



REM A I 



N 



# 
GUOTEf 



DIVOP 



ST I 
RIR 
TRA 

ST I 

RIR 
SIR 
TRA 

STI 

RIR 
SIR 
SXA 
SXA 
TSX 
LXD 
STQ 
TSX 
NOP 
FDP 
TRA 



DIVIDES THE FIRST NUMERICAL ARGUMENT BY THE SECOND. THE 
ANSWER IS A LIST OF THE QUOTIENT AND THE REMAINDER. 

GIVES THE QUOTIENT WHEN THE FIRST NUMERICAL ARGUMENT IS 
DIVIDED BY THE SECOND. 

GIVES THE REMAINDER WHEN THE FIRST NUMERICAL ARGUMENT IS 

DIVIDED BY THE SECOND. 

CTVND SAVE INDICATORS 

3 01 IDE INDICATE 

DIVOP DO OPERATION 



DIVND 
3 
2 
DIVOP 

D I VND 

3 

1 

DIVX,4 

DIVX2,2 

UNUMIX.4 

$ARG3,2 

DIVT 

F I XFLO, 4 

DIVT 

DIVFX 



SAVE INDICATORS 
DIVIDE INDICATE 
SET REMAINDER INDICATOR 
CO OPERATION 

SAVE INDICATORS 

DIVIDE INDICATE 

QUOTIENT INDICATOR 

SAVE LINK IR 

SAVE IR 2 

NUMERICALLY EVALUATE THE ARGUMENTS 

PICK UP TYPE 

SECOND ARG 

DISPATCH ON TYPE 

IMPOSSIBLE RETURN 

FLOATING DIVIDE 

DO FIXED POINT DIVIDE 



LS070800 
LS070810 
LS070820 
LS070830 
LS070840 
LS070850 
LS070860 
LS070870 
LS070880 
LS070890 
LS070900 
LS070910 
LS070920 
LS070930 
LS070940 
LS070950 
LS070960 
LS070970 
LS070980 
LS070990 
LS071000 
LS071010 
LS071020 
LS071030 
LS071040 
LS071050 
LS071060 
LS071070 
LS071080 
LS071090 
LS071100 
LS071110 
LS071120 
LS071130 
LS071140 



BINARY C 
1443 
1443 
1443 
1444 
1444 
1444 
1444 
1444 
1444 
1444 
1444 
1445 
1445 
1445 
1445 
1445 
1445 
1445 



ARD NO. 



0760 
0074 
0054 
0020 

-06CO 
0560 
0074 
00 54 
0020 
560 
0074 
0131 
G5C0 

•0600 
0560 
0074 
0560 
0074 



LISP0286 
CO 00012 
4 02442 
000001 
14470 
14503 
04O63 
4 13624 
000002 
14476 



DIVDC 



CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CC 
CC 
CO 
CO 
CO 
CO 
CO 




4 

c 




c 

4 


4 



00424 
04471 
OCOOO 
14503 
14503 
04063 
13624 
14503 
04471 



OCT 
TSX 
RFT 
TRA 
STQ 
LDQ 
TSX 
RFT 
TRA 
LDQ 
TSX 
XCA 
CLA 
STQ 
LDQ 
TSX 
LDQ 
TSX 



$DCT,4 

1 

DIVA 

DIVT 

$ARG3 

$MKN0,4 

2 

CI VEX 

$ZER0 

$CGNS,4 

DIVT 
DIVT 
$ARG3 

SMKNQ,4 

DIVT 

$C0NS,4 



CHECK FOR ILLEGAL DIVISION LS071150 

DIVIDE CHECK ERROR LS071160 

SEE IF REMAINDER IS TO BE SAVED LS071170 

NO, SET UP QUOTIENT LS071180 

YES, SAVE QUOTEINT LS071190 

PICK UP TYPE LS071200 

MAKE REMAINDER A NUMBER LS071210 

TEST TO SEE IF QUOTIENT IS WANTED LS071220 

NO, RESTORE AND EXIT LS071230 

NIL IN MQ LS071240 

LIST OF REMAINDER LS071250 

SHUTTLE INTO MQ LS071260 

PICK UP QUOTIENT LS071270 

SAVE LIST OF REMAINDER LS071280 

PICK UP TYPE LS071290 

MAKE QUOTIENT A NUMBER LS071300 

LISTtREMAINOER) LS071310 

LI ST {QUOTIENT, REMAINDER) LS071320 



LISP 1.5 FGR SHARE DISTRIBUTION, MARCH 1965 
MORE LISP FUNCTIONS 



9/20/67 



PAGE 154 



14457 


0534 


CO 


4 


14473 




LXA 


DIVX, 4 


14460 


0534 


CO 


2 


14472 




LXA 


DIVX2.2 


14461 


0441 


CO 





14502 




LOI 


DIVND 


14462 


0020 


CO 


4 


00001 


# 


TRA 


1,4 


BINARY CARD NO. 


LISP0287 








1446 3 


C131 


CO 





00000 


DIVFX 


XCA 




14464 


-0754 


CO 





00000 




PXD 


C,0 


14465 


0763 


CO 





00000 




LLS 





14466 


0221 


CO 





14503 




DVP 


DIVT 


14467 


0020 


CO 





14435 




TRA 


OIVDC 


14470 


0131 


CO 





OOOQO 


DIVA 


XCA 




14471 


0560 


CO 





04063 




LDQ 


$ARG3 


14472 


0774 


CO 


2 


00000 


DTVX2 


AXT 


**,2 


14 47 3 


7 74 


CO 


4 


00000 


DIVX 


AXT 


**,4 


14474 


0441 


CO 





14502 




LCI 


DIVND 


14475 


0020 


CO 





13624 




TRA 


$MKNO 


14476 


0534 


CO 


2 


14472 


DIVEX 


LXA 


CIVX2,2 


14477 


0534 


CO 


4 


14473 




LXA 


DIVX, 4 


1450C 


0441 


GO 





14502 




LDI 


DIVND 


14501 


CC20 


CO 


4 


00001 




TRA 


1,4 


14502 


00000 





00000 


DIVND 






14503 


cooco 


c 


00000 


DIVT 
















* THIS 
* 


ROUTINE 


USES $MK 












* 

* DIFFER 


COMPUTES 


14504 


06 34 


CC 


4 


14517 


DIFFER 


SXA 


DIFX r 4 


14 505 


0634 


CO 


2 


1 45 1 6 




SXA 


DIFX2,2 


14506 


0074 


CO 


4 


14342 




TSX 


UNUMIX T 4 


14507 


-0 534 


00 


2 


04063 




LXU 


$ARG3,2 


14510 


-C600 


CO 





14521 




STQ 


DIFT 


BINARY CARD NO. 


LISP0288 








14511 


074 


CO 


4 


15551 




TSX 


FIXFLC4 


14512 


0761 


CO 





00000 




NOP 




14513 


302 


CO 





14521 




FSB 


DIFT 


14514 


0402 


CO 





14521 




SUB 


DIFT 


14515 


0560 


CO 





04063 




LDQ 


$ARG3 


14516 


0774 


CO 


2 


00000 


0IFX2 


AXT 


**,2 


14517 


0774 


CO 


4 


00000 


DIFX 


AXT 


** ,4 


14520 


0020 


CO 





13624 




TRA 


SMKNO 



RESTORE LINK IR 
RESTORE IR 2 
RESTORE INDICATORS 
EXIT 



FIXED POINT DIVISION, PU 

CLEAR AC 

MQ SIGN TO AC 

DIVIDE BY ARG 2 

PREFORM DIVIDE CHECK AND 

QUOTIENT TO AC 

TYPE TO MQ 

RESTORE IR 2 

RESTORE LINK IR 

RESTORE INDICATORS 



LS071330 
LS071340 
LS071350 
LS071360 
LS071370 



CARRY ON 



EXIT ROUTINE, RESTORE IR 
RESTORE LINK IR 
RESTORE INDICATORS 



INDICATORS STORAGE 

LIST AND NON-LIST TEMPORARY STORAGE 

>DCT,$C0NS,$ARG3 AND UNUMIX 



THE DIFFERENCE BETWEEN ITS 2 NUMER 

SAVE LINK IR 

SAVE IR 2 

NUMERICALLY EVALUATE THE 

PICK UP TYPE OF NUMBERS 

STORE SECOND NUMBER 



14521 COOCO 00000 DIET 



DISPATCH ON TYPE 
IMPOSSIBLE RETURN 
FLOATING POINT 
FIXED POINT 
TYPE OF NUMBER 
RESTORE IR 2 
RESTORE LINK IR 
MAKE RESULT A NUMBER 

TEMPORARY STORAGE 



THIS ROUTINE USES UNUMIX, FIXFLC, $ ARG3 AND $MKNG 



EXPT TAKES 2 



FIXED OR FLOATING POINT NUMBERS AS ARGUMENTS AND RAISES 
THE FIRST TO THE POWER INDICATED BY THE SECOND. 



T ARG 1 IN MQ LS071380 
LS071390 
LS071400 
LS071410 
LS071420 
LS071430 
LS071440 
LS071450 
LS071460 
LS071470 
LS071480 
LS071490 
LS071500 
LS071510 
LS071520 
LS071530 
LS071540 
LS071550 
LS071560 
LS071570 
LS071580 
LS071590 
LS071600 

ICAL ARGUMENTSLS071610 
LS071620 
LS071630 
LS071640 
L SO 7 1650 
LS071660 
LS071670 



LS071680 
LS071690 
LS071700 
LS071710 
LS071720 
LS071730 
LS071740 
LS071750 
LS071760 
LS071770 
LS071780 
LS071790 
LS071800 
LS071810 
LS071820 
LS071830 



ARGUMENTS 



mmmmmmmmmmm 
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* 








LS071840 


• 14522 


0634 


GO 


4 


14570 


EXPT 


SXA 


EXPX, 4 


SAVE LINK IR 


LS071850 


1452 3 


0634 


GO 


2 


14571 




SXA 


EXPY,2 


SAVE IR 2 


LS071860 


14524 


0074 


CO 


4 


14 342 




TSX 


UNUMIX,4 


EVALUATE THE 2 ARGUMENTS AS NUMBERS 


L SO 7 1870 


• 14525 


-0 5 34 


00 


2 


04063 




LXD 


$ ARC 3, 2 


PICK UP TYPE OF NUMBERS 


LS071880 


14526 


0074 


CO 


4 


15551 




TSX 


FlAFL0,4 


DISPATCH ON FIX OR FLOAT 


LS071890 


^ 1452 7 


0761 


CO 





00000 




NOP 




IMPOSSIBLE RETURN 


LS071900 


• 14530 


0020 


cc 





14564 




TRA 


EXPA 


IS FLOATING POINT 


LS071910 


14 531 


0120 


CO 





14541 




TPL 


EXPB 




LS071920 


14532 


0100 


CO 





14562 




TZE 


EXPI 


(EXPT -0 N) IS 


LS071930 


• 14533 


534 


CO 


2 


14571 


EXPC 


LXA 


EXPY,2 


RESTORE IR 2 


LS071940 


14 534 


534 


CO 


4 


14570 




LXA 


fcXPX,4 


RESTORE IR 4 


LS071950 


1453 5 


-C634 


CO 


4 


02313 




SXD 


TERROR, 4 


SAVE IN $ERROR 


LS071960 


• 14536 


-0754 


CO 





COOOO 




PXO 


0,0 


CLEAR AC 


LS071970 


BINARY CARD NO. 


LISP0289 












• 14537 


074 


CO 


4 


02314 




TSX 


$ERR0R+1,4 


GO TO ERROR 


LS071980 


1454C 


54316C60C254 




BCI 


1,*I 2* 


FIRST ARGUMENT IS NEGATIVE -EXPT- 


LS071990 


14541 


0131 


cc 





00000 


EXPB 


XCA 




INTERCHANGED FIXED POINT ARGUMENTS 


LS072000 


• 14542 


C120 


CO 





14547 




J PL 


EXPLS 




LS072010 


14543 


0074 


CO 


4 


15566 




TSX 


$UNFIX,4 




LS072020 


14 544 


0131 


CO 





COOOO 




XCA 






LS072030 


• 14,545 


0074 


CO 


4 


15566 




TSX 


$UNFIX,4 




LS072040 


14 546 


0020 


CC 





14 564 




TRA 


EXPA 




LS072050 


14 547 


-0600 


CO 





77660 


EXPLS 


STQ 


COMMON 




LS072060 


• 1455 


734 


CO 


4 


COOOO 




PAX 


0,4 


EXPONENT 


L SO 72070 


14551 


-3 OOOCO 


4 


14561 




TXL 


OUT, 4,0 


GO IF ZERO POWER 


LS072080 


14552 


-2 00001 


4 


14556 




TNX 


OUTl.4,1 


GO IF TO FIRST POWER 


LS072090 


• 14 553 


-0 754 


CO 





00000 




PXD 


0,0 


CLEAR AC 


LS072100 


14554 


0200 


CO 





77660 




MPY 


COMMON 


RAISE TO GIVEN POWER 


LS072110 


14555 


2 000 CI 


4 


14554 




TIX 


*- 1 , 4 , 1 


IN LOOP 


LS072120 


• 14556 


0131 


GO 





00000 


0UT1 


XCA 




ANSWER TO AC 


LS072130 


14557 


C560 


CO 





00532 




LDQ 


$FIXD 


$FIX TO DECREMENT 


LS072140 


1456 C 


0020 


CO 





14570 




TRA 


EXPX 


RESTORE INDEX REGISYERS AND MAKE NUMBRLS072150 


• 14561 


0500 


CO 





00425 


OUT 


CLA 


$Q1 


ANSWER IS 1 


LS072160 


14562 


C560 


CO 





00532 


EXP I 


LDQ 


$FIXD 


$FIX TO MQ 


LS072I70 


^ 14563 


0020 


CO 





14570 




TRA 


EXPX 


EXIT 


LS072180 


• 14564 


0100 


CO 





14567 


EXP A 


TZE 


EXPF 


(EXPT -0.0 N) IS 0,0 


LS072190 


BINARY CARD NO. 


LISP029 












• 14565 


-0120 


00 





145 33 




TMI 


EXPC 




LS072200 


14566 


0074 


CO 


4 


14573 




TSX 


$P0WR,4 


POWER ROUTINE 


LS072210 


14567 


0560 


CO 





00533 


EXPF 


LDQ 


FLOAT D 


$FLOAT TO MQ 


LS072220 


• 14570 


0774 


CO 


4 


00000 


EXPX 


AXT 


**,4 


RESTORE INDEX REGISTERS 


LS072230 


14571 


0774 


CO 


2 


OOOQO 


EXPY 


A XT 


**,2 




LS072240 


14572 


0020 


00 





13624 


G 


TRA 

HED 


$MKNO 
POWER 


MAKE ANSWER A NUMBER 


LS072250 

PKLS072260 

LS072270 


14573 


-0 600 


CO 





14715 


PQWR 


STQ 


N 




LS072280 


• 14574 


-0634 


CO 


I 


77660 




SXD 


COMMON, 1 




LS072290 


14575 


-0634 


CO 


2 


77661 




SXD 


CCMMON+1,2 




LS072300 


14576 


0534 


CO 


1 


00424 


P19 


LXA 


ZERO, 1 




LSC72310 


• 14577 


534 


CO 


2 


00424 




LXA 


ZERO, 2 




LS072320 


14600 


0765 


00 





0003 3 




LRS 


2 7 




LS072330 


~ 14601 


0402 


CO 





00451 




SUB 


L200 




LS072340 
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14602 


-06C0 


GC 





14716 




STQ 


FN 


14603 


C560 


CG 





00424 




LDQ 


ZERO 


14604 


-0100 


GG 





14607 




TNZ 


P01 


14605 


0601 


CO 





14717 




STO 


E 


14606 


0020 


CO 





14621 




TRA 


PC2 


14607 


0765 


GC 





00001 


P01 


LRS 


1 


146 1C 


1 C00C1 


1 


14611 




TXI 


P0 3, 1,1 


14611 


-0 1 GO 


CO 





14607 


P03 


TNZ 


PCI 


14612 


-0754 


CO 


1 


CCOQO 




PXD 


0,1 


BINARY CARD NO. 


LISP0291 








14613 


0771 


CO 





00022 




ARS 


18 


14614 


0760 


CO 





000Q3 




SSP 




14615 


G4C0 


GO 





00451 




ADD 


L200 


14616 


0763 


CO 





00033 




LLS 


27 


14617 


0601 


CO 





14717 




STO 


E 


14620 


G760 


CG 





OCOOO 




CLM 




14621 


0560 


CG 


G 


14716 


P02 


LDQ 


FN 


14622 


0763 


CO 





00033 




LLS 


27 


14623 


0400 


CO 





00471 




ADD 


LL20C 


14624 


G300 


CG 





14720 




FAD 


RSQ 


1462 5 


C6G1 


CO 





14721 




STO 


PC4 


14626 


3 02 


CO 





14727 




FS6 


SQ 


14627 


0240 


CO 





14721 




FDH 


PC4 


14630 


-0600 


CG 





14722 




STQ 


P05 


14631 


0260 


CC 





14722 




FMP 


P05 


14632 


0601 


CO 





14723 




STO 


P06 


14633 


0560 


CG 





14723 


P08 


LDQ 


P06 


14634 


0260 


CC 


2 


14734 




FMP 


C 7 , 2 


14635 


G300 


CO 


2 


14733 




FAD 


C5,2 


14636 


0601 


CG 


2 


14733 




STO 


C5,2 


1463 7 


1 COO 01 


2 


14 640 




TXI 


PG7,2,1 


1464C 


-3 C0CC2 


2 


14633 


P07 


TXL 


P08,2,2 


BINARY CARD NO,. 


LISP0292 








14641 


C560 


CC 





14731 




LDQ 


CI 


14642 


026O 


CC 





14 72 2 




FMP 


P05 


14643 


0302 


CC 





14730 




FSB 


R2 


14644 


0300 


GG 





14717 




FAD 


E 


14645 


0601 


CC 





14717 


P18 


STO 


E 


14646 


G560 


CC 


C 


14715 




LDQ 


N 


1464 7 


0260 


CO 





14717 




FMP 


E 


14650 


C601 


CO 





14715 




STO 


N 


14651 


0020 


CC 





15024 




TRA 


peg 


14652 


COOCO 





00000 


Ml 






14653 


OOOCO 





00000 


M2 






14654 


OOOCO 





00O01 


M3 




l 


14 655 


004 CO 





coooo 


M4 




C, 0,256 


14656 


534 


CO 


1 


0C424 


P41 


LXA 


ZfcRO,l 


14657 


560 


CO 





14726 


Pll 


LDQ 


W 


1466 


0260 


CG 


1 


14747 




FMP 


A6,l 


14661 


03CO 


CC 


1 


14746 




FAD 


A5,l 


14662 


C601 


CO 


1 


14746 




STO 


A5,l 


14 66 3 


1 C0001 


1 


14664 




TXI 


PlOf l f l 


14664 


-3 0OOC5 


1 


14 65 7 


P10 


TXL 


Pll, 1,5 



LS072350 
LS072360 
LS072370 
LS072380 
LS072390 
LS072400 
LS072410 
LS072420 
LS072430 



LS072440 
LS072450 
LS072460 
LS072470 
LS072480 
LS072490 
LS072500 
LS072510 
LS072520 
LS072530 
LS072540 
LS072550 
LS072560 
LS072570 
LS072580 
LS072590 
LS072600 
LS072610 
LS072620 
LS072630 
LS072640 
LS072650 



LS072660 
LS072670 
LS072680 
LS072690 
LS072700 
LS072710 
LS072720 
LS072730 
LS072740 
LS072750 
LS072760 
LS072770 
LS072780 
LS072790 
LSO 72800 
LS072810 
LS072820 
LS072830 
LS072840 
LS072850 
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14665 
14666 



601 
C5 34 



CO 
CO 2 



14726 
00424 



STO 

LXA 



W 
ZERO, 2 



LS072860 
LS072870 



BINARY C 
14 66 
1467 
14 67 
1467 
1467 
1467 
1467 
1467 
1467 
1470 
1470 
1470 
1470 
1470 
1470 
1470 
1470 
1471 
14 71 
1471 
1471 
1471 



ARD NC L 



BINARY CAR 
14715 



0500 C 
0601 C 
1 000 c 

-3 0000 
C534 G 
C5C0 C 
06G1 C 
1 0000 

-3 OOOC 
C560 C 
0260 
0601 
0560 
0260 
0601 
0020 
OOOC 
GC20 C 
OOOC 
0601 C 
OOOC 
C 0000 

D NO. L 
OOOC 



2 
2 
2 

1 
1 



1 





14716 
14717 

14720 
14721 
14722 
14723 
14724 
14725 
14726 
1472 7 
14730 
14731 
14732 
14 73 3 
14734 
14735 
14736 
14 73 7 
1474C 
14741 
14742 



0000 
OOOC 

+200552 

0000 

OOOC 

OOOC 

+200542 

0000 

OOOC 

+201552 

+20C40C 

+202561 

+200754 

+200447 

+177674 

+2 02561 

+200754 

+200447 

+177674 

+20 140 C 

+176777 



ISP0293 
2 14756 
C 2 14747 
14672 
14667 
00424 
14740 

1 14 734 

1 1 14677 
14674 
14726 

14726 
14726 
14726 
14726 
14726 
14757 
00000 
CO 14764 
00000 
C 14717 
00000 
GCOOG 

ISP0294 

00000 
00424 
00451 
00000 
OOOQU 
00471 

023632 

00000 

00000 

00000 

710300 

00000 

00000 

023632 

000000 

250731 

342231 

154 IOC 

535132 

250731 

342231 

154100 

535132 

000000 

776476 








P13 



P12 



P15 



P14 



EA 

PI 71 

P24 

P21 

SI 

S2 



N 

ZERO 

L200 

FN 

E 

LL200 

RSQ 

P04 

P05 

P06 

LOG 

S3 

W 

SG 

R2 

CI 



CLA 
STO 
TX1 
TXL 
LXA 
CLA 
STO 
TXI 
TXL 
LDQ 
FKP 
STO 
LDQ 
FMP 
STO 
TRA 

TRA 

STO 



C5 

C7 



CP7 



SYN 
SYN 



SYN 
OCT 



AP6,2 

A6,2 

P12,2,l 

P 1 3 , 2 , 6 

ZERO, 1 

CP7,1 

C 7 , 1 

P14,L,1 

P 15, 1,3 

W 

Vi 

W 

u 
w 

to 
P16 

P17 

E 



$ZERO 
$Q02C0 



Q02Q11 
+200552023632 



OCT +200542710300 



OCT +201552023632 
OCT +200400000000 
OCT +202561250731 
OCT +200754342231 
OCT +200447154100 
OCT +177674535132 
OCT +202561250731 
OCT +200754342231 
OCT +200447154100 
OCT +177674535132 
OCT +201400000000 
OCT +176777776476 



LS072880 
LS072890 
LS072900 
LS072910 
LS072920 
LS072930 
LS072940 
LS072950 
LS072960 
LS072970 
LS072980 
LS072990 
LS073000 
LS073010 
LS073020 
LS073030 
LS073040 
LS073050 
LS073060 
LS073070 
LS073080 
LS073090 



LS073100 
LS073110 
LS073120 
LS073130 
LS073140 
LS073150 
LS073160 
LS073170 
LS073180 
LS073190 
LS073200 
LS073210 
LS073220 
LS073230 
LS073240 
LS073250 
LS073260 
LS073270 
LS073280 
LS073290 
LS073300 
LS073310 
LS073320 
LS073330 
LS073340 
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BINARY CARD NC. LISP0295 

14743 +I7440C037635 

14744 4-170523517764 

14745 +164547625227 

14746 +157554324201 

14747 +154562606535 

14750 +201400000000 

14751 +176777776476 

14752 +17440C037635 

14753 +170523517764 

14754 +164547625227 

14755 +1575543242C1 

14756 +154562606535 

14757 0601 CO 15023 

14760 0500 CO 14710 

14761 0601 CO 14645 

14762 0500 CO 15023 

14763 0020 CO 14576 

14764 0020 CO 15124 

14765 C5C0 CO 14712 

14766 0601 CO 14645 

14767 0534 CO 1 00424 
14770 0500 CO 1 14740 



A5 
A6 
LI 



AP6 
P16 



P17 
P42 



P23 



OCT +174400037635 
OCT +170523517764 
OCT +164547625227 
OCT +157554324201 
OCT +154562606535 
OCT +201400000000 
OCT +176777776476 
OCT +174400037635 
OCT +170523517764 
OCT +16454 7625227 
OCT +157554324201 
OCT +154562606535 
STO EW 
CLA P171 
STO P18 
CLA EW 
TRA P19 
TRA P20 
CLA P21 
STO P18 
LXA ZERO,i 
CLA CP7,1 



LS073350 
LS073360 
LS073370 
LS073380 
LS073390 
LS073400 
LS073410 
LS073420 
LS073430 
LS073440 
LS073450 
LS073460 
LS073470 
LS073480 
LS073490 
LS073500 
LS073510 
LS073520 
LS073530 
LS073540 
LS073550 
LS073560 



BINARY CARD NC. LISP0296 



14771 
14772 
14773 
14774 
1477 5 
14776 
14777 
15000 
15001 
15002 
1500 3 
15004 
15005 
15006 
15007 
15010 
15011 
15012 
15013 
15014 
15015 
15016 



0601 CO 
1 00GC1 
-3 C00C3 
0560 CO 
0260 
0302 
0140 
0601 
560 
0260 
03C2 
0601 
0560 
0260 
0300 
0601 
0560 
0260 
0601 
5 60 
0260 
0601 



CO 
CO 

CO 

CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
00 
CO 
CO 
CO 
CO 
CO 
CO 



14734 
14773 
1477C 
14711 
14724 
14725 
15014 
14713 
14713 
14730 
14 750 
14714 
14713 
14714 
14750 
14713 
15023 
14713 
1502 3 
14652 
15023 
15023 



P22 



P25 



STO 
TXI 
TXL 

LCQ 
FMP 
FSB 
TOV 
STO 
LDQ 
FMP 
FSB 
STO 
LDQ 
FMP 
FAD 
STO 
LDQ 
FMP 
STO 
LDQ 
FMP 
STO 



C7,l 
P22, 1,1 
P2 3, 1,3 
P24 

LOG 

S3 

P25 

SI 

SI 

R2 

LI 

S2 

SI 

S2 

LI 

SI 

EW 

SI 

EW 

Ml 

EW 

EW 



LS073570 
LS073580 
LS073590 
LS073600 
LS073610 
LS073620 
LS073630 
LS073640 
LS073650 
LS073660 
LS073670 
LS073680 
LS073690 
LS073700 
LS073710 
LS073720 
LS073730 
LS073740 
LS073750 
LS073760 
LS073770 
LS073780 



BINARY CARD NC. LISP0297 



15017 
15020 
15021 
15022 
1502 3 
15024 



0500 
0120 
0500 
0020 



CO 
CO 
CO 
CO 



OOOCO 
0560 CO 



14 715 
15114 
14 750 
15112 
00000 
00424 



EW 
P09 



CLA 
TPL 
CLA 
TRA 



N 

P26 
LI 
P27 



LDQ ZERO 



L SO 73790 
LS073800 
LS073810 
LS073820 
LS073830 
LS073840 
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15025 
15026 
15027 
1503C 
15031 
15032 
15033 
15034 
1503 5 
15036 
15037 
15040 
15041 
15042 
15043 
15044 



0760 
C765 
0402 
0020 
C5C0 
0763 
0400 
0400 
0767 
04C0 
601 

-0600 
0500 

-01 00 
C5C0 
0120 



CO 
00 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 



00003 
00033 
00451 
15107 
00424 
00000 
00451 
14654 
C0033 
14655 
14652 
14653 
14653 
15061 
14715 
1505C 



BINARY CARD NO. LISP0298 



15045 
15046 
1504 7 
15050 
15051 
15052 
15053 
15054 
15055 
15056 
15057 
15060 
15061 
15062 
15063 
15064 
15065 
15066 
15067 
15070 
15071 
15072 



0500 
0240 
-0600 
0534 
0500 

601 

1 C00C1 
-3 00003 

05 00 00 
-0534 
-0534 

0020 

0760 

0534 

0763 

1 QOOOi 

0100 CO 

0765 
-0754 

0771 
-0 760 

0400 



CO 
CO 
CO 
00 
00 
CO 



GO 
CO 
00 
CO 
00 
00 



00 
00 
CO 
GO 

00 



14750 
14652 
14652 

00424 
14740 
14734 
150 54 
15051 
14652 
77660 
77661 
OOOQi 
00000 
00424 
0000 I 
15065 
15063 
00001 
00000 
00022 
00003 
00451 



BINARY CARD NO. LISP0299 

15073 0400 CO 14654 



15074 


763 


CO 





0003 3 


15075 


0601 


CO 





1465 3 


15076 


560 


CO 





14724 


15077 


0260 


CO 





1465 3 


15100 


0601 


CO 





14726 


15101 


0020 


CO 





15122 


1510 2 


0500 


CO 





14750 


15103 


0601 


CO 





14652 


15104 


500 


CO 





14715 


15105 


0760 


CO 





00003 


15106 


0020 


CO 





15075 


15107 


0100 


CO 





15102 



P40 
P39 



P30 
P32 



P31 



P29 



P34 



P3 3 



P36 



P3 7 



P28 



SSP 

LRS 
SUB 
TRA 
CLA 
LLS 
ADD 
ADO 
ALS 
ADD 
STO 
STQ 
CLA 
TNZ 
CLA 
TPL 



CLA 
FDH 
STQ 
LXA 
CLA 
STO 

rxi 

TXL 
CLA 
LXD 
LXD 
TRA 
CLM 
LXA 
LLS 
TXI 
TZE 
LRS 
PXD 
ARS 
SSM 
ADD 



ADD 
LLS 

sro 

LDQ 
FMP 
STO 
TRA 
CLA 
STO 
CLA 
SSP 
TRA 
TZE 



** 



27 

L200 

P28 
ZERO 

^ 

L200 

M3 

27 

M4 

Ml 

HZ 

M2 

P29 

N 

P30 



LI 

Ml 

Ml 

ZER0,1 

CP7, 1 

C7,l 

P3 1,1,1 

P32,l,3 

Ml 

COMMON, 1 

COMMCN+1,2 

1,4 

ZERO, 2 

1 

P33,2,l 

P34 

1 

0,2 

18 

L200 



M3 
27 
M2 
LOG 

M2 

W 
P3 5 

LI 
Ml 

N 

P36 

P3 7 



LS073850 
LS073860 
LS073870 
LS073880 
LS073890 
LS073900 
LS073910 
LS073920 
LS073930 
LS073940 
LS073950 
LS073960 
LS073970 
LS073980 
LS073990 
LS074000 



LS074010 
LS074020 
LS074030 
LS074040 
LS074050 
L SO 74060 
LS074070 
LS074080 
LS074090 
LS074100 
LS074110 
LS074120 
LS074130 
LS074140 
LS074150 
LS074160 
LS074170 
LS074180 
LS074190 
LS074200 
LS074210 
LS074220 



LS074230 
LS074240 
LS074250 
L SO 74260 
LS074270 
LS074280 
LS074290 
LS074300 
LS074310 
LS074320 
LS074330 
LS074340 
L SO 74350 



mmiimmmmmmmmmmm 
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_ 1 5 1 1 C 


-0120 


GO 


■0 15102 




TMI 


P37 




• 15111 


0020 


CO 


15120 




TRA 


P38 




15112 


0240 


CO 


15023 


P27 


FDH 


Eh 




15113 


-0600 


GO 


15023 




STQ 


tW 




• 15114 


500 


CO 


15023 


P26 


CLA 


tw 




15115 


-0 5 34 


CO 


1 77660 




LXD 


COMMON,! 


15116 


-C534 


CO 


2 77661 




LXD 


CCMMGN+1,2 


• 15117 


0020 


GO 


4 C0001 




TRA 


1,4 




15I2C 


C621 


CO 


15032 


P38 


STA 


P39 




• BINARY CARD NO. 


LISPG300 










15121 


0020 


CO 


15031 




TRA 


P40 




1512 2 


0601 


CO 


14 725 


P35 


STO 


S3 




• 15123 


0G20 


CO 


14656 




TRA 


P41 




1512 4 


0760 


CO 


00003 


P20 


SSP 






15125 


0601 


CO 


14711 




STO 


P24 




• 15126 


0020 


GO 


14765 




TRA 


P42 














HEAD 


Q 










* ADD 


ADDS 


i A 


STRING OF FIXED 


• 1512 7 


-0 634 


CO 


4 04241 


ADDP 


SXD 




AMIR,4 


15130 


7 74 


CO 


4 11102 




AXT 




$PLUS,4 


-. 15131 


0604 


CC 


04242 




s r i 




AMINO 


• 15132 
15133 


0057 


CO 


000177 




RIR 




177 


0055 


GO 


000O01 




SIR 




1 


15134 


0020 


CO 


15156 




TRA 




AMMMF 


15135 
~ 15136 


-0 6 34 


CO 


4 04241 


it 

MULT 


SXD 




AMIR, 4 


774 


CO 


4 10336 




AXT 




$TIMES,4 


• 15137 


604 


CO 


04242 




STI 




AMINO 


15I4C 


0057 


CC 


000177 




RIR 




177 


15141 


0055 


00 


000002 




SIR 




2 


• 15142 


0020 


CO 


15156 




TRA 




AMMMF 


' m. 1514 3 


-0634 


CO 


4 04241 


MIN 


SXD 




AMIR,/, 


[ • 15144 


0774 


CO 


4 11331 




AXT 




$MINP,4 


15145 


60'- 


CO 


04242 




STI 




AMIND 


!'! • 151A6 


0057 


CO 


000177 




RIR 




177 


BINARY CARD NC. 


LISP0301 










15147 


0055 


CO 


000010 




SIR 




10 


• 15150 


0020 


CC 


15156 




TRA 




AMMMF 


i 15151 


-0634 


00 


4 04241 


MAX 


SXD 




AMIR, 4 


• 15152 


7 74 


00 


4 11341 




AXT 




$MAXP,4 


15153 


0604 


CC 


04242 




STI 




AMIND 


15154 


0057 


CO 


000177 




RIR 




177 


• 15155 


0055 


CO 


000004 




SIR 




4 


15156 


0634 


CO 


4 04241 


AMMMF 


SXA 




AMIR,4 


1515 7 


0074 


GO 


4 03KK 




1SX 




$SAVE,4 


• 15160 


-3 04244 


03167 




TXL 




$EN02,, AMINOS 


15161 


0074 


GO 


4 17050 




TSX 




*EVLI5,4 


_ 15162 


0074 


00 


4 03117 




TSX 




UNSAVE,4 


w 15163 


06 34 


CO 


2 15337 




SXA 




AMIR2,2 


15164 


0600 


CO 


15 342 




STZ 




AMSUM 


^ 15165 


-0 7 34 


CO 


4 00000 


AMLP 


PDX 




0,4 



POINT OR FLOATING POINT NUMBERS 
SAVE LINK IR 

SAVE INDICATORS 
RESET FIRST 7 INDICATORS 
SET ADO INDICATOR (1) 
GO TO MAIN FUNCTION 

SAVE LINK IR 

SAVE INDICATORS 
RESET FIRST 7 INDICATORS 
SET MULTIPLY INDICATOR (21 
GO TO MAIN FUNCTION 

SAVE LINK IR 

SAVE INDICATORS 

RESET FIRST 7 INDICATORS 



SET MINIMUM FUNCTION INDICATOR (10) 
GO TO MAIN FUNCTION 

SAVE LINK IR 

SAVE INDICATORS 

RSET FIRST 7 INDICATORS 

SET MAXIMUN FUNCTION INDICATOR 14} 

PUT PROGRAM NAME WITH LINK IR 

OTHER 3 FUNCTIONS ENTER AT *-I 

SAVE 2 ITEMS 

EVALUATE THE LIST OF ARGUMENTS 

RESTORE IR 4 AND INDICATORS 

SAVE IR 2 

ZERO FINAL ANSWER REGISTER 

PUT POINTER TO ARG LIST IN IR 4 



LS074360 
LS074370 
LS074380 
LS074390 
LS074400 
LS074410 
LS074420 
LS074430 
LS074440 



LS074450 
LS074460 
LS074470 
LS074480 
LS074490 
LS074500 
LS074510 
LS074520 
LS074530 
LS074540 
LS074550 
LS074560 
LS074570 
LS074580 
LS074590 
LS074600 
LS074610 
LS074620 
LS074630 
LS074640 
LS074650 
LS074660 
LS074670 
LS074680 
LS074690 
L SO 747 00 



LS074710 
LS074720 
LS074730 
LS074740 
LS074750 
LS074760 
LS074770 
LS074780 
LS074790 
LS074800 
LS074810 
LS074820 
LS074830 
LS074840 
LS074850 
LS074860 



'wmmm 
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15166 -3 OOOCO 4 15331 



15167 


C5C0 


CO 


4 COOOC 


1517G 


0601 


CO 


04243 


15171 


C734 


CO 


4 COOOO 


15172 


-0754 


00 


4 00000 


15173 


CO 74 


cc 


4 15343 


15174 


-C6C0 


CO 


04244 


BINARY CARD NO. 


LISP03O2 


15175 


0056 


CO 


000100 


15176 


C020 


cc 


15221 


15177 


00 54 


CC 


000002 


15200 


0020 


CO 


15241 


15201 


-0734 


CO 


4 00000 


15202 


0500 


CO 


4 COOOC 


15203 


U056 


00 


000001 


15204 


0020 


CO 


15301 


15205 


-0534 


CO 


2 04244 


15206 


0074 


CO 


4 15551 


15207 


0761 


CO 


COOOO 


15210 


0020 


cc 


15234 


15211 


00 55 


00 


C00O2O 


15212 


-0 774 


cc 


4 152 36 


15213 


0054 


CO 


OC0040 


15214 


0020 


CO 


15267 


15215 


0400 


cc 


C 15342 


15216 


60 1 


CO 


15342 


15217 


0500 


CO 


04243 


15220 


020 


CC 


15165 


152 21 


-0 734 


CO 


4 COOOO 


15222 


0500 


CO 


4 00000 


BINARY CARD NO. 


LISP03O3 


15223 


0601 


CC 


15 342 


15224 


-0 5 34 


CO 


2 04244 


15225 


74 


CO 


4 15551 


15226 


0761 


CO 


00000 


15227 


0055 


CO 


OC0040 


15230 


0055 


CO 


000020 


15231 


0055 


CO 


000100 


15232 


0500 


CO 


04243 


1523 3 


0020 


CO 


15165 


15234 


0055 


CO 


000040 


15235 


0054 


CO 


C00020 


1523 6 


0074 


CO 


4 15271 


15237 


0300 


CO 


15342 


1524C 


0Q2O 


00 


15216 


15241 


-0 7 34 


CO 


4 OOOOO 


15242 


0500 


cc 


4 OOOOO 


15243 


-0 5 34 


00 


2 04244 


15244 


0074 


CO 


4 15551 


15245 


761 


CO 


OOOOO 


15246 


0020 


CO 


15261 


15247 


0055 


00 


00G020 


15250 


-0 774 


00 


4 15263 



AMRT 



AMFRS 



AFLL 



AFLR 



AMLT 



TXL 


AMEND, 4,0 


CLA 


0,4 


STO 


AMLIS 


PAX 


0,4 


PXD 


0,4 


TSX 


NUMVAL,4 


STQ 


AMQ 


RNT 


100 


TRA 


AMFRS 


RFT 


2 


TRA 


AMLT 


PCX 


C4 


C LA 


0,4 


KNT 


1 


TRA 


AMM 


LXD 


AMQ, 2 


TSX 


FIXFL0 t 4 


NOP 




TRA 


AFLL 


SIR 


20 


AXC 


AFLK,4 


RFT 


40 


TRA 


UNFX 


ADD 


AMSUM 


STO 


AMSUM 


CLA 


AMLIS 


TRA 


AMLP 


POX 


0,4 


CLA 


0,4 


STO 


AMSUM 


LXD 


AMQ, 2 


TSX 


FIXFLC4 


NOP 




SIR 


40 


SIR 


20 


SIR 


100 


CLA 


AMLIS 


TRA 


AMLP 


SIR 


4C 


RFT 


20 


TSX 


MIXFL,4 


FAD 


AMSUM 


TRA 


AMRT 


PDX 


0,4 


CLA 


0,4 


LXD 


AMQ, 2 


TSX 


FIXFL0,4 


NOP 




TRA 


AFMP 


SIR 


20 


AXC 


AFLT,4 



GO TO EXIT IF NULL LS074870 

GET FIRST WORD LS074880 

SAVE THE WORD LS074890 

CAR OF LIST LSO 74900 

TO DECREMENT LS074910 

EVALUATE THE ITEM LS074920 
SAVE CHARACTERISTIC {$FIX OR $FLOAT) LS074930 



TEST FOR FIRST TIME 
IS FIRST TIME GO TO 
TEST FOR MULT FUNOT 
EXECUTE MULT FUNCTI 
POINTER TO FULL WOR 
GET NUMERICAL VALUE 
SKIP NEXT INSTRUCT I 
EXECCUTE MAX OR MLN 
ADD FUNCTION. PICK 
TEST FOR FIX OR FLO 
IMPOSSIBLE RETURM 
EXECUTE FAD 
IS FIXED POINT. SET 
PRESET IR 4 



THROUGH 
INITIALIZE 

ION 

ON 

D 



ON IF ADD 
FUNCTION 
UP TYPE OF 
AT 



SKIP NEXT 
IS MIXED, 
FIXED ADD 
STORE NEW 
PICK UP 
CO NEXT 



INSTRUCTI 

FLOAT THI 

OF SUM 

SUM 
ARG LIST 
ITEM 



FIXED POINT IND. 



ON IF NOT 
S NUMBER 



POINTER TO FULL WORI 
GET NUMERICAL VALUE 



LS074940 
AMSUM LS074950 
LS074960 
LS074970 
LS074980 
LSO 74990 

FUNCTION LS075000 
LS075010 
NUMBER LS075020 
LS075030 
LS075040 
LS075050 
LS075060 
LS075070 

MIXED EXPLS075080 
LS075090 
LS075100 
LS075110 
LS075120 
LS075130 
LS075140 
LS075150 



STORE NUMERICAL VALUE IN AMSUM 

PICK UP TYPE OF NUMBER 

TEST FOR FIX OR FLOAT 

IMPOSSIBLE EXIT 

SET FLOAT INDICATOR 

SET FilX INDICATOR 

SET INDICATOR SO IT WILL 

PICK UP REST OF ARG LIST 

DO NEXT ITEM 

IS FLOATING POINTt SET PROPER I 

SKIP NEXT INSTRUCTION IF NOT MI 

UNMIX THE EXPRESSION 

FLOATING ADD THE CURRENT SUM 

STORE AND DO NEXT ITEM CN LIST 

POINTER TO FULL WORD 

GET NUMERICAL VALUE 

PICK UP TYPE 

TEST FOR FIX OR FLOAT 

IMPOSSIBLE RETURN 

DO FMP 

SET FIXED POINT INDICATOR 

PRESET IR 4 



NOT GET BACK 



LS075160 
LS075170 
LS075180 
LS075190 
LS075200 
LS075210 
LS075220 
LS075230 
LS075240 
NDI.CAT0LS075250 
XED EXPLS075260 
LS075270 
LS075280 
LS075290 
LS075300 
LS075310 
LS075320 
LS075330 
LSO 75340 
LS075350 
LS075360 
LS075370 



Mi 
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BINARY CARD NO. 


LISP0304 


15251 


54 


CO 


000040 


15252 


0020 


CO 


15267 


15253 


0131 


CO 


00000 


15254 


200 


CO 


15 34 2 


15255 


0131 


CO 


■o 00000 


15256 


C6C1 


CC 


C 15342 


15257 


G5C0 


CO 


04243 


15260 


0020 


CO 


15165 


15261 


0055 


CO 


000040 


15262 


0054 


CC 


000020 


15263 


C074 


CO 


4 15 271 


15264 


0131 


CO 


COOOO 


15265 


0260 


CO 


15 342 


15266 


C02G 


CC 


15256 


15267 


CC57 


CC 


000020 


1527C 


0020 


on 


15566 


15271 


0634 


00 


4 ib277 


15272 


0601 


CO 


15341 


15273 


500 


CO 


15342 


15274 


0074 


CO 


4 15267 


15275 


601 


CO 


15342 


15276 


0500 


00 


15 341 


BINARY CARD NO. 


L1SP0305 


15277 


0774 


CO 


4 00000 


15300 


0020 


CO 


4 00001 


15301 


-0534 


00 


2 04244 


15 30 2 


0074 


CC 


4 15 551 


15303 


0761 


CO 


00000 


15304 


CO 20 


CO 


15317 


15305 


0055 


CO 


000020 


15306 


00 54 


CO 


000040 


15 307 


0074 


CC 


4 15267 


1531C 


€056 


CC 


000004 


15311 


0020 


CO 


15323 


15312 


0340 


CC 


C 15 342 


15 313 


0601 


CC 


15342 


15314 


0761 


CC 


C OOOQO 


15315 


05 CO 


CC 


04243 


15316 


0020 


CO 


15165 


15317 


00 55 


CC 


000040 


15320 


0054 


CC 


000020 


15 321 


74 


CO 


4 15271 


15322 


0020 


CC 


15310 


1532 3 


0340 


CO 


15 342 


15324 


0020 


CC 


15 327 


BINARY CARD NO. 


LISP03G6 


15325 


0020 


CO 


15 327 


15326 


0601 


CC 


15 342 


15327 


0500 


CO 


04243 


15330 


0020 


CO 


15165 


15331 


500 


CO 


15 342 


15332 


0560 


CC 


00 532 



AMRU 



AFMP 



AFLT 



UNFX 



MIXFL 



MXLR 



AMM 



AMRNT 



AFL 



AMIN 



AMEND 



RFT 


40 


TRA 


LNFX 


XCA 




MPY 


AMSUM 


XCA 




STO 


AMSUM 


CLA 


AMLIS 


TRA 


AMLP 


SIR 


40 


RFT 


20 


TSX 


MIXFL, 4 


XCA 




FMP 


AMbUM 


TRA 


AMRU 


KIR 


20 


TRA 


$UNFIX 


SXA 


MXIR,4 


STO 


AMR 


CLA 


AMSUM 


TSX 


UNFX, 4 


STO 


AMSUM 


CLA 


AMR 


AXT 


**,4 


TRA 


1,4 


LXD 


AMQ,2 


TSX 


FIXFLC4 


NOP 




TRA 


AFL 


SIR 


20 


RFT 


40 


TSX 


UNFX, 4 


RNT 


4 


TRA 


AMIN 


CAS 


AMSUM 


STO 


AMSUM 


NOP 




CLA 


AMLIS 


TRA 


AMLP 


SIR 


40 


RFT 


20 


TSX 


MIXFL, 4 


TRA 


AMRNT 


CAS 


AMSUM 


TRA 


* + 3 


TRA 


*+2 


STO 


AMSUM 


CLA 


AMLIS 


TRA 


AMLP 


CLA 


AMSUM 


LDQ 


AMFXC 



SKIP NEXT INSTRUCTION IF NOT MIXED 

IS MIXED, FLOAT THIS NUMBER 

NUMBER TO MQ 

MPY BY CURRENT ANSWER 

PUT LEAST SIGNIFICANT BITS IN AC 

STORE NEW ANSWER 

PICK UP ARG LIST 

CO NEXT ITEM 

SET FLOATING POINT INDICATOR 

TEST FOR MIXED EXP 

UNMIX THE EXPRESSION 

NUMBER TO MQ 

FMP BY CURRENT ANSWER 

STORE NEW ANSER AND DO NEXT ITEM 

RESET FIXED POINT INDICATOR 

FLOAT THE NUMBER IN THE AC 

FIX MIXED EXPRESSION 

SAVE AC 

PICK UP CURRENT ANSWER 

FLOAT IT 

PUT IT AWAY 

RESTORE AC 



TYPE 



RESTORE IR 4 

RETURN 

MAX OR MIN FUNCTION. GET 

TEST FOR FIX OR FLOAT 

IMPOSSIBLE RETURN 

EXECUTE FLOATING SECTION 

SET FIXED PONT INDICATOR 

TEST FOR MIXED EXP 

FLOAT THE ARGUMENT IF MIXED 

TEST FCRMAX FUNCTION 

EXECUTE MIN FUNCTION 

COMPARE WITH CURRENT 

IS GREATER, STORE AS 

THEY ARE EQUAL 

IS LESS, PICK UP ARGUMENT LIST 

00 NEXT ITEM 

SET FLOATING POINT INDICATOR 

TEST FOR MIXED EXPRESSION 

UNMIX THE EXPRESSION 

COMPARE AND DO NEXT ITEM 

MIN FUNCTION,. COMPARE WITH CURRENT 

IS GREATER 



ANSWER 
NEW ANSWER 



IS EQUAL 

IS LESS, STORE AS 

PICK UP NEXT ITEM 

EXECUTE IT 

ALL DONE. PICK UP 

PRESET MQ 



NEW ANSWER 



CURRENT ANSWER 



EXPLS075380 
LS075390 
LS075400 
LS075410 
LS075420 
LS075430 
LS075440 
LS075450 
LS075460 
LS075470 
LS075480 
LS075490 
LS075500 
LS075510 
LS075520 
LS075530 
LS075540 
LS075550 
LS075560 
LS075570 
LS075580 
LS075590 



LS075600 
LS075610 
LS075620 
LS075630 
LS075640 
LS075650 
LS075660 
LS075670 
LS075680 
LS075690 
LS075700 
LS075710 
LS075720 
LS075730 
LS075740 
LS075750 
LS075760 
LS075770 
LS075780 
LS075790 
VALLS075800 
LS075810 



LS075820 
LS075830 
LS075840 
LS075850 
LS075860 
LS075870 
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15333 
15334 
15335 
15336 
15337 
1534C 



15341 
15342 



GC54 
0560 
0441 
-0 5 34 
0774 
0020 



GO 
GO 
CO 
CO 
CO 
CO 



C COO GO 
OOOCO 



000040 
00533 
04242 
04241 
00000 
13624 
00533 
00532 
00000 
OOOOG 



15343 
15344 
15345 
15346 
15 347 
15350 
15351 



0634 CO 
0601 CO 
-0734 00 
-3 OOOCO 
0500 CO 
0734 00 
3 7 7776 



15373 
04063 

coooo 

15352 
00000 
00000 
15363 



15352 -0754 GO GOOOO 



BINARY CARD NC. LISP0307 



15353 
15354 
15355 
15356 
15357 
15 36 
15361 



0131 
-0754 
5 34 
522 
05 00 
-0 634 
0074 



00 

CO 
CO 
CO 
CO 
CO 
CO 



OOOQC 
GOOOO 
15373 
00001 
04063 
02313 
02314 



15362 54316C600354 



15 36 3 
15364 
15365 
15366 
15 367 
15370 
15 371 
15372 
15 373 
15374 
15375 
15376 
15377 
15400 



-0734 

-0 320 

C1G0 

0771 

0621 
-0754 
-0774 

0560 

0774 

0020 

11662 

11645 

00000 

COOOO 



CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 



4 00000 
00524 
15 352 
00017 
15371 
4 OOOOC 
COOOO 
15374 
00000 
OOOOi 
COOOO 
00000 
COOOO 
00000 



4 

4 
4 
4 



BINARY CARD NC LISP0308 

1540 1 11662 00000 



AMIR2 



AMFL 
AMFX 

AMR 
AMSU 
* NUM 

* 

* 

NUMVA 



RFf 
LDQ 
LDI 
LXD 
AXT 
TRA 
SYN 
SYN 



40 

AMFLC 

AMINO 

AMIR, 4 

**,2 

$MKNO 

FLOATD 

$FIXD 



M 

VAL NUMERICAL VALU 
REPRESENTS A FIXED POI 
THE ROUTINE CLEARS THE 
TO ERROR WITH A BAD AR 
REPRESENT A NUMBER, UP 
AS INDICATED 



NVLP 



SXA 
STO 
PDX 
TXL 
CLA 
PAX 
TXH 



NVNO PXD 



XCA 
PXD 
LXA 
XEC 
CLA 
SXD 
TSX 
BCI 



NVATM 



NVIR4 
NVTBL 



PDX 
ANA 
TZE 
ARS 
STA 
PXD 
AXC 
LDQ 
AXT 
TRA 



NVIR4,4 

$AR33 

0,4 

NVNO, 4,0 
0,4 
0,4 
NVATM, 4, -2 

0,0 



0,0 

NVIR4,4 

1,4 

4ARG3 

$ERR0R,4 

$ERRGR+1,4 

lt*I 3« 

0,4 

TAGMSK 

NVNO 

15 

* + 2 

0,4 

**,4 

NVTBL, 4 

** ,4 

1,4 

0, ,$FIX 

0, ,$FLOAT 

0,,0 

0, ,0 



G,,$FIX 



SKIP NEXT IF FIXED POINT 

PICK UP FIX IN Ma 

RESTORE INDICATORS 

RESTORE IR 4 

RESTORE IR 2 

MAKE THE ANSWER A NUMBER 

FLAOT CONSTANT 

FIX CONSTANT 

TEMP iSTORAGE 

CURRENT ANSWER STORAGE 
E TAKES ANY LIST AND DECIDES IF IT 
NT OR FLOATING POINT NUMBER. IF IT DOES 
AC AND MQ DOES AN XEC 1,4 AND THEN GOE 
GUMENT COMPLAINT. IF THE LIST OOES 
ON EXIT THE FOLLOWING THINGS ARE LEFT 

POINTER TO FULL WORD IN AC 

$FIX OR tFLOAT IN MQ 

SAVE LINK IR 

SAVE ORIGINAL ARGUMENT 

POINTER TO NUMBER IN IR 4 

NULL LIST IS NOT A NUMBER 

FIRST ELEMENT 

CAR LIST 

GO IF AN ATOM 

IS NOT NUMBER, CLEAR AC 



LS075880 
LS075890 
LS075900 
LS075910 
LS075920 
LS075930 
LS075940 
LS075950 
LS075960 
LS075970 
L SO 75980 
NOTLS075990 
S LS076000 
LS076010 
LS076020 
LS076030 
LS076040 
L SO 76050 
LS076060 
LS076070 
LS076080 
LS076090 
LS076100 
LS076110 
L SO 761 20 
LS076130 



PUT IN MQ 

CLEAR AC AGAIN 

RESTORE LINK IR 

EXECUTE POSSIBLE EXIT INSTRUCTION 

MUST BE AN ERROR, PICK UP ORIGINAL 

GO TO ERROR 

BAD ARGUMENT NUMVAL 



RESTORE IR 4 



LS076140 
LS076150 
LS076160 
LS076170 
ARGLS076180 
LS076190 
LS076200 
LS076210 
LS076220 
LS076230 
LS076240 
LS076250 
LS076260 
LS076270 
LS076280 
LS076290 
LS076300 
LS076310 
LS076320 
LS076330 
LS076340 
LS076350 
LS076360 



LS076370 
LS076380 
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15402 
15403 
15404 
15405 
15406 
15407 
15410 
15411 
15412 
15413 
15414 
15415 
15416 
15417 
1542G 
15421 
15422 
15423 

15424 
15425 
15426 



0634 
0774 
0634 
0634 
0C74 
-C6G0 
-C734 
5 00 
-0534 
00 74 
0761 
0522 
0522 
0560 
0774 
774 
0774 
020 



CO 
CO 



CO 2 



CO 4 
CO 4 
CO 
CO 4 
CO 4 
CO 2 
CO <\ 
CC 
CO 1 
00 1 
CC 
GO 1 
GO 2 
CO 4 
CO 



15420 
COOOO 
15421 
15 422 
15343 
15424 
00000 
00000 
15424 
15551 
00000 
15425 
15 42 7 
15424 
COOQG 
00000 
00000 
13624 



oooco 

300 CO 
3 02 GO 



uoooo 

00510 
00510 



BINARY CARD NO. 
15427 0400 
15430 C4C2 



LISP0309 
CO 0042 5 
CC CG425 



15431 
15432 
15433 



15434 
15 435 
15436 
15437 
15440 
15441 

15442 
15443 



06 34 
0774 

0020 



0634 
0074 
CC40 
•0754 
0774 
CC20 



CC 
CO 
CO 



GO 
CC 
CO 
CO 
CO 
CO 



1 15420 
1 77777 
15404 



0500 CO 
0020 CO 



15440 
14342 
15442 
COOOO 
00000 
00 001 

00476 
15440 



15444 

15445 



0131 

0020 



GO 
CO 



COOOO 
15434 



# 

* ADD1 

ADD1 



AD1 



AlIRl 
A1IR2 
AILR4 



AIT 

FAD 



ADDF 

* SUB! 
SUB1 



* SUB1 
GRTRTP 



NUMBER 

SXA 

AXT 

SXA 

SXA 

TSX 

STQ 

PDX 

CLA 

LXD 

TSX 

NOP 

XEC 

XEC 

LDQ 

AXT 

AXT 

AXT 

TRA 



FAD 
FSB 



ADD 1 ADDS 
AND EXITS W 
A1IRL.1 
0,1 

A1IR2,2 
A1IR4,4 
NUMVAL,4 
AIT 
0,4 
0,4 
AIT, 2 
FIXFLC4 

FAD,1 

ADDF,1 

AIT 

**»1 

**,2 

»*»4 

$MKNO 



$QF1 
$QF1 



ONE TO 
ITH THE 



ANY FIXED POINT OR FLOATING POINT 
NEW NUMBER 

SAVE IR 1 

ZERO IR 1( INDICATES ADD OP) 

SAVE IR 2 

SAVE LINK IR 

EVALUTE NUMERICAL ARGUMENT 

SAVE $FIX OR AFLOAT 

POINTER TO FULL WORD 

GET NUMERICAL VALUE 

PICK UP $FIX OR $FLOAT 

IMPOSSIBLE RETURN 

IS FLOAT, DO FLOATING POINT OP 

DO FIXED POINT OP 

RESTORE iFLGAT AFTER FAD 

RESTORE IR I 

RESTORE IR 2 

RESTORE LINK IR 

MAKE RESULT A NUMBER 

TEMPORARY STORAGE 
FLOATING ADO FOR ADD1 
FOR SU81 



GRTIR 

GRTT 

* 

* LESST 

LESSTP 



ADD 
SUB 



POIN 

SXA 

AXT 

TRA 

USES 



SXA 
TSX 
TLQ 
PXD 

AXT 
TRA 

CLA 
TRA 



L SUBTRACTS 
S CODING OF 



$Q1 
$Q1 

SUBTRACT 
' NUMBER. USE 

MIRltl 

-1,1 

AD1 
THE COOING OF ADD1 



GRTIR, 4 

UNUMIX,4 

GRTT 

0,0 

** ,4 

li4 

$QD1 
GRTIR 



FOR 
FOR 



ADD1 
SU81 



ONE FROM A FIXED POINT OR FLOAT 
ADD! WITH AN INITIALIZATION. 

SAVE IR 1 

SET FOR SUBTRACT OPERATIONS 

PERFORM ADD1 CODING 



ARGUMENTS 



SAVE LINK IR 
EVALUATE NUMERICAL 
PREDICATE TRUE 
FALSE, CLEAR AC 

EXIT 



GET TRUE VALUE 

RESTORE LINK IR AND EXIT 



P 
WITH 

XCA 
TRA 



LESS THAN 
THA ARGUMENT 



GRTRTP 



PREDICATE. 
REVERSED. 



SIMPLE DOES GREATER THAN PRED 



INTERCHANGE ARGUMENTS 

DO GREATER THAN PREDICATE 



LS076390 
LS076400 
LS076410 
LS076420 
LS076430 
L SO 76440 
LSO 76450 
LS076460 
LS076470 
LS076480 
LS076490 
LS076500 
LS076510 
LS076520 
LS076530 
LS076540 
LS076550 
LS076560 
LS076570 
LS076580 
LS076590 
LS076600 
LS076610 
LS076620 
LS076630 



LS076640 
LS076650 
LS076660 

ING LS076670 
LS076680 
LS076690 
LS076700 
LS076710 
LS076720 
LS076730 
LS076740 
LS076750 
LS076760 
LS076770 
LS076780 
LS076790 
LS076800 
LS076810 
LS076820 
LS076830 
LS076840 
LS076850 

ICATELS076860 
LS076870 
LS076880 
LS076890 
LS076900 
LS076910 



wmmmmm 
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THE 



15446 
15447 
15450 
15451 
15452 
1545 3 



0634 
GC74 
0100 
0500 
0774 
0020 



GC 
CO 

CO 
CG 
GO 
GO 



15452 
15 343 
15452 
00476 
00000 
00001 



FOLLO 
PRED 
PREO 
BLOC 



* 

* 

* 

* NUMBRP 

NUMBKP SXA 
TSX 
TZE 
CLA 
AXT 
TRA 



NPT 
NPIR 



WING IS A -NUMBER PREDICATE PACKAGE WHICH INCLUDES NUMBER 
ICATE, ZERO PREDICATE, MINUS PREDICATE, ONE PREDICATE, FIX 
ICATE AND FLOAT PREDICATE. ALL THESE PREDICATES SHARE CERTA 
KS OF CODING AND TEMPORARY STORAGE. 

NUMBER PREDICATE TESTS ITS ARGUMENT FOR A NUMBER. 

NPIR, 4 SAVE LINK IR 

NUMVAL,4 EVALUATE ARGUMENT 

NPIR IF ZERO NCT A NUMBER 

$QD1 IS A NUMBER, PICK UP TRUTH 

**,4 RESTORE LINK IR 

1,4 EXIT 



15454 0634 GO 4 15452 



* FLO ATP 

* ARGU 
FLOATP SXA 



FLOATING POINT NUMBER PREDICATE TESTS 
MENT IS A FLOATING POINT NUMBER 

NPIR, 4 SAVE LINK IR 



TO SEE IF ITS 



LS076920 
LS076930 
INLS076940 
LS076950 
LS076960 
LS076970 
LS076980 
LS076990 
LS077000 
LS077010 
L SO 77020 
LS077030 
LS077040 
LS077050 
L SO 77060 



BINARY CARD NC. LISP0310 



15455 
15456 
15457 
15460 
15461 
15462 
1546 3 
15464 
15465 
15466 



15:46 7 
1547C 
15471 
15 472 
1547 3 
15474 
15475 
15476 
15477 
15500 



15501 
15502 



06 34 
0074 
0131 
-0 7 34 
0074 
0761 
0020 
0020 
G500 
0020 



0634 
0634 
00 74 
1 3 1 
•0734 
00 74 
0761 
00 20 
0500 
0020 



GO 
GO 
00 
CO 
CO 
CO 
CG 
CO 
CO 
CO 



CO 
CO 
GO 
CO 
CO 
CO 
GO 
CO 
CO 
CO 



0634 CO 
0074 CO 



15526 
15 343 
COOQG 
GOOOG 
15551 
C 0-000 
15465 
15525 
00476 
15526 



15452 
15526 
15343 

QOOOO 
CQOOO 
15551 
GOOOO 
15525 
00476 
15526 



15452 
15343 



FLT 

* FIXP 
FIXP 



SXA 
TSX 

XCA 
POX 
TSX 

NOP 
TRA 
TRA 
CLA 
TRA 



SXA 

SXA 
TSX 
XCA 
PDX 
TSX 
NOP 
TRA 
CLA 
TRA 



* MINUSP 

* NcGAT'I 
MINUSP SXA 

TSX 



ZPIR,2 
NUMVAL,4 

0,2 
FIXFL0,4 

FLT 
ZPF 

$QD1 
ZPIR 

FIXED POINT 
NPIR, 4 
ZPIR, 2 

NUMVAL,4 

0,2 
FIXFL0,4 

ZPF 

$QD1 
ZPIR 



SAVE IR 2 

EVALUATE ARGUMENT 

GET TYPE IN AC 

TYPE IN IR 2 

TEST FOR $FIX OR $FL0AT 

IMPOSSIBLE RETURN 

IS FLOATING POINT 

IS NOT FLOATING POINT,. EXIT 

GET TRUTH VALUE 

RESTORE IR S AND EXIT 



FALSE 



PREDICATE TESTS FOR FIXED POINT NUMBERS. 
SAVE LINK IR 
SAVE IR 2 
EVALUATE ARGUMENT 
GET TYPE IN AC 
TYPE IN IR 2 
TEST FOR $FIX OR AFLOAT 
IMPOSSIBLE EXIT 
IS FLOAT, EXIT FALSE 
IS FIX, GET TRUTH VALUE 
RESTORE LR S AND RETURN 



MINUS PREDICATE 
VE NUMBER. 
NPIR, 4 
NUMVAL,4 



TESTS TO SEE IF ITS ARGUMENT IS A 

SAVE LINK IR 
EVALUATE ARGUMENT 



LS077070 
LS077080 
LSO 77090 
LS077100 
LS077110 
LS077120 
LS077130 
LS077140 
LS077150 
LS077160 
LS077170 
LS077180 
LS077190 
LS077200 
LS077210 
LS077220 
LS077230 
LS077240 
LSO 77250 
LS077260 
LS077270 
LS077280 
LS077290 
LS077300 
LS077310 
LS077320 
LS077330 



BINARY CARD NC. LISP03I1 



15503 
15504 
1550 5 
15506 
15507 



-0 7 34 

C5C0 

-C120 

-C754 

0020 



CO 
CO 
CO 
GO 
CG 



GOOOO 
00000 
15451 
GOOOO 
15452 



* 
* 
* 



ZEROP 



PDX 0,4 

CLA 0,4 

TMI NPT 

PXD 0,0 

TRA NPIR 

ZERO PREDICATE 
OR 



PICK UP NUMBER 
EXIT TRUE IF MINUS 
IS NOT, EXIT FALSE 
RESTORE LINK IR AND EXIT 

TESTS ITS ARGUMENT FOR A FIXED POINT 



ZERO 

ZERO OR A FLOATING POINT ZERO + OR - A TOLERENCE IFLOTOL}. 



LS077340 
LS077350 
LS077360 
LS077370 
LS077380 
LS077390 
LS077400 
LS077410 
LS077420 
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155 10 
15511 
15512 
15513 
15514 
15515 
15516 
15517 
15520 
15521 
15522 
15 52 3 
15 52 4 
15525 
15526 
15527 
15530 



0634 
0634 
G074 

-0 7 34 
0500 
076O 
C1C0 
0131 

-0734 
0500 
0Q74 
0020 
0020 

-0754 
774 
0020 
0500 



BINARY CARD NO. 

15531 0020 

15532 0040 

15533 0020 



15 5 34 
15535 
15536 
15 53 7 
1554C 
15541 
15542 
15543 
15544 
15545 
15546 
15547 
15550 



0634 
0634 
0074 

-0734 
500 
0131 

■0734 
131 
0074 
0761 
0302 
0402 
0020 



CO 4 
CO 2 
CO 4 
00 4 
CO 4 
CO 
GO 
GO 
GO 2 
CO 
GO 4 
CO c 
CO -0 
CO 
CO 2 
CO c 
CO 



15452 
15526 
15343 
00000 
00000 
0000 3 
15530 
00000 
00000 
15624 
15551 
15 532 
15532 
00000 
00000 
15452 
00476 



LISP03I2 
CO 15526 
CO 15 5 30 
CO 15525 



CO 
CO 
CO 
00 
CO 
CO 
CO 
CO 
GO 
CO 
CO 
CO 
CO 



15452 
15526 
15343 

COOOO 
OOOOO 
OOOQC 
COOOO 
COOOO 
15551 
OOOOO 
C0510 
00425 
15515 



15551 
15552 
15553 
15554 

15555 
15 556 



-3 
-3 
-3 
-3 



11661 
11662 
11644 
11645 



C5 22 
020 



CO 
CO 



15553 
15565 
15555 
15561 
0CO01 
C0004 



BINARY CARD NO. LISP 031 3 



15 557 
1556C 
15561 
15562 
15563 
15564 



020 
20 
0522 
0020 
CO 20 
020 



CO 
CO 
CO 
CO 
CO 
GO 



00005 
C0006 
00002 
00004 
00005 
C0006 



ZEROP 



ZPG 



ZPF 
ZP IR 

ZPF 



ZPTS 



ONEP 



ONBP 



* 



FIXFLO 



FL 



SXA 
SXA 
TSX 
POX 
CLA 
SSP 
TZE 
XCA 
PDX 
CLA 
TSX 
TRA 
TRA 
PXD 
AXT 
TRA 
CLA 



TRA 
TLQ 
TRA 

BY SUB 

SXA 

SXA 

TSX 

PDX 

CLA 

XCA 

PDX 

XCA 

TSX 

NOP 

FSB 

SUB 

TRA 

FIXFLC 



TXL 
TXL 
TXL 
TXL 
XEC 
TRA 



TRA 
TRA 
XEC 
TRA 
TRA 
TRA 



NPIR, 4 

ZPIR,2 

NUMVAL.4 

0,4 

0,4 

ZPT 

0,2 

FLOTCL 

FIXFLC, 4 

ZPTS 

ZPTS 

0,0 

**,2 

NPIR 

$QD1 



SAVE LINK IR 
SAVE IR 2 
EVALUATE ARGUMENT 
GET POINTER TO IR 
FULL WORD 
GET MAGNITUDE OF 
EXIT TRUE IF ZERO 
PUT NUMBER IN MQ 
PUT TYPE IN IR 2 
PICK UP FLOATING 
TEST FGR FIX OR F 
NOT FIX OR FLO ME 
IS FLOATING POINT 
IS FIXED POINT, E 
RESTORE IR 2 
RESTORE IR 4 AND 
GET TRUTH VALUE 



LS077430 

LS077440 

LSO 77450 

4 LS077460 

LS077470 
N LS077480 

LS077490 
LS077500 
LS077510 
POINT TOLERENCE LS077520 
LOAT LS077530 

ANS FLO FROM ONEP LS077540 
, COMPARE WITH FLOTOLLSO 77550 
XIT FALSE LS077560 

LS077570 
EXIT LS077580 

LS077590 



ZPIR RESTORE IR S AND EXIT 

ZPT IS FLOATING POINT,, EXIT TRUE IF LESS 

ZPF OTHERWISE EXIT FALSE 

ONE PREDICATE TESTS TO SEE IF ITS ARGUMENT IS ONE 
TRACTING ONE AND TESTING THE RESULT WITH ZEROP. 
NPIR, 4 SAVE LINK IR 

ZPL\i,2 SAVE IR 2 

NUMVAL,4 EVALUATE ARGUMENT 

0,4 POINTER TO AC 

0,4 FULL WORD TO AC 

TYPE TO AC 
0,2 TYPE TO IR 2 



FIXFLO, 4 

$QF1 

$01 

ZPG 



»+2,2,$FIX-l 

FX,2,*FIX 

* + 2,2,$FL0AT- 

FL,2,$FL0AT 

1,4 

4,4 



5,4 
6,4 
2,4 
4,4 
5,4 
6,4 



DISPATCH ON FIX OR FLOAT 
IMPOSSIBLE RETURN 

SUBTRACT 1 

APPLY ZERO PREDICATE 

SUBROUTINE TO DISPATCH ON FIX OR FLO, 
ARGUMENT IN IR 2. 

TXL - TXL FILTER FOR $FIX 

GO IF $FLX 

TXL - TXL FILTER FOR SFLOAT 

GO IF SFLOAT 

EXCEUTE IF NEITHER FIX OR FLOAT 

RETURN 



SKIP EXIT 

SKIP 2 EXIT 

EXECUTE IF $FLOAT 

RETURN 

SKIP EXIT 

SKIP 2 EXIT 



LS077600 
LS077610 
LS077620 
LS077630 
LS077640 
LS077650 
LS077660 
LS077670 
LS077680 
LS077690 
LS077700 
LS077710 
LS077720 
LS077730 
LS077740 
LS077750 
LS077760 
LS077770 
LS077780 
LS077790 
LS077800 
LS077810 
LS077820 
LS077830 
LSO 77840 
LS077850 
LS077860 
LSO 77870 



LS077880 
LS077890 
LS077900 
LS077910 
LS077920 
LS077930 



wmmm 
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^ 1556 5 


0020 


CO 


4 


000O3 


FX 


TRA 


3,4 






LS077940 












« 


FIXFLC USES $FIX 


AND 


IFLACT 


LS077950 












* UNFIX 


UNFIX MAKES A 


FIXED POINT ARGUMENT IN THE AC A FLOATING 


LS077960 












* 


POINT 


NUMBER LEFT 


IN 


AC. MQ IS PRESERVED. 


LS077970 


• 15566 


0601 


CO 





15622 


UNF I X 


STO 


UFC 




SAVE ARGUMENT 


LS077980 


15567 


-0320 


CO 





C0470 




ANA 


UFMSK 




MASK OUT ALL BUT CHARACTERISTIC 


LS077990 


15570 


-0100 


CO 





15577 




TNZ 


UF£ 




IF ANY THING LEFT IT MUST BE NORMAL IZDLS078000 


• 15571 


C500 


GO 





15622 




CLA 


UFC 




NOTHING LEFT, RESTORE ARGUMENT 


LS078010 


15572 


-0 501 


CC 





00467 




ORA 


UFMC 




OR IN CHARACTERISTIC 


LS078020 


15573 


-0600 


LO 





15621 




STQ 


UFQ 




SAVE MQ 


LS078030 


• 15574 


0300 


CO 





00467 




FAD 


UFMC 




ESSENTIALLY FAD OF ZERO TO NORMALIZE 


LS078040 


1557 5 


0560 


CO 





15621 




LDQ 


UFQ 




RESTORE MQ 


LS078050 


15576 


0020 


CO 


4 


C0001 


■» 


TRA 


1,4 




EXIT 


LS078060 
LS078070 


15577 


06 34 


CO 


4 


15617 


UFt 


SXA 


UFXR, 4 




NUMBER GREATER THAN 2 TO 27. SAVE IR4 


LS078080 


15600 


0774 


CO 


4 


0G234 




AXT 


2*64+3*8+4,4 


CHARACTERISTIC SO FAR 


LS078090 


• 15601 


0600 


CC 





15623 




STZ 


UFS 




INITIALIZE SIGN PORTION 


LSO781O0 


1560 2 


0120 


CO 





15605 




TPL 


OFF 




SKIP IF + 


LS078110 


^ 15603 


760 


CC 





00003 




SSP 






MAKE IT + 


LS078120 


• 15604 


-0625 


CC 


c 


15623 




STL 


UFS 




RECORD FACT BY MAKING UFS NON-ZERO 


LS078130 


BINARY CARD NO. 


LISPG314 














• 15605 


0771 


00 





0000 1 


UFF 


ARS 


1 




DIVIDE NUMBER BY 2 


LS078140 


15606 


0340 


CO 





00466 




CAS 


UFNC 




SEE IF NORMALIZED YET 


LS078150 


15607 


i 000C1 


4 


15605 




TXI 


UFF, 4,1 




ADD 1 TO CHARACTERISTIC AND TRY AGAIN 


LS078160 


• 15610 


1 C00C1 


4 


15605 




TXI 


UFF,4, I 




DITTO 


LS078170 


15611 


C6G1 


CC 





15622 




STO 


UFC 




IS NORMALIZED 


LS078180 


— 15612 


-0754 


00 


4 


COOOG 




PXO 


0,4 




CHARACTERISTIC TO AC 


LS078190 


• 15613 


767 


CO 





00011 




ALS 


9 




POSITION CHARACTERISTIC 


LS078200 


15614 


-0501 


00 





15622 




ORA 


UFC 




OR IN NORMALIZED NUMBER 


LS078210 


15615 


0520 


00 





15623 




zer 


UFS 




TEST FGR SIGN, MEANS + 


LS078220 


• 15616 


-0760 


CO 





0000 3 




S5M 






NOT ZERO SO MAKE MINUS 


LS078230 


15617 


0774 


00 


4 


GOOOO 


UFXR 


AXT 


**,4 




RESTORE I R 4 


LS078240 


15620 


0020 


CO 


4 


00001 




TRA 


1,4 




EXIT 


LS078250 










CG470 


UFMSK 


SYN Q777Q9 




CHARACTERISTIC MASK 


LS078260 










00467 


UFMC 


SYN G233Q9 




GENERAL CHARACTERISTIC 


LS078270 










00 466 


UFNC 


SYN $Q01Q9 






LS078280 


• 15621 


COO CO 





00000 


UFQ 








MQ 


LS078290 


15622 


GOOCO 





CGOOO 


UFC 








AC TEMPORARY STORAGE 


LS078300 


15623 


00000 





GOOOO 


yps 








SIGN STORAGE 


LS078310 












* UNFIX USES 


NO EXTERNAL 


CONSTANTS. 


LS078320 












* FLOTOL 


FLOATING 


POINT TOLERENCE USED IN DESIDING IF FLOATING 


LS078330 












# 


POINT 


NUMBERS ARE 


INTEGERS. 


LS078340 


• 15624 


+156622516334 


FLOTOL 


DEC 


3E-6 




FLOATING POINT TOLERENCE VALUE 


LS078350 












* MNSPRG 


MINUS PROGRAM 


MAKES A LIST OF MINUS AND ITS ARGUMENT 


LS078360 












* 










LS078370 












* MNSPRG 


CREATES A 


NUMBER OF OPPOSITE SIGN OF NUMERICAL ARGUMENT 


LS078380 












* 










LS078390 


^ 15625 


0634 


CC 


4 


15632 


MNSPRG 


SXA 


MRXR,4 




SAVE LINK IR 


LS078400 


• 15626 


0074 


CO 


4 


15343 




TSX 


NUMVAL,4 




EVALUATE THE NUMERICAL ARGUMENT 


LS078410 


15627 


-C734 


00 


4 


GOOOO 




PDX 


0,4 




POINTER TO FULL WORD 


LS078420 


_ 15630 


0500 


CO 


4 


GOOOO 




CLA 


0,4 




NUMERICAL VALUE 


LS078430 


• 15631 


0760 


GO 





0G002 




CHS 






MAKE OPPOSITE SIGN 


LS078440 


15632 


0774 


CC 


4 


00000 


MRXR 


AXT 


**,4 




RESTORE LINK IR 


LS078450 



HMP 
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BINARY CARD NO. 
15633 0020 



LISP0315 
CO 13624 



15634 
15635 
15636 
15637 
1564C 
15641 
15642 
15643 
15644 
15645 
15646 
15647 
15 650 
15651 
15652 
15653 
15 654 
15655 
15656 
15657 



0634 
C634 
0074 

-0 7 34 
0500 
06 01 
131 

•0734 
74 
761 
0500 
0Q20 
0241 
760 
0074 
0131 
0560 
0774 
0774 
0020 



CO 4 
GO 2 
CO 4 
00 4 
CO 4 
CO 
00 
CO 2 
GO 4 
00 
00 
00 
00 
CO 
CO 4 
CO 
CO 
00 4 
00 2 
CO 



15655 
15656 
15343 

00000 
00000 
15663 
OOOQO 
OOOQO 
15551 
00000 
00510 
15660 
15663 
00012 
02442 
COOOO 
00533 
GOO 00 
00000 
13624 



15660 0131 CO 00000 



BINARY CARD NO. 

15661 -0 7 54 

15662 0020 



LISP0316 
CO 00000 
CO 15655 



15663 GOOCO 00000 

00533 



15664 
15665 
15666 
15667 
15670 
15671 
15672 
15673 
15674 
15675 
15676 



0634 

-0734 

0500 

0400 

0601 

C4C2 

-CI 00 

-0625 

-0 754 

0774 

0020 



CO 4 
CO 4 
CO 
GO 
CO 
CO C 
CO 
CG 
CO 4 
CO 4 
00 4 



15675 
00000 
15677 
00 42 5 
15677 
15700 
15674 
15701 
00000 
OOOQO 
00001 



TRA 

a 

* RCPPRG 
RCPPRG SXA 
SXA 
TSX 
PDX 
CLA 
STO 
XCA 
POX 
TSX 
NOP 
CLA 
TRA 
FDP 
OCT 
TSX 
XCA 
LDQ 
AXT 
AXT 
TRA 



RRXR 
RRXR 2 



RCPT 
RCPS 



* 



TCNTEM 



$MKNO 

CALCULATES 

RRXR, 4 

RRXR2,2 

NUMVAL,4 

0,4 

0,4 

RCPT 

0,2 
FIXFL0,4 

$gpi 

RCPFX 
RCPT 

$DCT,4 

RCPS 
** ,4 
**,2 

$MKNO 



RCPFX XCA 



PXD 

TRA 



SYN 



0,0 
RRXR 



FLUATD 



MAKE IT A NUMBER 

THE RECIPORICAL OF A NUMBER. 
SAVE LINK IR 
SAVE IR 2 

EVALUTE THE NUMERICAL ARGUMENT 
POINTER TO FULL WORD 
NUMERICAL VAUUE 
SAVE VALUE 
TYPE TO AC 
TYPE TO IR 2 

DISPATCH ON FIX OR FLOAT 
IMPOSSIBLE RETURN 

IS FLOAT* PICK UP FLOATING POINT 1 
IS FIXED POINT 
DIVIDE BY ARGUMENT 
CHECK FOR ILLEGAL DIVISION 
DIVIDE CHECK ERROR 
CUOTENT TO AC 
$FLOAT TO MQ 
RESTORE LINK IR 
RESTORE IR 2 
MAKE ANSWER A NUMBER 

FIXED POINT RECIP, ANSWER IS ZERO 



CLEAR AC 

RESTORE IR S AND MAKE A NUMBER 

TEMPORARY STORAGE 
FLOAT INDICATOR 



HED 

TCNTEM IS THE TRACECOUNT FUNCTION— IT COUNTS THE 
NUMBER OF FUNCTION ENTRANCES THROUGH APLY, EVAL, 
AND LINK — AND BEGINS TRACING AFTER A SPECIFIED 
NUMBER OF FUNCTION ENTRANCES HAS OCCURRED 



TCNTMI 



SXA 
PDX 
CLA 
ADD 
STO 
SUB 
TNZ 
STL 
PXD 
AXT 
TRA 



TCNTMI, 4 

0,4 

TCNTMN 

$Q1 

TCNTMN 

TCNTMF 

*+2 

TCNTTR 

0,4 

0,4 

1,4 



15677 OOOCO COOOO TCNTMN 



FUNCTION ENTRANCE COUNT 



LS078460 
LS078470 
LS078480 
LS078490 
LS078500 
LS078510 
LS078520 
LS078530 
LS078540 
LS078550 
LS078560 
LS078570 
LS078580 
LS078590 
LS078600 
LS078610 
LS078620 
LS078630 
LS078640 
LS078650 
LS078660 
LS078670 
LS078680 
LS078690 
LS078700 



LS078710 
LS078720 
LS078730 
LS078740 
LS078750 
LS078760 
LS078770 
LS078780 
LS078790 
LS078800 
LS078810 
LS078820 
LS078830 
LS078840 
LS078850 
LS078860 
LS078870 
LS078880 
LS078890 
LS078900 
LS078910 
LS078920 
LS078930 
LS078940 
LS078950 
LS078960 
LS078970 
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15700 


00000 





00000 


TCNTMF 






TRACECOUNT ARGUMENT 


15701 


G OOCCO 





15701 


TCNTTR 


PZE 


* 


IF ZERO, DONT TRACE 


15702 


C COO 00 





00000 


TCNTMA 






IF ZERO, TRACECOUNT INACTIVE 












"ft 


TCNTM3 SETS UP 


TRACECOUNT 


15703 


0634 


GO 


4 


15717 


TCNTM3 


SXA 


TCNTM4.4 




15704 


-0734 


GO 


4 


00000 




POX 


0,4 




15705 


0500 


CO 


4 


00000 




CLA 


0,4 




15706 


-C734 


CO 


4 


00000 




PCX 


0,4 




BINARY CARD NO.. 


LISP0317 










15707 


C5G0 


CO 


4 


00000 




CLA 


0,4 




15710 


C6€l 


CO 





15700 




STO 


TCNTMF 




15711 


-0625 


CO 





15702 




STL 


TCNTMA 




15712 


0600 


CO 





15701 




STZ 


TCNTTR 




15713 


-0100 


CO 


C 


15 715 




TNZ 


*+2 




15714 


-0625 


CO 





15701 




STL 


TCNTTR 




15715 


0600 


CC 





15677 




STZ 


TCNTMN 




15716 


0754 


CO 





00000 




PXA 


0,0 




15717 


7 74 


CO 


4 


00000 


TCNTM4 


AXT 


0,4 




15720 


20 


CO 


4 


00001 




TRA 


1,4 





LS078980 
LS078990 
LS079000 
LS079010 
LS079020 
LS079030 
LS079040 
LS079050 
LS079060 
LS079070 



LS079080 
LS079090 
LS079100 
LS079110 
LS079120 
LS079130 
LS079140 
L SO 79150 
LS079160 
LS079170 
LS079180 



LISP 1.5 
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TTL 



APPLY 
APPLY 



AND EVAL 



APPLY(F,L,A) = 

SELECKCARU)., 

-1,APP2(F,L,A)«, 

LAMBDA, EVALtF.APPEN DC PAIR {CADR{F) f L),A}) 

LABEL, APPLY (CA DDR IF), L,APPEND< 

PAIRiiCADR(F) tCADDRLF) ) ),A)., 
APPLY(EVALIF,A),L,A)) 



^ . 15721 


-G634 


GO 


4 


04112 


A HED 
APPLY SXD 


ASSl,4 




• 15722 


C1C0 


CO 


4 


0000 i 


TZE 


1,4 




15723 


06G1 


GG 





04115 


STO 


AST1 


F 


15 724 


-C734 


GO 


4 


COOOO 


PDX 


0,4 




• 15725 


6 34 


CG 


4 


04112 


SXA 


A SSI, 4 


SAVE FUNCTION ALONG 


15726 


C5C0 


GO 


4 


00000 


CLA 


0,4 


CWR(F) 


*t 15727 


7 34 


CO 


4 


ccooc 


PAX 


G,4 


CAR(F) 


• 15 73 


3 77776 


4 


15760 


TXH 


ASPl,,4,-2 


=-1 


15731 


-0754 


CO 


4 


00000 


PXD 


0,4 




15732 


0340 


CO 





00 537 


CAS 


ASLMD 


= LAMBDA 


• 15733 


020 


CO 





15735 


TRA 


* + 2 




15734 


0020 


CO 





15763 


TRA 


ASP2 




• BINARY CARD NO. 


LISP 03 18 








15735 


0340 


CO 





00535 


CAS 


AS FUN 




15736 


0020 


CO 





15740 


TRA 


* + 2 




• 15737 


0020 


CO 





16036 


TRA 


ASP4 




1574C 


0340 


CO 





00536 


CAS 


ASLBL 


= LABEL 


~ 15741 


020 


CC 





15743 


TRA 


# + 2 




• 15742 


0020 


CO 





16006 


TRA 


ASP3 




15 743 


0074 


CO 


4 


03104 


TSX 


$SAVE,4 




15744 


-3 041 16 


G 


03165 


TXL 


$FND3, ,ASSA+2 


SAVE 3 ITEMS 


• 15745 


-0600 


CO 





04113 


STQ 


ASSL 




15746 


0560 


CC 





04063 


LDQ 


$ARG3 




15747 


-0600 


CG 


c 


04114 


STQ 


ASSA 




• 1575C 


0500 


CC 





04115 


CLA 


AST1 


F 


15751 


0074 


CO 


4 


16521 


TSX 


$EVAL,4 


EVAL(F,A) 


15 75 2 


560 


CC 





04114 


LDQ 


ASSA 




• 15 75 3 


-0600 


CC 


C 


04063 


STQ 


$ARG3 




15 754 


560 


CO 





04113 


LDQ 


ASSL 




15755 


G074 


CO 


4 


03117 


TSX 


UNSAVE,4 




• 15 756 


-0534 


00 


4 


04112 


LXO 


ASS 1,4 




15757 


0020 


CC 





15721 


TRA 


APPLY 


APPLYIEVALtF».A) r L,A) 


# 1576C 


500 


GO 





04115 


ASP1 CLA 


AST1 


F 


15761 


-0534 


CO 


4 


04112 


LXD 


ASS1,4 




15762 


0C20 


CO 





16054 


TRA 
* 


$APP2 

LAMBDA BRANCH 


P APP2(F,L,A) 


BINARY CARD NO. 


LISP0319 








• 15 763 


-0534 


CO 


4 


04115 


ASP2 LXD 


AST1,4 


F 


15764 


0500 


CC 





G'*063 


CLA 


$ARG3 




-. 15765 


0,601 


CC 





04117 


sro 


AST3 
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LS079190 
LS079200 
LS079210 
LS079220 
LS079230 
LS079240 
LS079250 
LS079260 
LS079270 
LS079280 
LS079290 
LS079300 
LS079310 
LS079320 
LS079330 
LS079340 
REGISTELS079350 
LS079360 
LS079370 
LS079380 
LS079390 
LS079400 
LS079410 
LS079420 



LS079430 
LS079440 
LS079450 
LS079460 
LS079470 
LS079480 
LS079490 
LS079500 
LS079510 
LS079520 
LS079530 
LS079540 
LS079550 
LS079560 
LS079570 
LS079580 
LS079590 
LS079600 
LS079610 
LS079620 
LS079630 
LS079640 
LS079650 
LS079660 



LS079670 
LS079680 
LS079690 



LISP 1.5 
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15766 


C500 


CO 


4 


00000 


15767 


-0734 


CO 


4 


GCOOO 


1577C 


5 00 


CO 


4 


00000 


15771 


0601 


CO 





04120 


15772 


0734 


GO 


4 


00000 


15773 


-0754 


CO 


4 


OOOQO 


15774 


CC74 


CO 


4 


10402 


15775 


0560 


CO 





04117 


15776 


0074 


GO 


4 


10515 


15777 


0131 


CO 





00000 


1600G 


-0 5 34 


CO 


4 


04120 


16001 


G5G0 


GO 


4 


OOOQO 


16002 


0734 


00 


4 


GO 000 


16003 


-0754 


CO 


4 


00000 


16004 


-0 534 


GO 


4 


04112 


16005 


0020 


CO 





16521 


16006 


-0534 


GO 


4 


04115 


16007 


-0600 


CO 





04116 


1601C 


0560 


GO 





04063 


BINARY CARD NO. 


LISP0320 


16011 


-0600 


CG 





04117 


16012 


0500 


GO 


4 


00000 


16013 


-0734 


GO 


4 


00000 


16014 


500 


GO 


4 


COOOO 


16015 


0601 


GO 





04120 


16016 


-0734 


GO 


4 


COOOO 


16017 


0500 


CO 


4 


00000 


1602 


07 34 


CO 


4 


00000 


1602 1 


-07 54 


00 


4 


COOOO 


16022 


0601 


00 





04115 


16023 


0131 


CG 


G 


coooc 


16024 


0534 


CO 


4 


04120 


16025 


-0754 


CO 


4 


COOOO 


16026 


0074 


GO 


4 


04 471 


1602 7 


0560 


GC 





04117 


16030 


0074 


CO 


4 


04471 


16031 


0601 


GO 





04063 


16032 


0560 


CO 





04116 


16033 


0500 


CO 





04115 


16034 


-0534 


CO 


4 


04112 


16035 


0020 


CO 





15721 



16036 -0 534 GO 4 04115 



INARY CARD NO. 


LISP0321 


1603 7 


0500 


CG 4 


COOOO 


16 040 


-0734 


CO 4 


00000 


16041 


G5C0 


00 4 


00000 


16042 


0601 


GO 


04115 


16043 


-G7 34 


CO A 


OCOOO 


16044 


C500 


CO 4 


00000 



ASP3 



ASP4 



CLA 
PCX 
CLA 
STO 
PAX 
PXD 
TSX 
LDQ 
TSX 
XCA 
LXO 
CLA 
PAX 
PXQ 
LXD 
TRA 



LXD 
STQ 

LDQ 



STQ 
CLA 
PDX 
CLA 
STO 
PDX 
CLA 
PAX 
PXD 
STO 
XCA 
LXA 
PXD 
TSX 
LDQ 

rsx 

STO 

LDQ 
CLA 
LXD 
TRA 



0,4 

0,4 

0,4 

AST4 

0,4 

0,4 

$PAIR,4 

AST3 

■SNC0NC4 



AST4,4 

0,4 

0,4 

0,4 

ASS1,4 

$EVAL 



CWR(F) 

CDR(F) 

CWDRIF) 

CADR(f) 

PAIRICADRIFUL) 
A 



CDDR(F) 



EV AL (CA CDR (F), APPEND! PA IR4CADRI F J ,L ) , A)) 



LABEL 
AST1,4 
AST2 
$ARG3 



AST3 

0,4 

0,4 

0,4 

AST4 

0,4 

0,4 

0,4 

0,4 

AST1 

AST4,4 

0,4 

$C0NS,4 

AST3 

$C0NS,4 

$ARG3 

AST2 

AST1 

ASS1,4 

APPLY 



BRANCH 



F 
L 
A 



CWR(F) 
CDR(F) 

CWDR(F) 
CDDR(F) 

CADDRCF1 



CADRtFI 

CONS (C ADR «F)„CONSCCADDR(F),0) J 
A 

APPENOt ABOVE, A) 



CADDR(F) 



APPLY{CADDR(FJ,L,APPEND{PAIR;(CADRIF)„CADDRIF)),A)) 



FUNARG BRANCH 
LXD AST I, 4 



CLA 
PDX 

CLA 
STO 

PDX 
CLA 



,4 

,4 

,4 

AST1 

,4 

,4 



CDRLFJ 

CWDRIF) 
CDDR(F) 



LS079700 
LS079710 
LS079720 
LS079730 
LS079740 
LS079750 
LS079760 
LS079770 
LS079780 
LS079790 
LS079800 
LS079810 
LS079820 
LS079830 
LS079840 
LS079850 
LS079860 
LS079870 
LS079880 
LS079890 
LS079900 



LS079910 
LS079920 
LS079930 
LS079940 
LS079950 
LS079960 
LS079970 
LS079980 
LS079990 
LS080000 
LS080010 
LS080020 
LS08003O 
LS080040 
LS080050 
LS080060 
LS080070 
LS080080 
LS080090 
LS080100 
LS080110 
LS080120 
LS080130 
LS080140 



LS080150 
LS080160 
LS080170 
LS080180 
LS080190 
LS080200 



wtmmmmmm 
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16045 
16046 
16047 
1605C 
16051 
16052 
16053 



C734 
■07 54 

0601 

C534 
•0 7 54 
•C534 

0020 



CO 
CO 
00 
CO 
CO 
CO 
CO 



00000 
00000 
0406 3 
04115 
OOOOC 
04112 
15721 

00536 
00537 
00535 
00424 



PAX ,4 

PXD ,4 

STO $ARG3 

LXA AST1,4 

PXD ,4 

LXD ASSlt.4 

TRA $APPLY 

ASLBL SYN LABELD 
ASLMD SYN LAMDAD 
ASFUN SYN FNARGD 
ASZRO SYN $ZERO 



CADDR{F) 



CADR(F) 
F 



APP2IF,L,A)=SELECT(F.,CAR,CAAR(L).,CDR, 

CD ARIL)., CONS, CONS (CAR CD , CADR ( LJ 3 .*L I ST, COPY ( L )., SEARCH { F, 

LaMB0A(J,CAR( J)=SUBR OR CARiJ)=EXP), 

LAMBDAIJ,CAR{ J)=SUBR YIELDS APP3I6WADR 

(J) iDISTRIB(D) , 1 YIELDS APPLY i CADRIJ ) , L, A ) ) } 

ERROR) 



IN ADDR 













A HED 








16054 


-0634 


CO 


4 


16215 


APP2 SXD 


ATS1,4 




SAVE LINK IR 


16055 


-0734 


CO 


4 


00000 


PDX 


,4 




SAVE NAME OF FUNCTION 


1605 6 


C5G0 


CO 





16215 


CLA 


ATS1 




NAME FOR TRACING 


16057 


06 34 


CO 


4 


16215 


SXA 


ATS1,4 




SAVE IR4 AND 


1606C 


0601 


CO 





04057 


STO 


CSV 






16061 


0634 


CO 


4 


C4057 


SXA 


CSV, 4 






16062 


-07 54 


CO 


4 


CO 000 


PXD 


,4 




RESTORE THE FN TO AC 


16063 


-0534 


CO 


4 


04063 


LXD 


$ARG3,4 




GET ALIST 


16064 


-0634 


CO 


k 


16221 


SXD 


A, 4 




SAVE IT 


BINARY CARD NC. 


t ISP0322 










16065 


-C6C0 


CG 





162 20 


STQ 


AL 




ARGUMENT LIST 


16066 


0601 


CO 





16217 


STO 


F 




FUNCTION US ATOMIC S 


16067 


600 


CO 





16213 


STZ 


APTRT 




INITIALIZE TRACE TEST 


1607C 


C520 


CG 





15702 


ZET 


TCNTMA 






16071 


0074 


cc 


4 


15664 


TSX 


TCNTEM,4 






16072 


-0734 


CO 


4 


00000 


APSES PDX 


0,4 




ARG TO IR 


16073 


-3 GOOCO 


4 


16135 


TXL 


APSAL,4, 





GO IF NO MORE PROPERTY 


160 74 


C500 


CC 


4 


00000 


CLA 


0,4 




FIRST WORD 


16075 


C734 


CO 


4 


00000 


PAX 


0,4 




CAR 


16076 


-3 10 32 5 


4 


16100 


TXL 


*+2,4,$TRACE-l 




16077 


-3 103 26 


4 


16165 


TXL 


APTRK,4, 


$TRAC£ 


LOOK FOR TRACE 


16100 


-3 104 3 7 


4 


16102 


TXL 


*+2,4,$SUBR-l 


LOOK FOR 


16101 


-3 10440 


4 


16114 


TXL 


R2,4,$SUBR 


$SUBR OR 


1610 2 


-3 11703 


4 


16072 


TXL 


APSES, 4, 


$EXPR-1 


SEXPR 


1610 3 


3 11704 


4 


16072 


TXH 


APSES, 4, 


$EXPR 














* 


EXPR BRANCH IN 


APPLY 


16104 


-0734 


CO 


4 


COOOO 


R21 POX 


0,4 




POINTER TO NEXT WORD A 


1610 5 


0500 


CO 


4 


00000 


CLA 


0,4 




NEXT WORD 


16106 


0734 


CO 


4 


COOOO 


PAX 


0,4 




CAR 


16107 


-0 7 54 


CO 


4 


00000 


PXD 


0,4 




IS FUNCTION 


161 10 


05 20 


CC 





16213 


ZET 


APTRT 




TEST FOR TRACE MODE 


16111 


0020 


CO 





1615 5 


TRA 


APTXP 




TRACE THIS EXPRESSION 


16112 


-0 5 34 


CO 


4 


16215 


LXD 


ATS1,4 




RESTORE LINK IR 



SYMBOL) 
CELL 



LIST 



AFTER $EXPR 



LS080210 
LS080220 
LS080230 
LS080240 
LS080250 
LS080260 
LS080270 
LS080280 
LS080290 
LS080300 
LS080310 
LS080320 
LS080330 
LS080340 
LS080350 
LS080360 
LS080370 
LS080380 
LS080390 
LS080400 
LS080410 
LS080420 
LS080430 
LS080440 
LS080450 
LS080460 
LS080470 
LS080480 
LS080490 
LS080500 



LS080510 
LS080520 
LS080530 
LS080540 
LS080550 
LS030560 
LS080570 
LS080580 
LS080590 
LS080600 
LS080610 
LS080620 
L SO 806 30 
LS080640 
LS080650 
LS080660 
LSG80670 
LS080680 
LS080690 
LS080700 
LS080710 
LS080720 
L SO 80730 
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BINARY CARD INC. 


LI SPG 323 
















• 16113 


C020 


CC 





15721 


» 


TRA 


$APPLY 

R2 THE SUBR BRANCH 


GO TO APPLY 
OF APPLY 






LS080740 
LS080750 


16114 


-0734 


CO 


4 


00000 


R2 


PDX 


0,4 


GET THE TXL INSTRUCTION BT 


TAKING 


LS080760 


• 16115 


0500 


CO 


4 


00000 




CLA 


C,4 


CWR ICADR LJ1 






LS080770 


16116 


0734 


CO 


4 


00000 




PAX 


0,4 








LS080780 


16117 


5 00 


CO 


4 


COOOO 




CLA 


0,4 








LS080790 


• 16120 


0601 


CO 





16214 




STO 


CWADR 


TXL INSTRUCTION 






LS080800 


16121 


5 GO 


CO 





16220 




CLA 


AL 


GET THE ARGUMENT LIST 






LS080810 


16122 


0074 


00 


4 


10712 




TSX 


SPREAD, 4 


SPREAD IT INTO AC, MQ, 


ARG3 


, ETC. 


LS080820 


• 16123 


0520 


CC 





16213 




ZET 


APTRT 


TEST FOR TRACE MODE 






LS080830 


16124 


OC20 


CC 





16177 




TRA 


APTSB 


TRACE THIS SUBROUTINE 






LS080840 


16125 


74 


GO 


4 


03104 




TSX 


$SAVE,4 








LS080850 


• 1612 6 


-3 040 6 2 


C 


03167 




TXL 


$END2,,$ALIST+2 








LS080860 


16127 


-0534 


CO 


4 


16221 




LXD 


A, 4 








LS080870 


16130 


-0 6 34 


CC 


4 


04060 




SXD 


$ALIST,4 








LS080880 


• 16131 


0074 


CO 


4 


16214 




TSX 


Cl*ADR,4 








LS080890 


16132 


0074 


CO 


4 


03117 




TSX 


UNSAVE,4 








LS080900 


1613 3 


-0534 


CO 


4 


04057 




LXD 


CSV,4 








LS080910 


• 16134 


CC20 


GO 


4 


G0001 


* 


TRA 


1,4 








LS080920 
LS080930 


16135 


500 


CO 





16 216 


APSAL 


CLA 


FAS 


WHERE TO GO IF NOT FOUND ON 


PAIR LIST 


LS080940 


• 16136 


0601 


CO 





04063 




STO 


$ARG3 








LS080950 


16137 


0500 


CO 





16217 




CLA 


F 


ATOMIC FUNCTION 






LS080960 


m 1614C 


0560 


CO 





162 21 




LDQ 


A 








LS080970 


BINARY CARD NO. 


LISP0 324 
















16141 


74 


CO 


4 


10662 




TSX 


SASS0C4 


SEARCH PAIR LIST FOR LABEL 


DEFINITION 


LS080980 


• 16142 


-0734 


GO 


4 


CCOOG 




PDX 


0,4 


POINTER TO ASSOCIATED 


ITEM 




LS080990 


16143 


0500 


CC 


4 


COOOO 




CLA 


0,4 








LS081000 


16144 


-0 7 34 


CC 


4 


00000 




PDX 


0,4 


POINTER TO ITEM 






LS081010 


• 16145 


-07 54 


CO 


4 


GOOOC 




PXD 


0,4 








LS081020 


16146 


5 60 


CO 





16221 




LDQ 


A 


RESTORE PAIR LIST 






LS081030 


16147 


-0 600 


CO 





C4063 




STQ 


$ARG3 








LS081040 


• 16150 


560 


CO 





16220 




LDQ 


AL 


RESTORE ARGUMENT LIST 






LS081050 


16151 


0520 


CO 





16213 




ZET 


APTRT 


TEST FOR TRACE MODE 






LS081060 


m> 16152 


0020 


CO 


G 


16155 




TRA 


APTXP 


TRACE THIS EXPRESSION 






LS081070 


• 1615 3 


-0 534 


CC 


4 


16215 




LXD 


ATS1,4 


RESTORE LINK IR 






LS081080 


16154 


0020 


00 





15 721 




TRA 


$APPLY 


GO TO APPLY WITH ITEM 


ASSOCIATED WITH 


LS081090 












* 






THE ATOMIC FUNCTION 






LS081100 


• 16155 


G074 


CO 


4 


03104 


APTXP 


TSX 


$SAV£,4 


TRACE EXPR 






LS081110 


16156 


-3 04 061 





03171 




TXL 


$ENDl,,CSV+2 


- 






LS081120 


16157 


0074 


CC 


4 


15 721 




TSX 


$APPLY,4 








LS081130 


• 16160 


0020 


CO 





16204 


* 


TKA 


APEXC 


FINISH UP 






LS081140 
LS081150 


16161 


-0 634 


CO 


4 


02313 


R33 


SXD 


$ERR0R,4 








LS081160 


• 16162 


0500 


GO 





16217 




CLA 


F 


PICK UP FUNCTION 






LS08U70 


16163 


0074 


CO 


4 


02314 




TSX 


$ERR0R+l,4 


GO TO ERROR 






LS081180 


16164 


54216C600254 




BCI 


lt»A 2* 


FUNCTION OBJECT HAS NO 


DEFINITION 


LS081190 












* 












LS081200 


16165 


-0520 


CO 





15701 


APTRK 


NZT 


TCNTTR 








LS081210 


^ 16166 


0020 


CC 





16072 




TRA 


APSES 








LS081220 
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1616 7 
16170 
16171 
16172 
16173 
16174 

1617 5 
16176 

16177 
16200 
16201 
16202 
16203 
16204 
16205 
16206 
16 207 
16210 
16211 

16212 
16213 
16214 



-0625 
0601 
0534 

-07 54 
0074 
0560 
0500 
0020 



GO 

CO 

cc 

00 
CO 
CO 

CO 
CO 



0074 CO 
■3 04062 



-0 5 34 

-0 6 34 

0074 

74 

0131 

5 34 

•0 7 54 

-0534 

0020 



CO 
CO 
CO 

CO 
00 
CO 
CO 
CO 
GO 



16213 
16212 
04112 

ooooo 

17124 
16220 
16212 
16072 

03104 
03167 
16221 
04060 
16214 
03117 
GOOOO 
0405 7 

coooo 

04057 
17162 



APTSB 



APEXC 



STL 
STO 
LXA 
PXD 
TSX 
LDQ 
CLA 
TRA 

TSX 
TXL 
LXU 

SXD 
TSX 

rsx 

XCA 
LXA 
PXD 
LXD 
TRA 



APTRT 

APA 



A S S 1 , 4 
0,4 

ARG0F,4 
AL 

APA 
APSES 

$SAVE,4 

$END2,,$ALIST+2 

A, 4 

$ALIST,4 

CWADR.4 

UNSAVE,4 

CSV, 4 
0,4 
CSV, 4 

VALGF 



OOOOO OOOOO 
000 CO OGOQO 
OOOCO OOOOO 



BINARY CARD NO. LISP0326 



16215 C 

16216 -3 

16217 
16220 
1622 1 G 



GOOOO 
GOOGC 
OOOCO 
GOOCO 
GOO CO 



GOOOO 

16161 

OOOOO 

OGOQO 

OOOOO 



APA 

APTRT 
CWADR 



ATS1 
FAS 
F 
AL 

A 



TXL 



R33,,0 













A HED 




16222 


0100 


CC 





16253 


EVCON TZE 


£3 


16223 


-0634 


CO 


4 


04124 


SXD 


EC SI, 4 


16 224 


0074 


CO 


4 


03104 


TSX 


$SAVE,4 


16225 


-3 04131 





03163 


TXL 


*END4,,ECS4+2 


16226 


-0600 


CO 





04125 


STQ 


ECS2 


16227 


-0734 


CO 


4 


OOOOO 


POX 


0,4 


16230 


0500 


CC 


4 


GOOOO 


El CLA 


0,4 


16231 


0601 


CO 





04126 


STO 


EC S3 


16232 


7 34 


CO 


4 


OOOOO 


PAX 


0,4 


16233 


C500 


00 


4 


OOOOO 


CLA 


0,4 


162 34 


0601 


CO 





04127 


STO 


ECS4 


16235 


C734 


GO 


4 


COOOO 


PAX 


0,4 


162 36 


-0 754 


00 


4 


OOOOO 


PXD 


0,4 


16237 


0074 


CO 


4 


16521 


TSX 


$EVAL,4 


1624C 


560 


CO 





04125 


LDQ 


ECS2 


16241 


■01 CO 


CO 





16251 


TZE 


E2 


16242 


-0 534 


00 


4 


04127 


LXD 


ECS4,4 
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SAVE THE AC 
ATOM NAME 

PRINT ARGUMENTS OF 

RESTORE m AFTER PRINTING 

RESTORE AC 

CONTINUE PROPERTY LIST SEARCH 

TRACE SUBR 



PAGE 174 



VALUE TO MQ 

TO AC 

PRINT VALUE OF 

AC STORAGE 

TRACE MODE TEST SWITCH 

TXL INSTRUCTION FOR SUBR 



LINK INDEX REGISTER 

NOT FOUND ON PAIR LIST SO CALL ERROR 

ATOMIC FUNCTION GOES HERE 

ARGUMENT LIST 

A OR PAIR LIST 



SAVE 4 ITEMS 



LS081230 
LS081240 
LS081250 
LS081260 
LS081270 
LS081280 
LS081290 
LS081300 
LS081310 
LS081320 
LS081330 
LS081340 
LS081350 
LS081360 
LS081370 
LS081380 
LS081390 
LS081400 
LS081410 
LS081420 
LS081430 
LS081440 
LS081450 
LS081460 



LS081470 
LS081480 
LS081490 
LS081500 
LS081510 
LS081520 
LS081530 
LS081540 
LS081550 
LS081560 
LS081570 
LS081580 
LS081590 
LS081600 
LS081610 
LS081620 
LS081630 
LS08I640 
LS081650 
LS081660 
LS081670 
LS081680 
LS081690 
LS081700 
LS081710 
LS081720 
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BINARY CARD NO. LISP0327 



16 24 3 


500 CO 


4 


OOOQO 




CLA 


0,4 




16244 


0734 CO 


4 


00000 




PAX 


0,4 




16245 


-0754 00 


4 


00000 




PXD 


0,4 




16246 


0074 CO 


4 


03117 




TSX 


UNSAVE,4 




16247 


-0 5 34 CO 


4 


04124 




LXD 


ECS1,4 




16250 


0020 CO 





16521 




TRA 


$EVAL 




16251 


-0534 CO 


4 


04126 


E2 


LXD 


ECS3,4 




16252 


3 000 CO 


4 


16230 




TXH 


El, 4,0 




1625 3 


-0634 GO 


4 


02313 


E3 


SXD 


$ERR0R,4 




16254 


G534 CO 


4 


04126 




LXA 


ECS3,4 




16255 


-0 7 54 CO 


4 


00000 




PXD 


0,4 


PRINT LAST CONDITION 


16256 


0074 CO 


4 


02314 




TSX 


$ERR0R+1,4 




16257 


542160600354 




BCI 


l,*A 3* 


CONDITIONAL UNSATISF 














BASIC LISP FUNCTIONS 


FOR APPLY 



HED 



CAR 



16260 


0634 


CO 


4 


16265 


CARP 


SXA 




CARX,4 


16261 


-0 7 34 


00 


4 


00000 




PDX 


,4 




16262 


500 


CO 


4 


OOOQO 




CLA 


,4 




16261 


7 34 


00 


4 


COOOO 




PAX 


,4 




16264 


-0 754 


GO 


4 


00000 




PXD 


,4 




16265 


7 74 


CO 


4 


00000 


CARX 


AXT 




**,4 


16266 


020 


CO 


4 


000Q1 




TRA 


1,4 




16267 


00000 





COOOO 


BFS1 








16270 


0634 


CO 


4 


16274 


CDRP 


SXA 




CDRX, 4 


BINARY CARD NO. 


LISP0328 










162 71 


-0 734 


00 


4 


COOOO 




PDX 


,4 




16272 


500 


CO 


4 


00000 




CLA 


,4 




1627 3 


-0 320 


CO 





00514 




ANA 


BFUf 




16274 


7 74 


CO 


4 


COOOO 


CDRX 


AXT 




#* , 4 


16275 


0020 


CO 


4 


00001 
00514 


BFDM 


TRA 

SYN 


1,4 


$DMASK 


16276 


0634 


CO 


4 


16307 


ATOMP 


SXA 




ATMX,4 


16277 


0100 


CO 





16304 




TZE 


ATP1 




1630C 


-0734 


00 


4 


00000 




PDX 


,4 




16301 


0500 


CO 


4 


00000 




CLA 


t4 




16 30 2 


0734 


CO 


4 


00000 




PAX 


t4 




16303 


-3 777 76 


4 


16306 




TXL 


* + 3, 


4,-2 


16304 


0500 


CO 





00476 


ATP1 


CLA 


BFQ1 




16 305 


CC20 


CO 





16307 




TRA 


* + 2 




16306 


-C 7 54 


CO 





00000 




PXD 


.0 




16307 


7 74 


CO 


4 


00000 


ATMX 


AXT 




** ,4 


1631C 


G020 


CO 


4 


00001 
00476 


BFQ1 


TRA 
SYN 


.It 4 


$QD1 


16311 


OIGO 


CO. 





16314 


NULLP 


TZE 


# + 3 




16312 


-0754 


00 





OOOQO 




PXD 


,C 





LS081730 
LS081740 
LS081750 
LS081760 
LS081770 
LS081780 
LS081790 
LS081800 
LS081810 
LS081820 
LS081830 
LS081840 
LS081850 
LS081860 
LS081870 
LS081880 
LS081890 
LS081900 
LS081910 
LS081920 
LS081930 
LS081940 
LS081950 
LS081960 
LS081970 
LS081980 
LS081990 
LS082000 
LS082010 



LS082020 
LS082030 
LS082040 
LS082050 
LS082060 
LS082070 
LS082080 
LS082090 
LS082100 
LS082110 
LS082120 
LS08213P 
LS082140 
LS082150 
LS082160 
LS082170 
LS082180 
LS082190 
LS082200 
L SO 822 10 
LS082220 
LS082230 
LS082240 



/ 



s 
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16313 


0020 


CO 


4 


00001 


16314 


5 00 


GO 





00476 


16315 


0020 


CO 


4 


000Q1 



16316 -C634 CO 4 16267 



LAMBDA FOR FUNCTIONAL ARGUMENTS 
LAMP SXD BFS1.4 



BINARY CARD NO. 


LISP0329 








16317 


0601 


CO 





04155 




STO 


BFS2 


16320 


0131 


GO 





GOO 00 




XCA 




16321 


0560 


CO 





00424 




LDO 


BFZRO 


16322 


00 74 


CO 


4 


04471 




TSX 


$C0NS,4 


16323 


€131 


CO 





COOOO 




XCA 




16324 


C500 


CO 


c 


04155 




CLA 


BFS2 


16325 


CC74 


CO 


4 


10361 




TSX 


APPEND, 4 


16326 


0131 


CO 





00000 




XCA 




16327 


0500 


CC 





00535 




CLA 


BFFAG 


16330 


-0534 


CO 


4 


16267 




LXD 


BFS1,4 


16331 


0020 


CO 





04471 




TRA 


$CONS 










00535 


BFFAG 


SYN 


FNARGD 










00424 


8FZR0 


SYN 


$ZERO 



CONS<A,0) 



LISTlFUNARGrL, A) 



LABEL FSUBR 



16 33 2 


-0634 


CO 


4 


16267 LABP SXD 


BFSW4 


16333 


-0600 


00 





04156 


STQ 


BFS3 


16334 


-C734 


CC 


4 


OCOOO 


PUX 


,4 


16335 


500 


CO 


4 


00000 


CLA 


,4 


1633 6 


0601 


CO 





04155 


STO 


BFS2 


16337 


-0734 


00 


4 


COOOO 


PDX 


,4 


1634C 


0500 


CC 


4 


00000 


CLA 


,4 


16 341 


07 34 


CO 


4 


00O00 


PAX 


,4 


16342 


-0754 


CO 


4 


COOOO 


PXD 


,4 


16 34 3 


C601 


CC 





04154 


STO 


BFS4 


16 344 


0131 


CO 


C 


00000 


XCA 




RY CARD NO. 


LISP 0330 






16345 


534 


CO 


4 


04155 


LXA 


BFS2,4 


16 346 


-0754 


CO 


4 


COOOO 


PXD 


,4 


16347 


0074 


CO 


4 


04471 


TSX 


$C0NS,4 


16350 


0560 


CO 





04156 


LDQ 


BFS3 


16351 


074 


CO 


4 


04471 


TSX 


$C0NS,4 


16352 


0131 


CO 





00000 


XCA 




16353 


0500 


CO 





04154 


CLA 


BFS4 


16354 


-C534 


CO 


4 


16267 


LXD 


BFS1,4 


16355 


0020 


CO 





16521 


TRA 


$EVAL 



A 
L 

CWR{Li 
CDR(L) 

CADR(L) 



CAR(t) 

LIST(CAR(0»CADKIL) ) 
CONS (LIST, A J 
CADR(L) 



SETQ 
16356 -C634 CO 4 04221 SETGP SXD REPS1,4 



LS082250 
LS082260 
LS082270 
LS082280 
LS082290 
LS0823O0 
LS082310 
LS082320 
LS082330 



LS082340 
LS082350 
LS082360 
LS082370 
LS082380 
LS082390 
LS082400 
LS082410 
LS082420 
LS082430 
LS082440 
LS082450 
LS082460 
LS082470 
LS082480 
LS082490 
LS082500 
LS082510 
LS082520 
LS082530 
LS082540 
LS082550 
LS082560 
LS082570 
LS082580 
LS082590 
LS082600 



LS082610 
LS082620 
LS082630 
LS082640 
LS082650 
LS082660 
LS082670 
LS082680 
LS082690 
LS082700 
LS082710 
LS082720 
LS082730 
LS082740 
LS082750 



TW» 
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16357 
16360 
16 361 
16362 
16363 
16364 
16365 
16366 
16367 
16370 
16371 
16372 



C074 CO 
■3 04224 
■0734 CO 

0500 

0734 
•0634 
•0734 

0500 

734 
•0754 

0074 

0601 



CO 
CO 
CO 
CO 
CO 
GO 
00 
CO 
CO 



BINARY CARD NO, 



16373 
16 374 
16375 
16376 
16377 
16400 
16401 
16402 
16403 
16404 
16405 



0500 
6 01 
C560 
0500 
0074 

-0 7 34 
C500 
0622 
074 

-0534 
GC20 



LISPO 
CO 
CO 
CO 
CO 
CO 4 
CO 4 
CO 
00 4 
CO 4 
CG 4 
GO 4 



03104 
03167 
00000 
00000 
00000 
04222 
00000 
00000 
COO 00 

coooo 

16521 
04223 

331 

16406 

04063 

04207 

04222 

10662 

COOOO 

04223 

00000 

03117 

04221 

00001 



16406 -3 00000 16407 

16407 -0634 CO 4 02313 

16410 0500 GO 04222 

16411 0074 CO 4 02314 

16412 54216C60C454 



REPP1 



TSX 
TXL 
PDX 
CLA 
PAX 
SXD 
PDX 
CLA 
PAX 
PXD 
TSX 
STO 



CLA 
STO 
LCQ 
CLA 
TSX 
PDX 
CLA 
STD 
TSX 
LXD 
TRA 

TXL 
SXD 
CLA 
TSX 
BCI 



$SAVE,4 

$END2,,REPV+2 



,4 

,4 

,4 

REPV, 4 

,4 

,4 

,4 

,4 

$EVAL,4 

RfcPTl 



REPP1 

$ARG3 

PRGVAR 

REPV 

SASSCC.4 

,4 

REPT1 

0,4 
UNSAVE,4 
REPS1.4 
1*4 

*+l**0 

$ERRCR,4 

REPV 

$ERRCR+1,4 

1,#A 4* 



L 

CAR(L) 

CDR(L) 

CADRTL) 

EVALtCADR(LUA) 



S ASSOC (CAR {L),PV, ERROR) 



REPLACE DECREMENT 



SETQ GIVEN ON NON-EXISTENT VARIBLE 



SET 



16413 


-0 6 34 


GO 


4 


16267 


SETP SXD 


BFSU4 




16414 


0601 


CO 





16434 


STO 


BFS5 




16415 


-0600 


CO 





04155 


STQ 


BFS2 




16416 


0560 


CO 





16427 


LDQ 


SETP1 




16417 


-0600 


CO 





04063 


STQ 


$ARG3 




16420 


560 


CO 





04207 


LDQ 


PRGVAR 




RY CARD NO. 


LIS.P0332 








16421 


0074 


00 


4 


10662 


TSX 


SASS0C4 




16422 


-0 7 34 


CO 


4 


COOOO 


PDX 


,4 




16423 


0500 


CO 





04155 


CLA 


BFS2 




16424 


622 


CO 


4 


COOOO 


STD 


0,4 




16425 


-0 534 


00 


4 


16267 


LXD 


BFS1.4 




16426 


0C2O 


CO 


4 


C0001 


IRA 


1.4 




1642 7 


-3 000 CO 





16430 


SETP1 TXL 


*+ I , ,0 




16430 


-0634 


CO 


4 


02 313 


SXD 


$ERRCR,4 




16431 


05 00 


GO 


C 


164 34 


CLA 


BFS5 




16432 


00 74 


CO 


4 


02314 


TSX 


$ERR0R+1, 


4 


1643 3 


542160600554 


BCI 


1,*A 


5* 



SET GIVEN ON NON-EXISTENT VARIBLE 



LS082760 
LS082770 
LS082780 
LS082790 
LS082800 
LS082810 
LS082820 
LS082830 
LS082840 
LS082850 
LS082860 
LS082870 



LS082880 
LS082890 
LS082900 
LS082910 
LS082920 
LS082930 
LS082940 
LS082950 
LS082960 
LS082970 
LS082980 
LS082990 
LSO 83000 
LS083010 
LS083020 
LS083030 
LS083040 
LS083050 
LS083060 
LS083070 
LS083080 
LS083090 
LS083100 
LS083110 
LS083120 
LS083130 
LS083140 



LS083150 
LS083160 
LS083170 
LS083180 
LS083190 
LS083200 
LS083210 
LS083220 
LS083230 
LS083240 
LS083250 
LS083260 
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16434 GOOCO C 00000 BFS5 



16435 
16436 

1643 7 
1644C 
16441 
16442 
16443 
16444 

1644 5 
16446 



GO 
CO 
00 
00 
00 



■0100 
0500 
G020 

•0634 
0074 

-3 04111 

•0734 GO 
050O GO 
601 CO 
0714 CO 



16440 
00476 
00001 
04105 
03104 
03165 
00000 
00000 
04106 
00000 



BINARY CARD NO. LISP0333 



16447 
16450 
16451 
16452 
16453 
16454 
16455 
16456 
16457 
16460 
16461 
1646 2 

16463 
16464 
16:4-65 
16466 
16467 
16470 
16471 
16472 
16473 
16474 



-0 7 54 
-06 GO 

074 

056O 
-01GG 

74 
-0 5 34 

0020 
-0 5 34 

3 COO CO 

0500 CO 

0020 CO 



CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 



00000 
04107 
16521 
04107 
16457 
03117 
04105 
C0O01 
04106 
16444 
00476 
16454 



-0 100 CC 16466 
0500 00 C0424 
OC20 CO 4 00001 

-0634 GO 4 04175 
0074 CO 4 03104 

-3 042C1 03165 

-0734 00 4 00000 
G500 CO 4 00000 
0601 CO 04176 
0734 CO 4 00000 



EVA8 



EVA6 



EVA4 



EVA5 



EVA3 



EVR8 



EVR6 



EVR4 



AND SPECIAL FORM 
TNZ EVA6 
CLA EVCT 
TRA 1,4 
SXD EVA1,4 
TSX $SAVE,4 
TXL $END3,,EVA9+2 
PDX ,4 
CLA ,4 
STO EVA2 
PAX ,4 



PXD ,4 
STQ EVA9 
TSX $EVAL,4 
LDQ EVA9 
TNZ EVA3 
TSX UNSAVE,4 
LXD EVA1,4 
TRA 1,4 
LXD EVA2,4 
TXH £VA4,4,0 
CLA EVCT 
TRA EVAS 

OR SPECIAL FORM 
TNZ EVR6 
CLA EVCF 
TRA 1,4 
SXD EVR1,4 
TSX $SAVE,4 
TXL $END3,,EVR9+2 
PDX ,4 
CLA ,4 
SFO EVR2 
PAX ,4 



SAVE 3 ITEMS 



SAVE 3 ITEMS 



LS083270 
LS083280 
LS083290 
LS083300 
LS083310 
LS083320 
LS083330 
LS083340 
LS083350 
LS083360 
LS083370 
LS083380 
LS083390 



LS083400 
LS083410 
LS083420 
LS08343O 
LS083440 
LS083450 
LS083460 
LS083470 
LS083480 
LS083490 
LS083500 
LS083510 
LS083520 
LS083530 
LS083540 
LS083550 
LS083560 
LS083570 
LS083580 
LS083590 
L $083600 
LS083610 
LS083620 



BINARY CARD NO. LISP0334 



16475 
16476 
16477 
16500 
16501 
16502 
16503 
16 504 
16505 
16506 
16507 
1651C 
16511 



-07 54 

-0600 

74 

0560 

C100 

C500 

0074 
-0 534 

OG20 
-C534 

3 00000 

G500 GO 

GC20 CO 



CO 
CO 
CO 
CC 
00 
CO 
GO 
GC 
GO 
CO 



00000 
04177 
16521 
04177 
16506 
00476 
03117 
04175 
GG001 
04176 
16472 
G0424 
16503 
00476 
00424 



EVR5 



EVR3 



EVCT 
EVCF 



PXD 

sro 

TSX 
LDQ 
TZE 
CLA 
TSX 
LXD 
TRA 
LXD 

txh 

CLA 

TRA 
SYN 
SYN 



,4 

EVR9 

$EVAL,4 

EVR9 

EVR3 

EVCT 

UNSAVE.4 

EVR1,4 

1,4 

EVR2,4 

EVR4 r 4,0 

EVCF 

EVR5 

$GD1 
$ZERO 



LS083630 
LS083640 
LS083650 
LS083660 
LS083670 
LS083680 
LS083690 
LS083700 
LS083710 
LS083720 
LS083730 
LS083740 
LS083750 
LS083760 
LS083770 
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^^ 
















LS083780 


W 16512 


-0600 


CO 





16267 EQP STQ 


BFS1 




LS083790 


16513 


0402 


CO 





16267 


SUB 


BFS1 




LS083800 


^ 16514 


-0100 


CO 





16517 


TNZ 


* + 3 




LS083810 


• 16515 


0500 


CO 





00476 


CLA 


BFQ1 




LS083820 


16516 


0020 


CO 


4 


00001 


TRA 


1,4 




LS083830 


16517 


-0754 


00 





OOOQO 


PXD 


.0 




LS083840 


• 16520 


0020 


CO 


4 


00001 

A 


TRA 

HED 


1*4 

EVAL(E,AJ 5/6/59 




LS083850 
LS083860 
LS083870 
LS083880 
LS083890 


16521 


-0634 


CO 


4 


04132 EVAL SXD 


EVS1,4 




LS083900 


1 • 16522 


C1C0 


CO 


4 


00001 


TZE 


1,4 




LS083910 


1 BINARY CARD NO. 


LISP0335 










• 16523 


0601 


CO 





17233 


STO 


EVTE 


E 


LS083920 


! 16524 


-0734 


CO 


4 


OOOQO 


PDX 


,4 




LS083930 


^ 16525 


05 00 


CO 


4 


CO 000 


CLA 


• 4 




LS083940 


• 16526 


0625 


CO 





17240 


STT 


EVLNS 


SEE IF A NUMBER 


LS083950 


16527 


052G 


CO 





17240 


ZET 


EVLNS 


SKIP IF NOT A NUMBER 


LS083960 


1653C 


CO 20 


CO 





16614 


TRA 


EV1N 


IS A NUMBER1CCNSTANT) 


LS083970 


• 16531 


0734 


00 


4 


00000 


PAX 


,4 


CAR1E) 


L SO 8 3980 


16532 


3 77776 


4 


16617 


TXH 


EVPl,.4,-2 


= - .1 


LS083990 


16533 


-0634 


CO 


4 


17234 


SXO 


EVTAE,4 


CAR(E) 


LS084000 


• 16534 


0634 


CO 


4 


04132 


SXA 


EVSU4 


SAVE FUNCTION WITH INDEX REGISTER 


LS084010 


16 535 


0622 


CO 





04151 


STD 


EVTDE 


CDR<E) 


LS084020 


_ 16536 


0500 


CO 


4 


OGOOO 


CLA 


,4 




LS084030 


• 16537 


0625 


CO 


C 


17240 


STT 


EVLNS 


SEE IF A NUMBER 


LS084040 


1654C 


0520 


CO 





17240 


ZET 


EVLNS 


TEST FOR A NUNBER 


LS084050 


16541 


20 


CO 





17063 


TRA 


EVP26 


UNDEFINED FUNCTION IF A NUMBER 


LS084060 


• 16 542 


0634 


GO 





04135 


SXA 


EVTRK,0 




LS084070 


16543 


-0634 


CO 





04135 


SXD 


EVTRK,0 


ZERO EVTRK {LEAVE MINUS SIGN) 


LS084080 


16544 


07 34 


CO 


4 


COOOO 


PAX 


0,4 




LS084090 


• 16545 


-i 77776 


4 


1673 5 


TXL 


EV27,4 f -2 




LS084100 










* 








LS084110 










* 




CAAR(E) = -1 




LS084120 










* 








LS084130 


16 546 


0520 


CO 


c 


15702 


ZET 


TCNTMA 




LS084140 


16547 


00 74 


GO 


4 


15664 


TSX 


TCNTEM,4 




LS084150 


• 16550 


-0 734 


GO 


4 


00000 EVP2 PDX 


,4 


CDAR(E) 


LS084160 


BINARY CARD NO. 


LISP 336 










• 16551 


-3 GOGCQ 


4 


16714 


TXL 


EVP25,4,0 


NULL(J) 


LS084170 


16552 


0500 


CO 


4 


00000 


CLA 


,4 




LS084180 


16 553 


734 


CO 


4 


OCOOO 


PAX 


,4 


CARIJ) 


LS084190 


• 16554 


3 102 


26 


4 


16556 


TXH 


*+2,4,$TRACE 




LS084200 


1655 5 


3 103 


25 


4 


16611 


TXH 


EVTRT,4,$TRAC£-1 


* TRACE 


LS084210 


16556 


3 10440 


4 


16560 


TXH 


*+2,4,$SUBR 




LS084220 


• 16557 


3 104 


37 


4 


17032 


TXH 


£VP27,4,$SUBR~1 


OF IF A SUBR 


LS084230 


16560 


3 116 


30 


4 


16562 


TXH 


*+2,4,$FSU8R 




LS084240 


16 561 


3 11627 


4 


16665 


TXH 


EVP22»4,$FSUBR-1 


=FSUBR 


LS084250 


W 16562 


3 1L7C4 


4 


16564 


TXH 


*+2,4,$EXPR 




LS084260 


16 56 3 


3 117C3 


4 


16706 


TXH 


EVP23,4,$EXPR-i 


= EXPR 


LS084270 


^ 16564 


3 11667 


4 


16550 


TXH 


EVP2,4,$FEXPR 




LS084280 



'mmmmmmmmmmmmmmmmm 
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16565 


-3 11666 


4 


16550 




TXL 


EVP2,4,$FfcXPR-l 


/= FEXPR 


• 16566 


6 22 


CO 





04152 




STD 


EVD2 


CDRt J) 


16567 


-06 CO 


GO 





04063 




STQ 


$ARG3 


A 


1657C 


C500 


CO 





04063 




CLA 


SARG3 




• 16571 


G560 


CO 





00424 




LDQ 


EVZRO 


C 


165 72 


74 


GO 


4 


04471 




TSX 


$C0NS,4 


CONS (A, J 


16573 


C131 


GO 





CCOOO 




XCA 






• 16574 


0500 


GO 


■c 


04151 




CLA 


EVTDE 




16575 


C074 


GO 


4 


04471 




TSX 


$C0NS,4 


LISTtCDR(E) ,A) 


16576 


131 


GO 





COOOO 




XCA 






BINARY CARD NO. 


LISP0337 










16577 


-C534 


CO 


4 


04152 




LXD 


EVD2.4 


CDRt J) 


• 16600 


0500 


CO 


4 


00000 




CLA 


t4 




1660 1 


€7 34 


CO 


4 


CCOOO 




PAX 


»4 


CADRI J) 


16602 
i • 1660 3 


-0754 


CO 


4 


00000 




PXD 


,4 




0520 


CO 





04 135 




ZET 


EVTRK 


TEST FOR TRACE MOO 


16604 


0020 


GO 





16607 




TRA 


» + 3 




^ 16605 


-0 5 34 


CO 


4 


04132 




LXD 


EVS1,4 




' • 16606 


GO 20 


CO 





15721 




TRA 


$APPLY 


APPLYiCADRt J)t,LIST 


1 16607 


-0600 


CO 





17236 


' 


STQ 


EVT1 




_ 16610 

• 

16611 


0020 


CG 





17105 


JS. 


TRA 


EVTXP 




C520 


GO 


c 


15701 


EVTRT 


ZET 


TCNTTR 




16612 


-0 625 


CO 


c 


04135 




STL 


EVTRK 




• 16613 


CC20 


cc 


c 


1655C 


« 


TRA 


EVP2 


GO SEARCH MORE 


„ 










* 




CAR(E) = -1 




16614 


■0 5 CO 


CO 





17233 


EVIN 


CLA 


EVTE 


GET THE NUMBER 


• 16615 


-0 5 34 


00 


4 


04132 




LXD 


EVS1.4 


RESTORE UINK INDEX 


16616 


C020 


CO 


4 


00001 




TRA 


1,4 




• 16617 


-0734 


CO 


4 


COOOO 


■It 

EVP1 


PDX 


,4 


J 


16620 


-3 OOOGO 


4 


16635 




TXL 


EVP11,4,0 


= 


! 16621 


050O 


CO 


4 


00000 




CLA 


,4 




1 • 16622 


0734 


GO 


4 


00000 




PAX 


t4 


CAR(J) 


| 16623 


3 12521 


4 


16617 




TXH 


EVP1,4,$APVAL 


= APVAL 


1 m 16624 


-3 12520 


4 


16617 




TXL 


EVP1,4, $APVAL-1 




BINARY CARD NO. 


LISP0338 










1662 5 


-0 7 34 


CO 


4 


00000 


EVP13 


PDX 


,4 


CDRt J) 


• 16626 


0500 


CO 


4 


COOOO 




CLA 


,4 




1662 7 


0734 


GO 


4 


COOOO 




PAX 


,4 


CADRI J) 


1663C 


0500 


CO 


4 


00000 




CLA 


,4 




• 16631 


0734 


00 


4 


00000 




PAX 


t4 


CAAORt J) 


16632 


-0754 


CO 


4 


ooooc 




PXD 


,4 




166 3 3 


-0534 


cc 


4 


04132 




LXD 


EVS1,4 




• 16634 


020 


cc 


4 


00001 




TRA 


1,4 




16635 


-0600 


CO 





17235 


it 

EVP11 


STQ 


EVTA 


A 


w 16636 


0500 


cc 





17233 




CLA 


EVTE 


E 


16637 


0622 


CO 





16652 




STD 


EVI1 




_ 1664C 


0402 


GO 





00476 




SUB 


EVQD1 





# 



LS084290 
LS084300 
LS084310 
LS084320 
LS084330 
LS084340 
LS084350 
LS084360 
LS084370 
LS084380 



LS084390 
LS084400 
LS084410 
LS084420 
LS084430 
LS084440 
LS084450 
LS084460 
LS084470 
LS084480 
LS084490 
LS084500 
LS084510 
LS084520 
LS084530 
LS084540 
LS084550 
LS084560 
LS084570 
LS084580 
LS084590 
LS084600 
LS084610 
LS084620 
LS084630 
LS084640 
LS084650 
LS084660 



LS084670 
LS084680 
LS084690 
LS084700 
LS084710 
LS084720 
LS084730 
LS084740 
LS084750 
LS084760 
LS084770 
LS084780 
LS084790 
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16641 


0622 


GO 


G 


16653 


16642 


-0634 


CO 


2 


17237 


16643 


-0 5 34 


CO 


4 


17235 


16644 


-3 COCCC 


4 


16661 


16645 


0500 


CO 


4 


00000 


16646 


0734 


00 


2 


00000 


16647 


-0734 


GO 


4 


COOOO 


16650 


G500 


CO 


2 


COOOO 


16651 


0734 


00 


2 


COOOO 


16652 


3 COOCO 


2 


16644 



EVL1 



BINARY CARD NC. LISP0339 

16653 -3 OOOCO 2 16644 



16654 -0734 CO 

16655 -0754 00 

16656 -0534 CO 

16657 -0534 CO 
16660 020 CO 



4 00000 
4 COOOO 
2 17237 
4 04132 
4 00001 



16 661 
16662 
16663 
16664 

16665 
16666 
1666 7 
1667C 
16671 
16672 
16673 
166 74 
16675 
16676 
16677 
16700 



•0 634 CO 4 02313 
0500 CO 17233 
0074 CO 4 02314 
542160601054 



•0734 

0500 

0734 

0500 

0601 

G500 

601 

074 
■3 040 6 2 
-06 00 CO 

0520 00 

0020 CO 



GO 
GO 
CC 
CO 
GO 
CO 
CO 
00 



00000 
00000 
00000 
00000 
17236 
04132 
04057 
03104 
0316 7 
04060 
04135 
17070 



evn 



EVI2 



EVP12 



EVP22 



* 



BINARY CARD NO* LISP0340 

16701 500 CQ 04151 

16702 0074 CO 4 17236 

16703 0074 GO 4 03117 

16704 -0 534 CO 4 04057 

16705 0020 00 4 00001 



16706 -0734 00 4 00000 

16707 0500 GO 4 00000 

16710 0734 CO 4 00000 

16711 -0634 CO 4 17234 

16712 -0534 CO 4 03110 

16713 1 77773 4 16737 



16714 0500 GO 17234 EVP25 

16715 0622 00 16731 



EVP23 



STD 
SXD 
LXD 
TXL 
CLA 
PAX 
PDX 
CLA 
PAX 
TXH 



TXL 
PDX 
PXO 
LXD 
LXD 
TRA 

SXD 
CLA 
TSX 

BCI 

PDX 
CLA 
PAX 
CLA 
STO 
CLA 
STO 
TSX 
TXL 
STQ 
ZET 
TRA 



CLA 
TSX 
TSX 

LXD 
TRA 



PDX 
CLA 
PAX 
SXD 
LXD 
TXI 

CLA 
STD 



EVI2 

EVD1..2 

EVTA.4 

EVP12,4,0 

,4 

,2 

,4 

,2 

,2 

EVL1,2,»* 



EVL1,2,** 

,4 

,4 

EVD1,2 

£VS1,4 

1.4 

$ERR0R,4 

EVTE 

$ERR0R+1,4 

1,*A 8* 

,4 
,4 
,4 
,4 
EVT1 

EVS1 

CSV 

$SAVE,4 

$END2,,$ALIST+2 

SALIST 

EVTRK 

EVTFS 



EVTDF 
EVT1,4 
UNSAVE,4 
CSV, 4 
1,4 

EVP23 THE EXPR 

0,4 

0,4 

0,4 

EVTAE,4 

$CPPI ,4 

EVP28,4,-5 



NULL(J) 

CAR(J) 
CDRUJ 

CAARIJ} 
CAARIJ) 



CDAR1J) 



UNBOUND VARIBLE MENTIONED -EVAL- 

CDR1J) FSUBR 

CADR(J) 
CWADRCJ) 

ATOM AND IR4 FOR SAVING $ALIST 



TEST WHETERT TO TRACT 
YES, TRACE FSUBR 



GET BACK ARGUMENTS 



EVTAE 
EVI3 



BRA 


NCH FOR EVAL 




REST OF PROPERTY LIST 




GET THE EXPR 




SAVE IN TEMRORARY STORAGE 




PUSH DOWN COUNTER 




SAVE 5 ITEMS 




CAR(E) 




TXH 



LS084800 
LS084810 
LS084820 
LS084830 
LS084840 
LS084850 
LS084860 
LS084870 
LS084880 
LS084890 



L SO 84900 
LS084910 
LS084920 
LS084930 
L SO 84940 
LS084950 
LS084960 
LS084970 
LS084980 
LS084990 
LS085000 
LS085010 
LS085020 
LS085030 
LS085040 
LS085050 
LS085060 
LS085070 
LS085080 
LS085090 
LS085100 
LS085110 
LS085120 
LS085130 



LS085140 
LS085150 
LS085160 
LS085170 
LS085180 
LS085190 
LS085200 
LS085210 
LS085220 
LS085230 
LS085240 
LS085250 
LS085260 
LS085270 
LS085280 
LS085290 
LS085300 
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_ , 16716 


0402 


CO 





00476 


SUB 


tVQDi 


• 16717 


0622 


CO 


C 


16732 


STD 


EVI4 


1672C 


-0634 


GO 


2 


17236 


SXD 


EVTl,2 


16721 


-0600 


GO 





17237 


STQ 


EVD1 


• 16722 


-0 5 34 


CO 


4 


17237 


LXD 


EVD1,4 


16723 


-3 OOOCO 


4 


17063 


EVL2 TXL 


EVP26,4,0 


16724 


500 


GO 


4 


00000 


CLA 


.4 




• 16725 


-0 7 34 


CG 


4 


OOOOO 


PDX 


,4 




16726 


734 


CO 


2 


OOOQO 


PAX 


»2 




• BINARY CARD NO. 


LISP0341 








16727 


0500 


CO 


2 


OOOOO 


CLA 


.2 




16730 


C734 


GO 


2 


GGOQO 


PAX 


,2 




1 • 16731 


3 OOOGO 


2 


16723 


EVI3 TXH 


EVL2,2,»* 


16732 


-3 000 CO 


2 


16723 


EVI4 TXL 


EVL2>2,*» 


16733 


-05 34 


CO 


2 


17236 


LXD 




EVT1,2 


• 16734 


0622 


CO 





17234 


STD 




tvTAE 


16735 


-0 534 


CO 


4 


03110 


EV27 LXD 




$CPPI ,4 


16736 


1 77773 


4 


16737 


TXI 




*+l,4,-5 


• 16737 


0522 


CO 





03204 


EVP28 XEC 




ENDPDL 


16 74C 


-0634 


CO 


4 


03110 


SXD 




$CPPI,4 


16741 


-0 5 34 


00 


1 


03110 


LXD 




$CCPIt 1 


• 16742 


500 


CO 





04132 


CLA 




EVS1 


16743 


0601 


CO 


4 


77 773 


STO 




-5,4 


16744 


500 


CO 





04133 


CLA 




EVSE 


• 16745 


060 1 


CO 


4 


77774 


STO 




-4,4 


16746 


0500 


CO 





04L34 


CLA 




evsa 


16747 


06 01 


GO 


4 


77775 


STO 




-3,4 


• 16750 


0500 


00 


C 


04135 


CLA 




EVTRK 


16751 


0601 


CO 


4 


77776 


STO 




-2,4 


16 752 


5 00 


CO 





17241 


CLA 




EVCM 


• 16753 


0601 


CO 


4 


77777 


STO 




-1,4 


16754 


5 00 


CO 





17234 


CLA 




EVTAE 


• BINARY CARD NO. 


LISP0342 








16755 


6 22 


CO 





04133 


STD 




EVSE 


16756 


-06 00 


CO 





04134 


STQ 


EVSA 


• 16757 


0500 


CO 





04151 


CLA 


EVTDE 


16 760 


5 60 


CG 





1703 7 


LDQ 




ELP1 


_ 16761 


0074 


CO 


4 


04756 


TSX 




MA PL IS, 4 


• 16 762 


0601 


CO 





17236 


STO 


EVT1 


16763 


0500 


00 





04134 


CLA 




EVSA 


- 16764 


0601 


GO 





04063 


STO 




$ARG3 


• 16765 


0500 


00 





04133 


CLA 




EVSE 


16766 


-0 5 34 


CC 


4 


03110 


LXD 




$CPPI,4 


16767 


560 


CO 


4 


77773 


LDQ 




-5,4 


• 16770 


-0600 


CO 





04132 


STQ 




EVS1 


16771 


560 


CO 


4 


77774 


LDQ 




-4,4 


16772 


-0 600 


CO 





04133 


STQ 




EVSE 


• 16773 


0560 


CO 


4 


77775 


LDQ 




-3,4 


16 774 


-0 600 


CO 





04134 


STQ 




EVSA 


16775 


0560 


CO 


4 


77776 


LDQ 




-2,4 


W 16776 


-0600 


CO 





04135 


STQ 




EVTRK 


16777 


1 00005 


4 


17000 


TXI 




*+l,4,5 


^ 17000 


-0 634 


CO 


4 


03110 


SXD 




$CPPI,4 



TXL 



NULLl J) 

CDRLJ) 
CAR{ J) 



CAARTJ) 
/= CAR IE) 



SAVE FUNCTION 

SAVE TOTAL OF 5 ITEMS 

TEST FOR OUT SF PUSH DOWN LIST 

MAKE I XI AND 3>CPP*I AGRE5 



GET THE FUNCTION 



A 

CDR(E) 
FUNCTIONAL ARGUMENT 
MAPLIST(L,EVAL(GAR{Ll,A) ) 



START OPEN UNSAVE 



LS085310 
LS085320 
LS085330 
LS085340 
LS085350 
LS085360 
LS085370 
LS085380 
LS085390 



LS085400 
LS085410 
LS085420 
LS085430 
LS085440 
LS085450 
LS085460 
LS085470 
LS085480 
LS085490 
LS085500 
LS085510 
LS085520 
LS085530 
LS085540 
LS085550 
LS085560 
LS085570 
LS085580 
LS085590 
LS085600 
LS085610 



LS085620 
LS085630 
LS085640 
LS085650 
LS085660 
LS085670 
LS085680 
LS085690 
LS085700 
LS085710 
LS085720 
LS085730 
LS085740 
LS085750 
LS085760 
LS085770 
LS085780 
LS085790 
LS085800 
LS085810 



mmmmmm 
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17001 
17002 



-0534 
0560 



CO 
CO 



03110 
17236 



BINARY CARD NC. 

17003 0520 

17004 0020 

17005 -C534 

17006 0020 



LISP0343 
CO 04135 
CO 17007 
CO 4 04132 
CO G 15721 



17007 
17010 
17011 
17012 
17013 
17014 
17015 
17016 
17017 
17020 
17021 
17022 
17023 
17024 
17025 
17026 
17027 
17030 



-0534 00 

-3 00000 
0534 CO 
3 COO CO 

-0534 00 
0500 00 
0601 CO 
500 CO 
0601 GO C 
0074 00 4 

-3 0406 2 
0500 GO G 
0601 CO 
0131 00 
0074 CO 4 
0074 CO 4 
0074 CO 4 

-0 534 CO 4 



04135 
17105 
04135 
17005 
04 135 
00000 
17236 
04132 
040 57 
03104 
03167 
04063 
04060 
00000 
10712 
17236 
03117 
04057 



EVAPG 



* 



EVDCO 



LXD 


$CPPI ,1 




LDQ 


EVT1 




ZET 


EVTRK 




TRA 


EVDCO 




LXD 


EVS1,4 




TRA 


$APPLY 






IF CAR E 


IS A S 




IS SAVED 


IN THE 




EVTRK IS 


THE TR 


LXD 


EVTRK, 4 


- 


TXL 


EVTXP,4,0 




LXA 


EVTRK»4 




TXH 


EVAPG, 4,0 




LXD 


EVTRK, 4 




CLA 


0,4 




STO 


FVT1 




CLA 


tvsi 




STO 


CSV 




TSX 


$SAVE,4 




TXL 


$END2,,$ALIST+2 


CLA 


*AKG3 




STO 


$ALIST 




XCA 






TSX 


$SPREAD,4 




TSX 


EVT1,4 




TSX 


UNSAVE,4 




LXD 


CSV, 4 





PAKE 1X1 AND SCRP1 AGRE5 



TEST RACE SWITCH 
DECODE EVTRK 

APPLYICADARIJ),EVLIS1CDR{E),A>,A) 

SU8R, THE PGINTER TO THE TXL INSTRUCTION 
DECREMENT OF EVTRK. THE ADDRESS OF 
CE SWITCH. 

LOOK FOR SUBR POINTER 

THERE ISNT ANY, SO GO AND TRACE EXPR 

SEE IF THE SUBR IS TRACED 

YES IT IS. LET APPLY HANDLE IT 

GET THE TXL SUBR WORD 

READY TO EXECUTE 

GET RETURN INDEX AND ATOM NAME 

AND SAVE THEM ALONG WITH $ALIST 



POST CURRENT ALIST 
ARGUMENT LIST TO AC 
SMEAR IT OUT 
EXECUTE SJUBR 
RESTORE ALISf AND IX 



LS085820 
LS085830 



LS085840 
LS085850 
LS085860 
LS085870 
LS085880 
LS085890 
LS085900 
LS085910 
LS085920 
LS085930 
LS085940 
LS085950 
LS085960 
LS085970 
LS085980 
LS085990 
LS086000 
LS086010 
LS086020 
LS086030 
LS086040 
LS086050 
LS086060 
LS086070 
LS086080 
LS086090 
LS086100 



BINARY CARD NO. 
17031 0020 



LISP0344 
CO 4 00001 



17032 
17033 
17034 
17035 
17036 

17037 
1704G 
17041 
17042 
17043 
17044 
17045 
17046 
1704 7 



-0734 CO 4 CCOOO 
C5G0 CO 4 00000 
0734 CO 4 00000 

■0634 CO 4 04135 
0020 CG 16735 



-3 000 CO 
0634 00 4 

-0734 CO 

0500 00 
0734 CO 

•0754 00 
0560 CO € 
0774 00 4 
0020 CO 



17050 -0634 GO 

17051 774 CO 



17040 
17046 
00000 
OOOQO 
00000 
OCOOO 
04134 
00000 
16521 



4 04132 
4 11736 



EVP27 



ELP1 



ELT1 



« 
* 



EVLIS 



TRA 

PDX 
CLA 
PAX 
SXD 
TRA 

TXL 
SXA 
PDX 
CLA 
PAX 
PXD 
LDQ 
AXT 
TRA 



1,4 

0,4 
0,4 
0,4 

EVTRK, 4 
EV27 

, ,0 
ELT1,4 



*+l 

,4 

,4 

,4 

,4 

EVSA 
»*, 4 

SEVAL 



EVLIS 

SXD 
AXT 



EVS1,4 
EVLISL,4 



AND RETURN 

SUBR BRANCH 

POINTER TO TXL WORD 
TO SAVE POSITION 
EVALUATE ARGUMENTS 



SAVE 

J 



LINK IR 



CAR{ J) 

GET CURRENT A LIST 

RESTORE LINK IR 



SAVE LINK IR 
ATOM EVLIS 



LS086110 
LS086120 
LS086130 
LS086140 
LS086150 
LS086160 
LS086170 
LS086180 
LS086190 
LS086200 
LS086210 
LS086220 
LS086230 
LS086240 
LS086250 
LS086260 
LS086270 
LS086280 
LS086290 
LS086300 
LS086310 
LS086320 
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17052 


0634 


CO 


4 


04132 


SXA 


EVS1,4 


FOR BACKTRACE 


LS086330 


• 17053 


0074 


CO 


4 


03104 


TSX 


$SAVE,4 


SAVE EVAL STORAGE 


LS086340 


17054 


-3 04136 


C 


03 165 


TXL 


$END3,,EVSA+2 




LS086350 


~. 17055 


-0 600 


CO 





04134 


STQ 


EVSA 




LS086360 


• 17056 


0560 


CO 


c 


17037 


LDQ 


EL PI 




LS086370 


BINARY CARD NC. 


LISP0345 










• 17057 


74 


CO 


4 


04756 


TSX 


MAPLIS.4 




LS086380 


17060 


0074 


CO 


4 


03117 


TSX 


UNSAVE,4 




LS086390 


17061 


-0534 


CO 


4 


04132 


LXD 


EVS1,4 




LS086400 


• 17062 


C020 


CO 


4 


00001 


TRA 


1,4 




LS086410 
LS086420 


17063 
• 17064 

1706 5 
A 17066 


-0634 


CO 


4 


02313 


EVP26 SXD 


$ERR0R,4 




LS086430 


-0534 


CO 


2 


17236 


LXD 


EVT1,2 




LS086440 


0500 


CO 





17233 


CLA 


EVTE 




LS086450 


74 


CO 


4 


02314 


TSX 


$ERR0R+1,4 




LS086460 


• 17067 


54 216060 11 54 


BCI 


1,*A 9* 


FUNCTION OBJECT HAS NO DEFINITION 


EVALLS086470 


'' 










* 






LS086480 


1707C 


734 


CO 


4 


00000 


EVTFS PAX 


0,4 


ATOM NAME 


LS086490 


• 17071 


-0754 


00 


4 


GOOOO 


PXD 


0,4 


TO PRINT POSITION 


LS086500 


1 17072 


C560 


CO 





04151 


LDQ 


EVTDE 




LS086510 


1 17073 


CG74 


CO 


4 


17124 


TSX 


ARGOF, 4 


PRINT ARGUMENT MESSAGE 


LS086520 


1! • 17074 


5 60 


00 





04060 


LDQ 


SALIST 


RESTORE At I ST AFTER ARGOF 


LS086530 


17075 


0500 


CO 


C 


04151 


CLA 


EVTDE 


AND ARGUMENT LIST 


LS086540 


A 17076 


0074 


CO 


4 


17236 


TSX 


EVTL,4 


DO THE FSUBR 


LS086550 


w 17077 


€074 


00 


4 


03 1 1 7 


TSX 


UNSAV£,4 


RESTORE THE -IR 


LS086560 


17100 


0131 


GO 





00000 


XCA 




VALUE TO MQ 


LS086570 


17101 


5 34 


00 


4 


04057 


LXA 


CSV, 4 


GET ATOM NAME FOR VALUE MESSAGE 


LS086580 


• 17102 


-0754 


CO 


4 


00000 


PXD 


0,4 


TO AC 


LS086590 


17103 


-0 5 34 


00 


4 


04057 


LXD 


CSV, 4 


AND RETURN IR4 


LS086600 


1 


0020 


CO 





17162 


TRA 


VALOF 


PRINT VALUE MESSAGE 


LS086610 










* 






LS086620 


1 

: BINARY CARD NC. 


LISP0346 










• 17105 


0622 


CO 





04151 


EVTXP STD 


EVTDE 


SAVE LAMBDA EXPRESSION 


LS086630 


17106 


05 34 


CO 


4 


04132 


LXA 


EVS1,4 


GET ATOMIC FUNCTION 


LS086640 


! 1710 7 


-0754 


CO 


4 


00000 


PXD 


0,4 


TO PRINT POSITION 


LS086650 


1 • 17110 


00 74 


CO 


4 


17124 


TSX 


ARGOF, 4 


PRINT ARGUMENT MESSAGE 


LS086660 


: 17111 


00 74 


00 


4 


03 104 


TSX 


$SAVE,4 


SAVE THERETURN IX 


LS086670 


• 17112 


-3 04134 





03171 


TXL 


$£NDl,,EVSl+2 




LS086680 


I' • 17113 


0560 


CO 





17236 


LDQ 


EVT1 


RESTORE THE LIST OF ARGUMENTS 


LS086690 


17114 


0500 


00 


fl 


04151 


CLA 


EVTDE 


AND THE LAMBDA EXPRESSION 


LS086700 


1 m, l T1 1 5 


00 74 


CO 


4 


15721 


TSX 


$APPLY,4 


APPLY THE FUNCTION TO ITS ARGS 


LS086710 


• 17116 


074 


CO 


4 


03117 


TSX 


UN SAVE, 4 




LS086720 


17117 


0131 


GO 





00000 


XCA 




PUT VALUE IN MG 


LS086730 


A 17120 


0534 


CO 


4 


04132 


LXA 


EV51,4 


NAME OF ROUTINE TRACED 


LS086740 


W 17121 


-0 754 


CO 


4 


00000 


PXD 


0,4 


PUT IN AC 


LS086750 


17122 


-0534 


CO 


4 


04132 


LXD 


EVS1,4 


LINK IR 


LS086760 


1712 3 

1 ^ 


0020 


CO 





17162 


TRA 

* 


VALOF 


PRINT VALUE OF STATEMENT 


LS086770 
LS086780 












* ARGOF PRINTS ARGUMENTS 


OF NAME FOLLOWED BY THE LIST OF ARGUMENLS086790 












* 






LS086800 


• 1712 4 


0634 


CO 


4 


17152 


ARGOF SXA 


PRX,4 


SAVE INDEX REGISTERS 


LS086810 


17125 


6 34 


CO 


2 


17151 


SXA 


PRY, 2 




LS086820 


17126 


0601 


CC 





17154 


STO 


AGA 


SAVE ATOM NAME 


LS086830 
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17127 


-0600 


CO 





17155 




STO 


AGQ 


17130 


0074 


CO 


4 


06026 




TSX 


TERPRI,4 


17:131 


C774 


CO 


2 


00003 




AXT 


3,2 


17132 


0500 


CO 


2 


17161 




CLA 


AGM+3,2 


BINARY CARD NO. 


LISP0347 








17133 


0074 


CO 


4 


05662 




TSX 


$PRIN2,4 


17 13 A 


2 000C1 


2 


17132 




TIX 


*-2,2,l 


1 71 3 5 


500 


CO 





17154 




CLA 


AGA 


17136 


0520 


CO 





15702 




ZET 


TCNTMA 


17137 


CO 74 


CO 


4 


17201 




TSX 


TRCPRT,4 


17140 


0074 


CO 


4 


05342 




TSX 


$PRINT,4 


17141 


-0534 


CO 


2 


17155 




LXD 


AGO, 2 


17142 


-3 COO CO 


2 


17151 


PLL 


TXL 


PRY, 2,0 


1714 3 


C5C0 


00 


2 


00000 




CLA 


0,2 


17144 


-0734 


CO 


2 


COOOO 




PDX 


0,2 


1714 5 


0734 


00 


4 


COOOO 




PAX 


0,4 


17146 


-0 754 


CO 


4 


0000 




PXD 


0,4 


17147 


0074 


CO 


A 


05342 




TSX 


$PRINT,4 


17150 


0020 


CO 





17142 




TRA 


PLL 


17151 


774 


CO 


2 


00000 


PRY 


AXT 


**,2 


17152 


0774 


00 


4 


COOOO 


PRX 


AXT 


«* ,4 


17153 


0020 


CO 


4 


00001 




TRA 


1,4 


17154 


000 CO 


C 


00000 


AGA 






17155 


coooo 





QOOOO 


AGQ 






17156 


215127644425 


AGM 


BCI 


l.ARGUME 


1715 7 


-056362607777 




OCT 


456362607777 


17160 


-0 62660777777 


AGO 


OCT 


462660777777 



BINARY CARD NO, LISP0348 
17161 652143642560 



VALV BCI 



* 



VALOF 



It VALUE 

PRINTS 

SHARES 



SAVE LIST OF ARGUMENTS 
PRINT A BLANK LINE 
PRINT2 OUT 3 WORDS 



LOOP 



PRINT OUT THE LINE 
START THE PRINLIS 
EXIT IF END OF LIST 
NEXT ITEM 
CDR OF LIST 
CAR 



GET NEXT ITEM 

RESTORE INDEX REGISTERS 

EXIT 

TEMPORARY STORAGE 



ARGUMENTS 
OF 



VALUE GF NAME FOLLOWED BY ONE 
STORAGE WITH ARGOF ROUTINE 



LIST 



17162 
1716 3 
17164 
17165 
17166 
17167 
17.17 C 
17171 
17172 
17173 
17174 
17175 
17176 
17177 
17200 



634 
C601 
-0600 
C074 
0500 
0074 
05 CO 
074 
C500 
0520 
074 
00 74 
500 
07 74 
0020 



CO 

CO 
CO 
GO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
00 
CO 
CO 
CO 



1717 7 
17154 
17155 
06 026 
17161 
05662 
17160 
05662 
17154 
15702 
17201 
05342 
17155 
GOOQO 
05342 



VALOF 



VAX 



SXA VAX, 4 

STO AGA 

STQ AGQ 

TSX TERPRI,4 

CLA VALV 

TSX $PRIN2,4 

CLA AGO 

TSX $PRIN2,4 

CLA AGA 
ZET TCNTMA 
TSX TRCPRT,4 

TSX SPRINT, 4 

CLA AGQ 

AXT **,4 

TRA $PRINT 



IR 



SAVE LINK 

ATOM NAME 

VALUE OF EXPRESSION 

PRINT A BLANK LINE 

WORD VALUE 

PUT IN OUTPUT LINE 

WORD OF 

ATOM 



PRINT CUT THE LINE 

VALUE 

RESTORE LINK IR 

PRINT OUT VALUE AND RETURN 



* 
* 



TRCPRT TACKS FUNCTION ENTRANCES PRINTOUT 
ONTO ARGOF AND VALOF PRINTOUTS 



LS086840 
LS086850 
LS086860 
LS086870 



LS086880 
LS086890 
LS086900 
LS086910 
LS086920 
LS086930 
LS086940 
LS086950 
LS086960 
LS086970 
LS086980 
LS086990 
LS087000 
LS087010 
LS087020 
LS087030 
LS087040 
LS087050 
LS087G60 
LS087070 
LS087080 
LS087090 
LS087100 



LS087110 
LS087120 
LS087130 
LS087140 
LS087150 
LS087160 
LS087170 
LS087180 
LS087190 
LS087200 
LS087210 
LS087220 
LS087230 
LS087240 
LS087250 
LS087260 
LS087270 
LS087280 
LS087290 
LS087300 
LS087310 
LS087320 
LS087330 
LS087340 



mmmmmmm 
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17202 0634 GO 

17203 0074 GO 

17204 0500 CO 

17205 0074 CO 

17206 0602 00 



2 172 32 
4 05446 
15677 
4 04653 
17225 



BINARY CARD NC. LISP 349 



17207 
1721C 
17211 
17212 
17213 
17214 
17215 
17216 
17217 
17220 
17221 

17222 
17223 
17224 
1722 5 
17226 
17227 
17230 
17231 
17232 



-0130 
C100 
6 02 
774 
0500 
00 74 
2 COO 01 
0074 CO 
5 34 CO 
7 74 CC 
00 20 CO 



00 
CO 
CO 
CO 
CO 
CO 



000 00 
17212 
17224 
00010 
17232 
05662 
17213 
06026 
17232 
00000 
00002 



60606C606C60 
606060606060 
6C606C606060 
60606C606060 
6 02664 45 2 363 
314645602545 
'635121452325 
62606C60606C 
GOOCO 00000 



1723 3 C 00-000 00000 
17234 C 00000 00000 

BINARY CARD NO. LISP0350 



17235 
17236 
17 23 7 
1724C 
17241 



COOCO OOOQO 

COOCO 00000 

■0 00000 00000 

C COOCO 00000 

-3 04137 03163 

00424 

00476 



17242 
17243 
17244 
17245 
17246 
17247 
17250 
17251 



-0 6 34 CO 

0074 CO 
-3 04212 

C634 CO 

-0 600 00 

600 CO 

-0 734 00 

C5C0 CO 



04204 
03104 
03161 
04206 
04207 
04210 
00000 

coooo 



SXA TRCPR2,2 
TSX $PRIN1,4 

CLA TCNTMN 
TSX $DEC0N,4 
SLW TRCPRL+3 



XCL 

TZE *+2 

SLW TRCPRL+2 

AXT 8,2 

CLA TRCPRL+8,2 

TSX $PRIN2,4 

TIX «-2,2 t l 

TSX TERPRI,4 

LXA TRCPR2,2 

TRCPR1 AXT 0,4 
TRA 2,4 

# 

TRCPRL BCI 4, 



BCI 4, FUNCTION ENTRANCES 



TRCPR2 
* 

EVTE 

EVTAE 



EVTA 
EVT1 
EV01 
EVENS 
EVCM 
EVZRO 
EVQD1 
* INTER 



* 

R 
INTER 



TXL 

SYN 
SYN 



XR2 SAVE 



E 
CAR(E) 



TEST CELL FOR NUMBERS 
$END4, t EVTRK+2 
$ZERO 
$QD1 

MULTIPLE LISP STATEMENT PROGRAM FEATURE INTERPRETER 
RECODED TO MAKE THE INTERPRETER AND COMPILER PROGRAM 
FEATURE UNDER STAND THE SAME LANGUAGE 



STORAGE 



HED 






SXD 


INTRX,4 


SAVE LINK IR 


TSX 


$SAVE,4 


SAVE PROTECTED TEMPORA 


TXL 


$END5,,INTGS*2 


SAVE 5 ITEMS 


SXA 


INTGL f 2 


SAVE INDEX REGISTER 


STQ 


INTPL 


SAVE PAIR LIST 


STZ 


INTGS 


ZERO THE GO SWITCH 


PDX 


0,4 


POINTER TO PROGRAM 


CLA 


0,4 


FIRST WORD 



LS087350 
LS087360 
LS087370 
LS087380 
LS087390 
LS087400 



LS087410 
LS087420 
LS087430 
LS087440 
LS087450 
LS087460 
LS087470 
LS087480 
LS087490 
LS087500 
LS087510 
LS087520 
LS087530 



LS087540 



LS087550 
LS087560 
LS087570 
LS087580 
LS087590 



LS087600 
LS087610 
LS087620 
LS087630 
LS087640 
LS087650 
LS087660 
LS087670 
LS087680 
LS087690 
LS087700 
LS087710 
LS087720 
LS087730 
LS087740 
LS087750 
LS087760 
LS087770 
LS087780 
LS087790 



mmm 
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17252 


0622 


CO 





04205 


STD 


INTB 


17253 


0622 


CO 





17403 


STD 


INTE 


17254 


7 34 


CO 


4 


00000 


PAX 


0,4 


17255 


-0754 


00 


4 


OOOOO 


PXD 


0,4 


17256 


0560 


CO 





17354 


LDQ 


INTFB 


17257 


0074 


CO 


4 


04756 


TSX 


MAPLIS,4 


17260 


0560 


CO 





04 207 


LDQ 


INTPL 


17261 


0074 


CO 


4 


10515 


TSX 


$NC0NC,4 


17262 


0601 


CO 





04207 


STO 


INTPL 


BINARY CARD NO. 


LISP0351 






17263 


5 60 


CO 





00424 


LDQ 


$ZERG 


17264 


-0534 


CO 


4 


17403 


INTGM LXD 


INTE, 4 


17265 


-3 OOOCO 


4 


17300 


TXL 


INTAA, 4,0 


17266 


05 00 


00 


4 


OOOOO 


CLA 


0,4 


17267 


0622 


CO 





17403 


STD 


INTE 


17270 


0734 


00 


2 


OOOOO 


PAX 


0,2 


17271 


500 


00 


2 


OOOOO 


CLA 


0,2 


17272 


734 


00 


2 


CO 000 


PAX 


0,2 


17273 


-3 77776 


2 


17264 


TXL 


INTGM, 2, -2 


17274 


-0 7 54 


GO 


4 


OOOOO 


PXD 


0,4 


17275 


0074 


00 


4 


04471 


TSX 


SCONS, 4 


17276 


0131 


CO 





OOOOO 


XCA 




1727 7 


0020 


CO 





17264 


TRA 


INTGM 


17300 


-0620 


CO 





04206 


INTAA SLQ 


INTGL 


17 301 


-0534 


CO 


4 


04205 


INTGA LXD 


INTBr4,0 


17302 


-3 OOOCO 


4 


17374 


TXL 


INTRN,4,0 


17303 


0500 


CO 


4 


GCOOO 


CLA 


0,4 


17304 


6 22 


GO 





G4205 


STD 


INTB 


17305 


7 34 


00 


4 


OOOOO 


PAX 


0,4 


17306 


0500 


00 


4 


OOOOO 


CLA 


0,4 


17307 


G734 


CO 


2 


OOOOO 


PAX 


0,2 


17310 


3 777 7 6 


2 


17301 


TXH 


INTGA, 2, -2 


BINARY CARD NO. 


LISR0352 






17311 


-3 12236 


2 


17333 


TXL 


INTEV,2,$C0ND-1 


17312 


3 1223 7 


2 


17333 


TXH 


INTEV,2, $COND 


17313 


-0734 


GO 


2 


OOOOO 


PDX 


0,2 


17314 


-3 OOOCO 


2 


17301 


INTEB TXL 


INTGA, 2,0 


17315 


0500 


00 


2 


OOOOO 


CLA 


0,2 


17316 


-0734 


00 


2 


OOOOO 


PDX 


0,2 


17317 


0734 


00 


4 


OOOOO 


PAX 


0,4 


17320 


5 CO 


CO 


4 


OOOOO 


CLA 


0,4 


17321 


-0 7 34 


00 


4 


OOOOO 


POX 


0,4 


17322 


0634 


00 


4 


0420 5 


SXA 


INTB, 4 


17323 


0734 


00 


4 


OOOOO 


PAX 


0,4 


17 324 


-0754 


CO 


4 


OOOOO 


PXD 


0,4 


17325 


0560 


CO 





04207 


LDQ 


INTPL 


17326 


0074 


CO 


4 


165 21 


TSX 


$EVAL,4 


17 327 


0100 


CO 





17314 


TZE 


INTEB 


17330 


5 34 


CO 


4 


04205 


LXA 


INTB, 4 


17331 


0500 


00 


4 


OOOOO 


CLA 


0,4 


17 332 


0734 


00 


4 


OOOOO 


PAX 


0,4 


17333 


-0754 


CG 


4 


OOOOO 


INTEV PXD 


0,4 


17334 


0560 


CO 





04207 


LDQ 


INTPL 



POINTER TO BEGINNING OF PROGRAM LS087800 

DITTO LS087810 

POINTER TO LIST OF PROGRAM VARIBLES LS087820 

TO DECREMENT LS087830 

FUNCTIONAL ARGUMENT LS087840 

{MAPUISI PV (LAMBDA <L) (CONS (CAR U LS087850 

NIL*)) PICK UP PAIR LIST LS087860 

ATTACH PROGARM VARIBLES TO PAIR LIST LS087870 

PUT IN PAIR LISDT REGISTER LS087880 



ZERO THE MC 

SEARCH PROGRAM FOR GO TO POINTS 

GO IF END OF PROGRAM 

NEXT WORD 

SAVE CDR 

CAR 

MAKE ATOM TEST 

GO IF NOT AN ATOM 

IS AN ATOM, PUT POINTER TQ CURRENT 

PUT ON GO LOST 

ANSWER TO MQ 

NEXT ITEM 

ALL DONE* STORE GO LIST 

NEXT PROGRAM LOCATION 

RETURN WITH NIL IF RAN OUT OF STATE 

NEXT WORD 

SAVE CDR 

CAR 

FIRST WORD 

CHECK FOR ATOM OR $COND 

GO TO NEXT STEP IF ATOM 



LS087890 
LS087900 
LS087910 
LS087920 
LS087930 
LS087940 
LS087950 
LS087960 
LS087970 

L0CLS087980 
LS087990 
LS088000 
LS088010 
LS088020 
LS088030 

MENLS088040 
LS088050 
LS088060 
LS088070 
LS088080 
LS088090 
LS088100 



GO TO EVAL IF NOT $C0N0 

IS $COND DO AN EV60N0 

GO TO NEXT STEP IF COND UNSATISFIED 

FIRST COND STATEMENT 

CDR 

FIRST SUB COND 

POINTER TO THEN PART 

SAVE IN PROTECTED STORAGE 

POINTER TO IF PART 

PUT IN OECREMENT 

PAIR LIST 

EVALUATE IT 

GO IF IF PART IS FALSE 

GET THEN PART 

PPINTER TPQ THEN PART 
LIST TO BE EVALUATED 
GET PAIR LIST 



LS088110 
LS088120 
LS088130 
LS088140 
LS088150 
LS088160 
LS088170 
LS088180 
LS088190 
LS088200 
LS088210 
LS088220 
LS088230 
LS088240 
LS088250 
LS088260 
LS088270 
LS088280 
LS088290 
LS088300 
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17335 


0074 


CO 


4 


16521 


TSX 


$EVAL,4 


17336 


-0520 


CO 





04210 


NZT 


INTGS 


BINARY CARD NO. 


LISP 035 3 






17337 


0020 


CO 





17301 


TRA 


INTGA 


1734C 


5 34 


00 


4 


04210 


LXA 


INTGS, 4 


17341 


3 77776 


4 


17374 


TXH 


INTRN,4,-2 


17342 


-0754 


GO 


4 


00000 


PXD 


0,4 


17 343 


0560 


CC 





17365 


LDQ 


INTFC 


17344 


-0600 


CO 





04063 


STQ 


$ARG3 


17345 


0560 


00 





04206 


LDQ 


INTGL 


17346 


0074 


CO 


4 


10662 


TSX 


SASS0C4 


17347 


-0734 


CC 


4 


CO 000 


PDX 


0,4 


1735C 


0500 


00 


4 


00000 


CLA 


0,4 


17 351 


6 22 


00 


■o 


04205 


STD 


INTB 


17352 


6 00 


CO 


■o 


04210 


STZ 


INTGS 


17353 


020 


CC 





17301 


TRA 


INTGA 


17354 


-3 00001 


{) 


17355 


INTFB TXL 


*+l, , 1 


17355 


0634 


CO 


4 


17363 


SXA 


INTFX, 4 


17356 


-G734 


CO 


4 


00000 


PDX 


0,4 


17 35 7 


500 


00 


A 


GOO 00 


CLA 


0,4 


17360 


0734 


00 


4 


coooo 


PAX 


0,4 


17 36 1 


-0754 


00 


4 


00000 


PXD 


0,4 


17362 


560 


GO 


G 


00424 


LDQ 


$ZERO 


17363 


0774 


00 


4 


COOOO 


INTFX AXT 


**,4 


17364 


0020 


CO 





04471 


TRA 


SCONS 



EVALUATE IT 

SEE IF GO SWITCH 



SET 



GO TO NEXT STATEMENT 

WAS SET, SEE IF GO OR RETURN 

TRA IF RETURN 

POINTER TO ITEM 

GET SASSOC FUNCTIONAL ARGUMENT 

PUT IN $ARG3 

GET GO LIST 

SEARCH FOR ATOM 

POINTER IP PROGRAM POINT 

TAKE CDR 

SET PROGRAM POINT 

ZERO THE GO SWITCH 

GO TO THAT STATEMENT 

MAPLIST FUNCTIONAL ARGUMENT 
(LAMBDA (L) ICONS I CAR L) NIL)) 



LS088310 
LS088320 



LS088330 
LS088340 
LS088350 
LS088360 
LS088370 
LS088380 
LS088390 
LS088400 
LS088410 
LS088420 
LS088430 
LS088440 
LS088450 
LS088460 
LS088470 
LS088480 
LS088490 
LS088500 
LS088510 
LS088520 
LS088530 
LS088540 
LS088550 
LS088560 



BINARY CARD NO. LISP0354 

17365 -3 00001 17366 



17366 -0634 CO 

17367 0534 00 

17370 -0754 00 

17371 0534 CO 
17 372 74 CO 



4 02313 
4 04210 
4 COOOO 
2 04206 
4 02314 



17373 542160600654 



17374 
17375 
17376 
17377 
17400 
1740 1 
1740 2 

17403 



17404 
1740 5 



•0 534 
•0754 
0600 
5 34 
0074 
•0 534 
020 



00 

00 
CO 
CO 
CO 

CO 
CO 



04210 
00000 
04210 
04206 
03117 
04204 
OOOOl 



COOOO 00000 
04207 



-0 501 
601 



CO 
GO 



0G513 
04210 



INTFC 



INTRN 



TXL 
SXD 
LXA 
PXD 
LXA 

rsx 

BCI 

LXD 
PXD 
STZ 
LXA 
TSX 
LXD 
TRA 



SYN 



* 

INTE 
PRGVAR 

* 

* RETURN 

RETURN ORA 
STO 



*+l,, 1 

$ERR0R,4 
INTGS, 4 
0,4 

INTGL, 2 
$ERR0R+1,4 
1,*A 6# 



INTGS 

0,4 

INTGS 

INTGL 

UNSAV 

INTRX 

1,4 

TEMPO 

INTPL 



,4 



,2 

E,4 

,4 



UNLABELED GO TO POINT ERROR 

SAVE LINK IR 

POINTER TO GO POINT LABEL 

PUT IN DECREMENT 

RESTORE INDEX REGISTER 2 

GO TO ERROR 

GO TO POINT NOT LABELED 

RETURN VALUE 
PUT IN DECREMENT 
ZERO THE GO SWITCH 
RESTORE INDEX REGISTER 2 
RESTORE PROTECTED STORAGE 
RESTORE LINK IR 



RARY STORAGE FOR INTERPRETER 

TEMPORARY STORAGE 



SPECIAL PROGRAM SETS RETURN SWITCH 
IN PROGRAM INTERPRETER 



$AMASK 
INTGS 



SIGNAL THAT IT IS 
SET UP GO SWITCH 



A RETURN 



LS088570 
LS088580 
LS088590 
LS088600 
LS088610 
LS088620 
LS088630 
LS088640 
LS088650 
LS088660 
LS088670 
LS088680 
LS088690 
LS088700 
LS088710 
LS088720 
LS088730 
LS088740 
LS088750 
LS088760 
LS088770 
LS088780 
LS088790 
LS088800 
LS088810 
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17406 


C5G0 


CO 


■o 


00476 


CLA 


$G01 


17407 


G020 


GO 


4 


00001 


TRA 

* 

* GO 

it 


It 4 

SPECIAL FORM 


174 1C 


-0634 


CO 


4 


04L53 


GGGOGO SXO 


GCX,4 


17411 


-0734 


00 


4 


00000 


PCX 


0,4 


17412 


0500 


CO 


4 


00000 


CLA 


0,4 


BINARY CARD NC. 


LISP0355 






17413 


0621 


CO 





04210 


STA 


INTGS 


17414 


0734 


CO 


4 


00000 


PAX 


0,4 


17415 


0500 


CO 


4 


GOOOO 


CLA 


0,4 


17416 


0734 


00 


4 


00000 


PAX 


0,4 


17417 


3 777 76 


4 


17 430 


TXH 


GOT, 4, -2 


17420 


5 34 


CO 


A 


04210 


LXA 


INTGS, 4 


17421 


-07 54 


CO 


4 


GOOOO 


PXD 


0,4 


17422 


74 


CO 


4 


03104 


TSX 


$SAVE,4 


17423 


-3 0415 5 





03171 


rxL 


$ENDl,,G0X+2 


17424 


0074 


CO 


4 


16521 


i SX 


$£VAL,4 


17425 


0074 


CO 


4 


03117 


TSX 


UNSAVE.4 


17426 


-0734 


CO 


4 


GOOOO 


PCX 


0,4 


17427 


06 34 


GG 


4 


04210 


SXA 


INTGS, 4 


17430 


0500 


cc 





00476 


GOT CLA 


SQD1 


17431 


-0 534 


CO 


4 


04153 


LXD 


G0X,4 


17432 


020 


GO 


4 


OOOOi 


TRA 


1,4 



PICK UP TRUTH VALUE 
EXIT 



SPECIAL FORM FOR PROGRAM INTERPRETER, GIVES GO TO POINT 



SAVE LINK IR 

POINTER TO ARGUMENT LIST 



PUT CAR IN GO SWITCH 

CAR TO IR 

GET FIRST WORD 

SEE IF ATOMIC 

EXIT TRUE IF AT1MIC 

OTHERWISE GET ARGUMENT 

PUT INDECREMENT 

SAVE LINK IR 

SAVE i ITEM 

EVALUATE THE ARGUMENT 

R STORE LINK IR 

VALUE 

PU IN GO SWITCH 

TRUTH VALUE 

RESTORE LINK IR 

EXIT 



LS088820 
LS088830 
LS088840 
LS088850 
LS088860 
LS088870 
LS088880 
LS088890 



LS088900 
LS088910 
LS088920 
LS088930 
LS088940 
LS088950 
LS088960 
LS088970 
LS088980 
LS088990 
LS089000 
LS089Q10 
LS089020 
LSO 89030 
LS089040 
LS089050 
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TTL 

HEAD 



17433 
17434 
17435 
17436 
17437 
1744C 

BINARY CA 
17441 
17442 
17443 
17444 
17445 
17446 
17447 
17450 
17451 
17452 
17453 
17454 
17455 
17456 
17457 
17460 
17461 
17462 
17463 
17464 
1746 5 
17466 



0601 

-0 600 

0634 

0535 



CO 

CO 
CO 
€0 



1 000 Gl 
0500 GO 



RD NO. 

0601 
-C320 

322 

-0100 

-0 6 34 

'■0 5 CO 

0601 

0600 

0534 

G5G0 

7 34 
-3 77776 

0520 CO 

0074 00 
-0734 00 
-3 00000 

0500 00 

07 34 CO 
-3 10437 
-3 10440 
-3 1162 7 
-3 11630 



LISP 

CO 



CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
00 



04157 
04160 
17625 

00000 
17440 
00000 

035 6 
17635 
00524 
00524 
17625 
17634 
00200 

coooo 

17630 
17635 
COOOO 
00000 
17512 
15702 
15664 
00000 
17512 
00000 

coooo 

1746 5 
17553 
17467 
17553 



BINARY CARD NO.. LISP035 7 



1746 7 
1747C 
17471 
17472 
17473 
17474 
17475 
17476 
17477 
17500 



-3 
-3 

-3 
-3 
-3 

3 



10325 
10326 
117C3 
117C4 
11666 
11667 

-0 7 34 CO 
500 CO 
0734 CO 

-0634 CO 



17471 
17514 
17473 
17475 
1745 7 
17457 
00000 
00000 
00000 
17631 



* 

* 

« 

■» 
« 

LINK 



LNLP 



LNEXP 



LNGN 



COMPI 
C 

LINK 
IT RE 
IS A 
IT GO 
$ALIS 
LINK 
IN TH 
ENT 
HANDL 
TAG 



LER SERVICE 



HANDLES A 
PLACES ST 
SU8R OR F 
ES TO APP 
T AS THIR 
EXPECTS A 
E ADDRESS 

ES ERROR 



ROU 
C 
LL SUB 
R WITH 
SUBR 
LY IF 
D ARGU 
TAG 
t AND 

L 
TRAPS 



TINES 

OMRltER PERMANENT SUBRGUTI 

ROUTINE CALLS FROM COMPILE 

TSX IF SUBROUTINE BEING C 



NES 

D FUNCTION 

ALLED 



THE CALL IS TO EXPR OR FEXPR WITH 

ME NT 

F 7 IN THE STR INST, NAME 

THE NUMBER OF ARGUMENTS IN 

INK WILL' GO TO THE ROUTINE WHICH 

IF THE CALLING INST DOESNT HAVE A 



LS089060 
LS089070 
LS089080 
LS089090 
LS089100 
LS089110 
LS089120 
OF FUNCTI0NLS089130 
THE DECREMLS089140 



STO LNKA 

STQ LNKB 

SXA LER, 4 

LAC 0,4 

TXI *+l,4,l 

CLA 0,4 



STO LNKD 

ANA TAGMSK 

ERA I'AGMSK 

TNZ LER 

SXD LNKC4 

CLA B$ZERC 

STO 

STZ LNTRS 

LXA LNKD, 4 

CLA 0,4 

PAX ,4 

TXL LNNF,4,~2 

ZET TCNTMA 

TSX TCNTEM,4 

PCX 0,4 

TXL LNNF,4,0 

CLA 0,4 

PAX 0,4 

TXL *+2,4,$SUBR-l 

TXL LNSBR,4 f $SUBR 

TXL *+2,4,$FSUBR-l 

TXL LNSBR,4,$FSU8R 



1XL *+2,4,$TRAC£-l 

TXL LNTR,4,$TRAC£ 

TXL *+2,4,$EXPR-l 

TXL LNEXP, 4,$£XPR 

TXL LNLP, 4,$FEXPR-1 

TXH LNLP,4,$FEXPR 

POX 0,4 

CLA 0,4 

PAX 0,4 

SXD LNFN,4 



SAVE AC AND MQ 

SAVE IR4 

COMP POINTER TO STR + 1 

MAKE ORDINARY TSX POINTER 

GET STR INST 7 



SAVE IT 
CHECK FOR 



7 TAG 



IF NOT 7 TAG 
SAVE POINTER 
RESTORE NIL 

RESET TRACE SWITCH 
FUNCTION ATOM 

START PROPERTY LIST SEARCH 
IS REALLY ATOM 



NO DEFINITION SO FN VARIABLE 



EXPR-FEXRR BRANCH 

LAMBDA EXPRESSION 
SAVE IT 



LS089150 
LS089160 
LS089170 
LS089180 
LS089190 
LS089200 
LS089210 
LS089220 
LS089230 
LS089240 



LS089250 
LS089260 
LS089270 
LS089280 
LS089290 
LS089300 
L SO 893 10 
LS089320 
LS089330 
LS089340 
LS089350 
LS089360 
LS089370 
LS089380 
LS089390 
LS089400 
LS089410 
LS089420 
LS089430 
LS089440 
LS089450 
LS089460 



LS089470 
LS089480 
LS089490 
LS089500 
LS089510 
LS089520 
LS089530 
LS089540 
LS089550 
LS089560 



MMMH 
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17501 


0520 


CO 





17630 




ZET 


I.NTRS 


• 17502 


0020 


GO 





17533 




TRA 


LNTEX 


17503 


0074 


CO 


4 


17570 




TSX 


LNARS.4 


17504 


0131 


CO 





00000 




XCA 




• 17505 


C500 


CO 





04060 




CLA 


SALIST 


17506 


0601 


CO 





04063 




STO 


$ARG3 


17507 


0500 


CO 





17631 




CLA 


LNFN 


• 17510 


-0534 


CO 


4 


17634 




LXD 


LNKC,4 


17511 


0020 


CO 





15721 




TRA 


$APPLY 


• 17512 


0534 


00 


4 


17635 


LNNF 


LXA 


LNKD,4 


17513 


00 20 


CO 





17500 




TRA 


LNGN 


• 17 51 4 


-0 520 


CO 





15701 


■tf 

LNTR 


NZT 


TCNTTR 


BINARY CARD NO. 


LISP0358 








• 17515 


00 20 


CO 


c 


17457 




TRA 


LNLP 


17516 


-0625 


CO 





176 30 




STL 


LNTRS 


A 17517 


0601 


CO 





17632 




STO 


LNAC 


• 17520 


0074 


CO 


4 


17570 




TSX 


LNARS,4 


17521 


0601 


CO 





1763 3 




STO 


LNRGL 


17522 


0131 


GO 





00000 




XCA 




• 17523 


0534 


CO 


4 


17635 




LXA 


LNKD,4 


17524 


0634 


CO 


4 


17634 




SXA 


LNKC.4 


^ 17525 


-0754 


00 


4 


00000 




PXO 


0,4 


• 17526 


0074 


CO 


4 


03104 




TSX 


*SAVE,4 


1752 7 


-3 17636 





03 17 I 




rxL 


$ENDl,,LNKC+2 


1753C 


74 


CO 


4 


17124 




TSX 


A$ARG0F,4 


. • 17531 


0500 


CO 





17632 




CLA 


LNAC 


17532 


0020 


GO 





17457 




TRA 


LNLP 


• 17 53 3 


500 


CO 





17631 


■if 

LNTEX 


CLA 


LNFN 


17534 


5 60 


00 





04060 




LOQ 


$ALIST 


17535 


-0600 


00 





04063 




STQ 


SARG3 


• 17536 


0560 


CO 





17633 




LDQ 


LNRGL 


17537 


074 


CO 


4 


15721 




TSX 


$APPLY,4 


1754C 


0074 


00 


4 


03117 


LNTEN 


TSX 


UNSAVE,4 


• 17541 


C131 


00 





00000 




XCA 




17542 


5 34 


CO 


4 


17634 




LXA 


LNKC,4 


• BINARY CARD NO. 


L1SP0359 








17543 


-0754 


00 


4 


COOOO 




PXD 


0,4 


17 5'44 


-0534 


CO 


4 


17634 




LXO 


LNKC,4 


• 17545 


00 20 


CO 





17162 




TRA 


ASVALOF 


^ 17546 


0621 


CO 





17 551 


LNTSB 


STA 


LNDIS 


• 17547 


0500 


CO 





04157 




CLA 


LNKA 


17550 


5 60 


CO 





04160 




LDQ 


LNKB 


17551 


00 74 


CO 


4 


00000 


LNDIS 


TSX 


**,4 


• 17552 


0020 


CO 





17540 




TRA 


LNTEN 


17553 


-0 7 34 


GO 


4 


COOOO 


3f 

LNSBR 


PDX 


0,4 


• 17554 


0500 


CO 


4 


00000 




CLA 


0,4 


17555 


734 


CO 


4 


COOOO 




PAX 


0,4 


_ 1755 6 


0500 


00 


4 


00000 




CLA 


0,4 



TRACE TEST 

TRACE EXPR OF FEXRR 

LIST ARGUMENTS 



PROPER ALIST 
LAMBDA EXPRESSION 
RETURN IR 
DO 

FUNCTION DEFN IS ON ALIST 
APPLY WILL TAKE CARE OF THIS 



SAVE AC 

LIST ARGUMENTS 

AND SAVE THEM 

TO PRINTING POSITION 

ATOM NAME 

SAVE WITH INDEX REGISTER 

ALSO FOR TRACE MESSAGE 

SAVE NAME AND RETRN 

PRINT ARGUMENTS 

RESTORE AC 

AND CONTINUE PROPERTY LIST SEARCH 

TRACE EXPR OR FEXRR 



SET UP ARGUMENTS OF APPLY 

AND DO THE FUNCTION 

GET BACK IR4 AND FN NAME 

ATOM NAME TO AC 



RESTORE INDEX 
PRINT VALUE MESSAGE 

TRACE SUBR OF FSUBR 

RESTORE AC 

AND MQ 

EXECUTER SUBROUTINE 

AND REPORT VALUE 

SUBR OR FSUBR BRANCH 



TXL SUBR»,N WORO 



LS089570 
LS089580 
LS089590 
LS089600 
LS089610 
LS089620 
LS089630 
LS089640 
LS089650 
LS089660 
LS089670 
LS089680 
LS089690 
LS089700 



LS089710 
LS089720 
LS089730 
LS089740 
LS089750 
LS089760 
LS089770 
LS089780 
LS089790 
LS089800 
LS089810 
LS089820 
LS089830 
LS089840 
LS089850 
LS089860 
LS089870 
LS089880 
LS089890 
L SO 89900 
LS089910 
LS089920 
LS089930 



LS089940 
LS089950 
LS089960 
LS089970 
LS089980 
LS089990 
LS090000 
LS090010 
LS090020 
LS090030 
LS090040 
LS090050 
LS090060 
LS090070 



4MMOMM 
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COMPILER SERVICE ROUTINES 



17557 


0520 


CC 





17630 




LET 


LNTRS 


1756C 


0020 


CO 





17546 




TRA 


LNTSB 


17561 


0621 


CO 





17636 




STA 


LNTSX 


17562 


500 


CC 





17636 




CLA 


LNTSX 


17563 


-0534 


CO 


4 


17634 




L.X0 


LNKC, 4 


17 564 


601 


CO 


4 


00000 




STQ 


0,4 


17565 


0500 


CO 





04157 




CLA 


LNKA 


17566 


0560 


CC 





04160 




LDQ 


LNKB 


1756 7 


GC20 


CO 


4 


00000 




TRA 


0,4 


17 570 


0634 


CO 


4 


17621 


LNARS 


SXA 


LNLX, 4 


BINARY CARD NO. 


LISP0360 








17571 


-0534 


CO 


4 


17635 




LXD 


LNKD, 4 


17572 


-3 000 CO 


4 


17623 




TXL 


LNN, 4,0 


175 73 


-0634 


CO 


4 


17575 




SXD 


LNKP, 4 


17574 


0074 


CO 


4 


17637 




TSX 


LST, 4 


17575 


3 00000 





04157 


LNKP 


TXH 


LNKA,0, ** 


17576 


0734 


CO 





04160 




PAX 


LNKB,0 


1757 7 


0734 


CO 





04063 




PAX 


$ARG3,0 


1760C 


0734 


GO 





04064 




PAX 


$ARG4,0 


17601 


0734 


00 





04065 




PAX 


$ARG5,0 


176G2 


734 


CO 





04066 




PAX 


$ARG6,0 


1760 3 


0734 


CO 





04067 




PAX 


$ARG7,0 


17604 


7 34 


00 





04070 




PAX 


$ARG8,0 


17605 


0734 


CO 





04 071 




PAX 


$ARG9,0 


17606 


0734 


CO 





04072 




PAX 


$ARG10,0 


17607 


0734 


CO 





04073 




PAX 


$ARG11,0 


1761C 


0734 


00 





04074 




PAX 


$ARG12,0 


17611 


0734 


CO 





04075 




PAX 


$ARG13,0 


17612 


0734 


CO 





040 76 




PAX 


$ARG14,0 


17613 


G734 


CO 





04077 




PAX 


$ARG15,0 


17614 


0734 


GO 





C41Q0 




PAX 


$ARG16,0 


17615 


0734 


CO 





C4101 




PAX 


$ARG17,0 


17616 


0734 


CO 





04102 




PAX 


$ARG18,0 


BINARY CARD NO. 


LISP0361 








17617 


7 34 


GO 





04 10 3 




PAX 


*ARG19,0 


1762C 


0734 


CO 





04104 




PAX 


■SARG20,0 


17621 


0774 


CO 


4 


00000 


LNLX 


AXT 


**,4 


17622 


0020 


CO 


4 


OOOOl 




TRA 


1,4 


17623 


-0754 


00 





00000 


LNN 


PXD 


0,0 


17624 


0020 


CC 





17621 


at. 


TRA 


LNLX 


1762 5 


0774 


CO 


4 


GOO 00 


ft 

LER 


AXT 


** f 4 


17626 


5 CO 


CO 





G4157 




CLA 


LNKA 


17627 


020 


00 





02542 


* 


TRA 


STRPNT 
LINK STOR 
IS HERE, 


176 30 


000 CO 





00000 


LNTRS 






17631 


000 CO 





00000 


LNFN 






17632 


oooco 





00000 


LNAC 






17633 


G CGOCO 





00000 


LNRGL 






17 634 


OOOCO 





00000 


LNKC 






17635 


OOOCO 





00000 


LNKD 







9/20/67 

TEST FOR TRACING 

MAKE A TSX 

GET IT 

RETURN IR 

CHANGE THE STR TO TSX 

RESTORE AC 

GO TO NEW TSX 

SUBROUTINE WHICH LISTS ARGS 



NUMBER OF ARGS 

LST WONT WORK ON ZERO THINGS 
PUT IN LST ARG POSITION 
LIST THEM 



PAGE 192 



RESTORE INTEX 
NIL 

RESTORE LR4 



GO TO EREOR HANDLING ROUTINEPP 

IS HERE, EXCEPT FOR LINKA NAD LINKB WHICH ARE IN GAR8AG 

TRACE SWITCH 
FUNCTION DEFINITION 
TEMPORARY AC STORAGE 

ARGS LISTED DURNING TRACE INTERLUDE 
1X4 POINTER TO STR WORD 
CONTAINS STR NAME, 7,NUM 



LS090080 
LS090090 
LS090100 
LS090110 
LS090120 
LS090130 
LS090140 
LS090150 
LS090160 
LS090170 
LS090180 



LS090190 
LS090200 
LS090210 
LS090220 
LS090230 
LS090240 
LS090250 
LS090260 
LS090270 
LS090280 
LS090290 
LS090300 
LS090310 
LS090320 
LS090330 
LS090340 
LS090350 
LS090360 
LS090370 
LS090380 
LS090390 
LS090400 



LS090410 
LS090420 
LS090430 
LS090440 
LS090450 
LS090460 
LS090470 
LS090480 
LS090490 
LS090500 
LS090510 
LS090520 
LS090530 
LS090540 
LS090550 
LS090560 
LS090570 
LS090580 
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17636 0074 CO 4 00000 



17637 
1764C 
17641 
17642 
17643 
17644 

BINARY CA 
17645 
17646 
17647 
17650 
17651 
17652 
17653 
17 654 
1765 5 
17656 
17657 
1766G 
17661 
17 66 2 
17663 
17664 
17665 
17666 
17667 
1767C 
17671 
17672 



0634 
500 
06 22 
0622 



CO 

00 
CO 
CO 



-2 COOCO 
-0734 CO 

RD NO, LI 
-0754 00 
-0737 CO 

1 0GGC1 
G634 CO 
0634 CO 

-0534 00 
3 COOCO 
0074 CO 

-0634 CO 
0534 CO 

2 00000 
0074 CO 
774 
634 

-0534 

C500 

771 

621 

0500 

0634 
-0734 



17700 
00001 
17643 
17657 
17644 
00000 



SP0362 



CO 

CO 
CO 
60 
CO 
CO 
CO 
CO 
CO 



4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 



-3 000 CO 4 



00000 
00000 
17650 
17664 
17702 
04512 
17655 
04614 
17711 
04503 
17662 
04513 
7777 7 
04503 
17711 
00000 
C0022 
00000 
00 000 
17676 
00000 
17703 



BINARY C 
1767 
1767 
1767 
1 7 67 
1767 
1770 
1770 
1770 
1770 
1770 
1770 
1770 
1770 
1771 
1771 



;ard n 

'3 2 
06 
■07 



7 
06 
07 
C5 
GO 
05 
00 
5 
05 
06 
00 
C 



0. L I 
QO0C1 
22 CO 
54 CO 
74 CO 
22 CO 
74 CO 
CO CO 
20 CO 
00 CO 
74 CO 
00 CO 
22 GO 
22 CO 
20 CO 
COOCO 



SP0363 
2 17 664 
04512 
00-000 
00000 
00000 
00000 
17 711 
00003 
17711 
03312 
04512 
17676 
00000 
17671 
00000 





4 
4 
2 
■0 


4 


4 





LNTSX 

* 

* 
LST 



LSN 



LSC 



LSP 



LSR 



LFX 

LX2 

LSE 
LFIX 



TSX 



LAN 






SXA 
CLA 
STD 
STD 

TNX 
PUX 



PXD 
HOC 
TXI 
SXA 
SXA 
LXD 

rxH 

TSX 

SXD 

LXA 

TIX 

TSX 

AXT 

SXA 

LXD 

CLA* 

ARS 

STA 

CLA 

SXA 

PCX 

TXL 



TIX 
STD 
PXD 
\ X T 
STD 
AXT 
CLA 
TRA 
CLA 
TSX. 
CLA 
XEC 
STD 
TRA 
PZE 
UNWND 



**»4 INSTRUCTION TO BE PLANTED 

LST IS THE SUBROUTINE WHICH DOES LISTING IN COMPILED 
FUNCTIONS N ELEMENTS WHERE N IS IN AC, ARE 

LISTED ARGUMENTS ARE GOTTEN BY CLA* 

FROM THE N REGISTERS SUCCEEDING THE CALL 



LX2,2 

1,4 

LSN 

LSC 

*+l,4,»* 

0,2 



0,4 

0,4 

*+l,4,l 

LSP, 4 

LSE, 4 

$FREE,4 

#+2,4,0 

$FR0UT,4 

LAN, 4 

$CNTR1,4 

*+3,4 ,** 

ARREST, 4 

-1,4 

$CNTR1,4 

LAN, 4 

**,2 

18 

0,4 

0,4 

LFX, 4 

0,4 

LFIX, 4,0 



LSP, 2,1 

$FREE 

0,0 

** , 4 

0,4 

**,2 

LAN 

#* 

LAN 

RECLAM.4 

$FRtt 

LFX 

0,4 

LSR 



SAVE IR2 

TO GET N FROM POSTDECREMENT 
TO DECREMENT IR4 FOR POINT EXIT 
TO DECREMENT THE CONS COUNTER 

N TO IR2 



START TO COMPLEMENT IR4 

CH FOR A 70 94 

ONE MORE FOR EXIT 

SET UP GET INST 

AND RETURN 

FIRST FREE WORD 

TEST FOR OUT OF FREE 

WILL RETURN -2,4 

THE ANSWER TO THIS SAUSAGE CONS 

GET CONS COUNTER 

REDUCE IT BY N 

OUT OF CONSES 

RESET COUNTER (UP TO N CONSES MAY BE 

LOST EVERY 7777 OCTAL CONSES) 

RESTORE IR4 TO FREE WORD POINTER 

GET ARGUMENT 

TO ADDRESS 

PUT IT IN THE FREE WORD ADDR 

NEXT FREE WORD 

SAVE PRECEDING WORD TO CUT OFF 

NEXT FREE WORD TO IR 

OUT OF FREE ST0RAGE7 



COUNT DOWN 

RESTORE FREE 

CLEAR 

LAST WORD IN LIST 

GETS NIL IN LTS DECREMENT 

RESTORE IR2 

GET THE ANSWER 

RETURN 

TO GET IT PROTECTED DURING MOP UP 

FIX UP THE SAUSAGE 
GET LAST WORD TO IR 
FIX ITS DECREMENT 



IS UNSAVE FOR COMPILED FUNCTIONS , USED BY ERRCRSET 



TO RESTORE THE POL TO PRISTINE STATE 



LS090590 
LS090600 
LS 0906 10 
LS090620 
LS090630 
LS090640 
LS090650 
LS090660 
LS090670 
LS090680 
LS090690 
LS090700 



LS090710 
LS090720 
LS090730 
LS090740 
LS090750 
LS090760 
LS090770 
LS090780 
LS090790 
LS090800 
LS090810 
LS090820 
LS090830 
LS090840 
LS090850 
LS090860 
LS090870 
LS090880 
LS090890 
LS090900 
LS090910 
LS090920 



LS090930 
LS090940 
LS090950 
LS090960 
LS090970 
LS090980 
LS090990 
LS09I000 
LS091010 
LS091020 
LS091030 
LS091040 
LS091050 
LS091060 
LS091070 
LS091080 
LS091090 



mmmmmmmmimmmmmm 



MMWMM 
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17712 
17713 
17714 
17715 
17716 
17717 
17720 



0634 

-0600 

-■0 534 

-0754 

0401 

0402 

0622 



GO 
CO 

CO 
00 
CO 
CO 
CO 



17743 
17746 
03110 
CGOOO 
77 7 77 
00476 
17 722 



UNWND 



SXA 
STQ 
LXD 
PXD 
ADM 
SUB 
STD 



UNX,4 

UNSQ 

$CPPI 

0.1 

-lil 

$QD1 

UNTL 



SAVE THE MQ FOR BACKTRACE 



LS091100 
LS091110 
LS091120 
LS091130 
LS091140 
LS091150 
LS091160 



BINARY C 
1772 
1772 
17 72 
1772 
1772 
1772 
1772 
1773 
17 73 
17 73 
17 73 
1773 
1773 
17 73 
177 3 
1774 
1774 
17 74 
1774 
1774 
1774 
17 74 



ARD N 



1 
3 

5 
07 

-3 

-07 
01 
05 
07 
3 

05 
00 
01 
5 
07 
06 
00 

-06 
07 
05 
OG 




U. LI 
0000 1 
00000 
00 CO 
34 00 
OOOCO 
54 GO 
31 GO 
00 00 
34 GO 
77776 
00 CO 



74 

CO 
GO 
34 
22 
20 
34 
74 
60 
20 



CO 
CO 
00 
CO 
CO 
CO 
CO 
GO 
CO 
GO 



00000 



SP0364 
1 17722 
17742 

00000 
00000 
17721 
OCOQO 
00000 
0000.0 
00000 
17721 
20056 
12762 
17721 
00000 
00000 
00000 
17721 
03110 
00000 
17 746 
00001 
00000 



1 
1 
4 
4 
4 

4 

4 

4 

1 
4 
4 

1 
4 

4 




UNLP 
UNTL 



UNF 
UNX 



UNSQ 
■» 



TXI 

TXH 
CLA 
PAX 
TXL 
PXD 
XCA 
CLA 
PAX 
TXH 
CLA 
TSX 
TZE 
CLA 
PAX 
STD 
TRA 
SXD 
A XT 
LDQ 
TRA 

MOVE IS 
TSX 
TNX 



*+l»l»l 

UNF,lf *» 
Oil 
0,4 

UNLP, 4,0 
0,4 



0,4 

0,4 

UNLP, 4,-2 

PROS 

GET, 4 

UNLP 

0,1 

0,4 

0,4 

UNLP 

$CPPI ,1 

**,4 

UNSQ 

1,4 

SPECIAL COMPILER 
*M0VE,1 
NAME, 1,*MN 



SAVE 
SERVICE 



MQ HERE 
SUBROUTINE 



WITH BAD CALLING- 



LS091170 
LS091180 
LS091190 
LS091200 
LS091210 
LS091220 
LS091230 
LS091240 
LS091250 
LS091260 
LS091270 
LS091280 
LS091290 
LS091300 
LS091310 
LS091320 
LS091330 
LS091340 
LS091350 
LS091360 
LS091370 
LS091380 
LS091390 
LS091400 
LS091410 



BINARY CA 
17747 
17750 
17751 
17752 
17753 
17754 
17755 
17756 
17757 
17 760 
17761 
17 76 2 
17 763 
17764 
17765 
17756 
17767 
17 770 
17771 



RO NO. 
0634 

-0534 
0601 

-0600 

-0634 
0774 
0500 
0621 
0622 
0500 
0601 
0500 

-03 20 
G1C0 

-0734 
0020 
5 00 
0601 
0500 



LISPO 



CO 
CO 
CO 
CO 
CO 
CO 
CO 
00 
CO 
CO 
00 
00 
GO 
00 
CO 
CO 
CO 
00 
CO 



365 

17754 

03110 

00001 
00002 
20043 
GOOOO 
00001 
20043 
20042 
20043 
GOOOO 
GOOOO 
00523 
20034 
00000 
20033 
04104 
00024 
C4103 



MOVE 



MGVY 



SXA 
LXD 
STO 
STQ 
SXD 
AXT 
CLA 
STA 
STD 
CLA 
STO 
CLA 
ANA 
TZE 
POX 
TRA 
CLA 
STO 
CLA 



M0VY,1 

$CPPI,1 

1,1 

2,1 

TXLW, 4 

** ,4 

1,4 

TXLW 

STRW 

TXLW 

0,1 

0,4 

CNTMSK 

MQVO 

0,4 

MOVD-1,4 

$ARG20 

20,1 

$ARG19 



PICK UP PDL 
SAVE AC 



PPINTER 



SAVE RETURN INDEX 

PICK UP REFERENCE TO CALLING HEAD 

TNX WORD HAS NAME IN AODR. 

COMPLETES THE TXL WORD 

PUT N IN STRW DECREMENT 

PUT IT AT HEAD OF PDL BLOCK 

TSX HAS COUNT FIELD 

COUNT FIELD MASK 

IF LESS THAN 3 ARGS 

COUNT FIELD TO IX 

ENTER PART OF MOVE ROUTINE 



LS091420 
LS091430 
LS091440 
LS091450 
LS091460 
LS091470 
LS091480 
LS091490 
LS091500 
LS091510 
LS091520 
LS091530 
LS091540 
LS091550 
LS091560 
LS091570 
LS091580 
LS091590 
LS091600 
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17772 
17 7 7 3 
17 77 4 



C601 

C5G0 
C601 



GO 
GO 

GO 



1 00023 

04102 

1 C0O22 



BINARY C 
1777 
17 77 
1777 
2000 
2000 
2000 
2000 
200O 
2000 
2000 
2000 
2001 
2001 
2001 
20 01 
20 01 
2001 
2G01 
2001 
2002 
2002 
2002 



ARD NO. 



0500 
C6C1 
G500 
0601 
05CO 
G601 
G5G0 
0601 
0500 
06G1 
G500 
0601 
G5C0 
0601 
0500 
0601 
C5G0 
C6G1 
0500 
0601 
05G0 
C6C1 



LISPO 

CO 



GC 

cc 

GO 
CO 
CG 
GO 
CC 
CO 
CG 
CC 
GO 
CO 
CO 
GO 
GC 
CO 
CC 
CO 
GO 
CC 
CO 



366 

04101 

00021 

04100 

00020 

04077 

00017 

04076 

00016 

04075 

C0015 

04074 

G0014 

04073 

00013 

04072 

00012 

04071 

QOOli 

C407G 

00010 

0406 7 

00007 



STO 
CLA 

STO 



CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 



19,1 

SARG18 
18,1 



$ARG17 

17,1 

$ARG16 

16,1 

$ARG15 

15,1 

$ARG14 

14,1 

$ARG13 

13,1 

$ARG12 

12,1 

$ARG11 

11,1 

$ARG10 

10,1 

$ARG9 

9,1 

$ARG8 

8,1 

$ARG7 

7,1 



LS091610 
LS091620 
LS091630 



LS091640 
LS091650 
LS091660 
LS091670 
LS091680 
LS091690 
LS091700 
1S091710 
LS091720 
LS091730 
LS091740 
LS091750 
LS091760 
LS091770 
LS091780 
LS091790 
LS091800 
LS091810 
LS091820 
LS091830 
LS091840 
LS091850 



BINARY C 
2002 
2002 
2002 
2002 
2002 
2003 
2003 
2003 
20 03 
2003 
2003 
2003 
2003 
2004 
2004 
20O4 
2004 



ARD NO. 



20044 
20045 
20046 
20047 

20050 



G500 
0601 
500 
0601 
C500 
0601 
C5 0O 
0601 
0534 
0522 

-0634 
0500 
0601 

-3 000 
0020 

-1 COO 

-3 000 



LISPO 

CC 



CC 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CG 
CO 
CO 
CO 
00 
CO 



-0634 
C131 
G5G0 

-0734 
0131 



CG 
CO 
GO 
CO 
GO 



367 

04066 

00006 

04065 

0000 5 

04064 

00004 

04063 

00003 

17754 

00001 

03110 

200 42 

77 777 

03205 

00002 

00000 

00000 



03110 
CGOOG 
00000 
00000 
00000 



MOVD 



ENPDL1 



CLA $ARG6 

STO 6,1 

ClA $ARG5 

STO 5,1 

CLA $ARG4 

STO 4,1 

CLA $ARG3 

STO 3,1 

LXA l"0VY,4 

XEC 1,4 

SXO $CPPI,1 

CLA STRW 

STO -1,1 

TXL $N0PDL,1,#* 

TRA 2,4 

STR ** 

TXL **,,»* 



STRW 
TXLW 
» 

* RESTOR PICKS 

RES.TOR SXD 
XCA 
CLA 
PCX 
XCA 



UP 1X4 FROM 
$CPPI ,1 

0,1 

0,4 



RESTORE IR4 
XECED TNX DECREMENTS 1X1 BUT NO TRANSFER 
KEEP CPPI UP TO DATE ALSO 
CREATES SECOND PARAMETER WORD 
PUT AT VERY END OF BLOCK 

RETURN FROM LINK 



POL, SETS BACK CPPI ,AND EXITS. 

SAVE VALUE OF FUNCTION 
PICK UP RETURN WORD 
RESTORE 1X4 
RESTORE AC 



LS091860 
LS091870 
LS091880 
LS091890 
LS091900 
LS091910 
LS091920 
LS091930 
LS091940 
LS091950 
LS091960 
LS091970 
LS091980 
LS091990 
LS092000 
LS092010 
LS092020 
LS092030 
LS092040 
LS092050 
LS092060 
LS092070 
LS092080 
LS092090 
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BINARY CARD NO. LISP036S 








20051 


0C20 CO 


4 


00001 


M 


TRA 


1,4 










20052 


PROBE 


SYM 


■» 


20052 


C 


cooco 


c 


OOOQO 


LIST 






20053 


C 


GOOCO 


C 


00000 


QTLST 






20054 





COOGC 





00000 


TAB 






20055 





00000 





00000 


LCOM 






20056 


G 


cooco 





00000 


PROS 














20056 


PRO EN 


SYN 


*-l 


20057 





00000 





17747 


MOV 




MOVE 


20060 





OOOOC 





17637 


LSTR 




LST 


20061 


c 


000 CO 





20044 


RTRN 




RESTOR 


20062 


c 


00000 





04060 


ALST 




IALIST 


20063 










TOPROG 


BSS 






EXIT 

BEGINNING OF PROTECTED AREA 

MAIN LISPING GOES HERE 

THE LIST OF QiJOTES. NEVER ERASE 

TEMPORARY SYM TABLE 

STORAGE FOR COMMON ONLY. PROTECTED 

PROTECTED FUNCTION NAMES AND SPECIALS 

END OF PROTECTED AREA 

THE WORD POINTED TO 8Y SYM ON *MOVE 

POINTED TO BY SYM ON ATOM «LIST 



LS092100 
LS092110 
LS092120 
LS092130 
LS092140 
LS092150 
LS092160 
LS092170 
LS092180 
LS092190 
LS092200 
LS092210 
LS092220 
LS092230 
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64424 



TTL PERMANENT LIST STRUCTURE LS092240 

64424 ORG 26900 LEAVES ROOM AT THE TOP FOR THE C0MPILELS092250 

LOWERP BSS 1 LWER LIMIT OF PERMENANT LIST STRUCTURELS092260 

************»*»**«***HEAD OR HED*»^**»**#*******************»LS092270 

HED LS092280 

LS092290 
LOWER LIMIT OF PERM. LIST STRUCTURE LS092300 

LS092310 



BINARY C£RD NG. LISP0369 


64425 


C 


cooco 





00000 


64426 





13353 





00000 


64427 


c 


13352 





coooo 


6443C 


c 


13351 


G 


CQOOO 


6443 1 


c 


13350 





00000 


64432 





13347 





00000 


64 43 3 


G 


13346 


c 


coooo 


64434 


C 


133 4 5 


G 


ccooc 


64435 


C 


13344 





coooo 


64436 





1334 3 





00000 


64437 


G 


13342 





coooo 


6444C 


C 


13341 


G 


ooooc 


64441 


e 


13340 





coooo 


64442 


c 


13337 





00000 


64443 





13336 





00000 


64444 


c 


13335 





GCOOC 


64445 


c 


13334 





coooo 


64446 


c 


13333 





00000 


64447 


c 


13332 





00OQG 


6445C 


G 


133 31 


G 


GCOOO 


64451 


C 


13330 





00000 


6445 2 





13327 





00000 


BINARY CARD NO. LISP0370 


64453 


c 


13 32 6 





00000 


64454 


c 


13325 


C 


00000 


64455 


c 


13324 





coooo 


64456 


c 


13 32 3 





00000 


64457 


G 


13322 





coooo 


6446C 


C 


13321 





00000 


64461 


c 


1332 





00000 


64462 


c 


13317 





00000 


6446 3 





13316 


C 


coooo 


64464 





13315 





coooo 


64465 


G 


13314 





coooo 


64466 


G 


13313 





coooo 


64467 


C 


13312 





coooo 


6447C 


C 


13311 





00000 


64471 


c 


13310 


c 


ccooo 


64472 


c 


133 C 7 





coooo 


64473 


G 


133C6 





00000 


64474 





133C5 





coooo 


64 475 





133C4 





coooo 


64476 


c 


1330 3 





ccooo 


64477 


c 


13302 





coooo 



LAST BUCKET 



-»+l 
-*+l 
-*+l 
-*+l 
-*+l 
-*+l 
-*+l 
-*+l 
-# + i 
•*+l 
-* + l 
-* + l 
-*+l 

-*n 
•«+i 
-«+i 
-*+i 
-*+i 
-*+i 
•»+i 
-*+i 



-*+i 
-*+i 
•*+ i 
-*+i 
-*+i 
-*+i 
-*+i 
-»+ 1 
-»+i 
-#+i 
-*+i 
-* + i 
-*+i 
-*+i 
-*+i 
-*+i 
-*+i 
-*+i 
-*+i 
-*+i 
-#+i 



LS092320 
LS092330 
LS092340 
LS092350 
LS092360 
LS092370 
LS092380 
LS092390 
LS092400 
LS092410 
LS092420 
LS092430 
LS092440 
LS092450 
LS092460 
LS092470 
LS092480 
LS092490 
LS092500 
LS092510 
LS092520 
LS092530 



15092540 
LS092550 
LS092560 
LS092570 
LS092580 
LS092590 
LS092600 
LS092610 
LS092620 
LS092630 
LS092640 
LS092650 
LS092660 
LS092670 
LS092680 
LS092690 
LS092700 
LS092710 
LS092720 
LS092730 
LS092740 
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6450C C 133C1 00000 



-* + i 



LS092750 



BINARY CARD KG. LISP0371 


64 501 


C 


133CC 





00000 


64502 





13277 





GOOOO 


6450 3 





13276 





COOGO 


64504 


c 


13275 





GOOOO 


64505 


c 


13274 





00000 


64506 





132 73 





00000 


6450 7 





13272 





GOOOO 


645 1G 


c 


13271 





GOOOO 


64511 


c 


13270 





GOOOO 


64512 





13267 





00000 


64513 





13266 





00000 


64514 


c 


13265 





00000 


64515 


c 


13264 





GOOOO 


64516 





13263 





00000 


64517 


c 


13262 


c 


OOOQC 


64520 


c 


13261 





00000 


64521 





13260 





00000 


64522 





13257 





00000 


64 52 3 





13256 





00000 


64524 





13255 





00000 


64525 





13254 





00000 


64526 





132 5 3 





00000 


BINARY CARD JVC. LISP0372 


64527 


c 


132 5 2 





CGOCC 


64530 





13251 





00000 


64531 


c 


13250 





COOOO 


6453 2 





13247 





GOOOO 


64533 





1324 6 





00000 


64534 





13245 





00000 


64535 


c 


13244 


c 


00000 


64536 


G 


1324 3 





00000 


64537 


c 


13242 





00000 


6454C 


c 


13241 





00000 


64541 


G 


13240 


c 


00000 


64542 





13237 





GOOOO 


6454 3 





132 3 6 


c 


COOOO 


64544 





13235 





00000 


64545 


c 


13234 





COOOO 


64546 





13233 





00000 


64547 





13232 





COOOO 


64550 


c 


132 31 





00000 


64551 


c 


13230 





00000 


64552 


c 


13227 





00000 


64553 


G 


13226 





GOOOO 


64554 


c 


13225 





00000 



-*+l 
-*+l 
-*+l 
-*+l 
-* + l 
-*+l 
-*+l 
-*+l 
-«+l 
-*+l 
-»+l 
-*+l 
-*+l 
-*+l 
-*+l 

-*+l 

-*+l 
-*+l 

— #+ 1 

-*+l 
-*+l 
-*+l 



-*+l 

— * + 1 

— *+l 
-* + l 

-*+l 

— *+l 

-*+l 
-*+l 
-*+l 

-»+l 

-*+l 
-»+l 

— *+l 

-*+l 
-*+l 
-»+l 

-*+ 1 
-*+ 1 

-*+l 
-*+l 
-*+l 
-*+l 



LS092760 
LS092770 
LS092780 
LS092790 
LS092800 
LS092810 
LS092820 
LS092830 
LS092840 
LS092850 
LS092860 
LS092870 
LS092880 
LS092890 
LS092900 
LS092910 
LS092920 
LS092930 
LS092940 
LS092950 
LS092960 
LS092970 



LS092980 
LS092990 
LS093000 
LS093010 
LS093020 
LS093030 
LS093040 
LS093050 
LS093060 
LS093070 
LS093080 
LS093090 
LS093100 
LS093110 
LS093120 
LS093130 
LS093140 
LS093150 
LS093160 
LS093170 
LS093180 
LS093190 



BINARY CARD NC. LISP0373 

64555 13224 GOOOO 

64556 13223 GOOOO 



64 55 7 
6456 



C 
C 



13222 
13221 



00000 
GOOOO 



>f-*+l 
,,-*+l 

t t-*+l 
t f -* + l 



LS093200 
LS093210 
LS093220 
LS093230 



LISP 1.5 FDR SHARE DISTRIBUTION, MARCH 1965 
PERMANENT LIST STRUCTURE 



9/20/67 



PAGE 199 



64561 


C 


13220 





00000 


64562 


C 


13217 





ooooo 


64563 


C 


13216 


c 


ooooo 


64564 


c 


13215 





ooooo 


64565 


c 


13214 





ooooo 


64566 





13213 





ooooo 


64567 





13212 





ooooo 


6457C 


c 


13211 





ooooo 


64571 





13210 





ooooo 


64572 


c 


13207 





ooooo 


64573 





132C6 





GOOOO 


64574 





1320 5 





OOOOO 


64575 


■0 


13204 





GOOOO 


64576 





13203 





OOOOO 


64577 


G 


13202 





ooooo 


6460C 





13201 





GOOOO 


64601 


c 


13200 





ooooo 


64602 





13177 





ooooo 


BINARY CARD NO. LISP0374 


64603 


c 


13176 





GOOOO 


64604 





13175 





ooooo 


64605 


G 


1317 4 





ooooo 


64606 


c 


13173 


G 


GOOOO 


64 60 7 





13172 





ooooo 


6461C 





13171 





ooooo 


64611 





13170 





ooooo 


64612 





13167 


G 


ooooo 


64613 





13166 





0GO00 


64614 





13165 





OOOOO 


64615 


c 


13164 





ooooo 


64616 


c 


1316 3 





ooooo 


64617 


c 


1 31 6 2 





ooooo 


6462 





13:161 


G 


ooooo 


64621 





13160 





ooooo 


64622 





1315 7 





GOOOO 


6462 3 





1315 6 





GOOOO BUCKET 
64 62 3 CBLIST 



SYN 



-# + 1 
-*+l 

— »+l 
-* + l 
-* + l 
-*+l 
-»+l 
-* + l 
-*+l 
-*+l 

— *+l 
-*+l 

-» + l 
-*+l 
-# + 1 
~# + l 
-* + l 
-*+ 1 



-*+l 
-*+l 
— *+ 1 
-*+l 
-*+l 
-*+l 
-*+l 
-*+l 
-#+1 
-*+l 
-*+l 
-« + l 
-*+l 
-*+l 
-*+ 1 
-* + l 
-*+l 
BUCKET 



POINTER TO BUCKETS 



LS093240 
LS093250 
LS093260 
LS093270 
LS093280 
LS093290 
LS093300 
LS093310 
LS093320 
LS093330 
LS093340 
LS093350 
LS093360 
LS093370 
LS093380 
LS093390 
LS093400 
LS093410 



LS093420 
LS093430 
LS093440 
LS093450 
LS093460 
LS093470 
LS093480 
LS093490 
LS093500 
LS093510 
LS093520 
LS093530 
LS093540 
LS093550 
LS093560 
L SO 9 3570 
LS093580 
LS093590 



mmmmmmmmmmmm 
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EJECT 














HEAD 














OBJECT LIST 




• 646 24 





13153 





77777 OBLB -l,,-*-l 




64625 





13152 





12602 


-II14,,-*-l 


ADD 1 


64626 





13151 


■0 


12560 


-)ALST, ,-*-l 




W 6462 7 





13150 





12551 


AND»,-*-l 




6463C 





13147 





12541 


Fl,,-*-l 




# BINARY CARD NO. Li. 


5P0375 






64631 





1314 6 





12531 


F18,,~*-l 




64-632 





13145 





12521 


APVAL, ,-*-l 




• 64633 





1314 4 





12514 


-IIl,,-*-l 


ARRAY 


64634 





13143 





12504 


ATOM,,-*-l 




64635 





13142 





124 74 


F29,,-*-l 




• 64636 





13141 





12454 


CAR,,-*-l 




6463 7 





13140 





12444 


CDR,,-*-l 




6464C 





13137 





12434 


CAAR, ,-*-l 




• 64641 





13136 





12424 


CDAR, ,-*-l 




64642 





13135 





12414 


CADR,,-*~1 




6464 3 





13134 





12404 


CDOR,,-*-l 




• 64644 





13133 





12374 


CAAAR, ,-*-! 




64645 





13132 





12364 


CAADR, ,-*-l 




64646 





13131 





12354 


CADAR, ,-*-l 




• 64647 


c 


13130 





12344 


CADOR, ,-*-l 




6465 





1312 7 





12334 


CDAAR, ,-*-! 




_ 64651 


c 


13126 





12324 


CDADR,,-*~1 




• 64652 





13125 


c 


12314 


CCDAR, ,-*-! 




64 653 


c 


13124 





12304 


CCDDR, ,-*-l 




64654 





13123 





12237 


CGND» f -*-l 




• 64655 





13122 





12227 


CCNSN,,-*-i 




6465 6 





13121 





12207 


CCPYN,,-*-l 




• BINARY CAR 


D NO. LISP0376 






6465 7 





13:120 





12102 


DUMP,,~*-1 




64660 





13117 





12217 


F12,,-*-l 




• 64661 





13116 





12177 


F35,,-*-l 




64662 





13115 





12144 


-IJ01,,-*-l 


DIFFER 


6466 3 


C 


13114 





12122 


-I J02,,-*~l 


D IV I DE 


• 64664 





13113 


G 


12040 


EC, ,-*-l 




64665 





13112 





12030 


-)EQP,,-*-l 




64666 





13111 





12010 


f 8, ,-*-l 




• 64667 





13110 





12000 


F21,,-*-l 




6467C 


c 


13107 





11746 


F19, ,-*-l 




^ 64671 


c 


13106 





11736 


EVLISL,,-*-l 




W 64672 





1310 5 





11726 


-)EXCA,,-*-l 


EXCISABLE 


64673 





13104 





11714 


-)EXCI,,-*~1 


EXCISE 


64 674 


C 


131C3 





11704 


EXPR,,-*-l 




• 64675 





13102 





11677 


F32,,-*-l 




64676 





13101 





11667 


FEXPR, ,-*-l 




„ 6467 7 





13 ICO 





11662 


FIX,,-*-l 




• 64 700 


C 


13077 





11655 


-1111,,-*-! 


FIX P 


64701 





13076 





11645 


FLOAT,,-*-! 




_ 64702 





13075 





11640 


-II12,,-*-l 


FLOAT P 



LS093600 
LS093610 
LS093620 
LS093630 
LS093640 
LS093650 
LS093660 
LS093670 
LS093680 



LS093690 
LS093700 
LS093710 
LS093720 
LS093730 
LS093740 
LS093750 
LS093760 
LS093770 
LS093780 
LS093790 
LS093800 
L SO 938 10 
LS093820 
LS093830 
LS093840 
LS093850 
LS093860 
LS093870 
LS093880 
LS093890 
LS093900 



LS093910 
LS093920 
LS093930 
LS093940 
LS093950 
LS093960 
LS093970 
LS093980 
LS093990 
LS094000 
LS094010 
LS094020 
LS094030 
LS094040 
LS094050 
LS094060 
LS094070 
LS094080 
LS094090 
LS094100 
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64703 
64704 

BINARY CAR 
64705 
64706 
64707 
6471C 
64711 
64712 
64713 
64714 
64715 
64716 
64717 
6472C 
64721 
64722 
64723 
64 724 
64725 
64726 
64727 
64730 
64731 
64732 



C 
C 



13074 
13073 C 



11630 
11623 



D NO. LI 
C 130 7 2 
13071 
13070 
13067 
13066 
13065 
13064 
13063 
13062 
13061 
13060 
13057 
13056 
13055 
13054 
13053 
13052 
13051 
13050 
13047 
13046 
13045 



C 

c 




C 

c 
c 



c 
c 








c 




G 



SP0377 
11616 
11604 
11564 
11554 
11542 
11532 
11522 
11515 
11473 
11463 
11443 
11373 
11363 
11353 
11341 
11331 
11321 
11311 
11271 

coooo 

11261 
11251 



























BINARY 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 



CARD N 
733 



734 

735 
736 
73 7 
74C 
741 
742 
743 
744 
745 
746 
747 
75C 
751 
752 
75 3 
754 
75 5 
756 
757 
760 



C 




c 

G 

C 

c 








c 






c 



0. LI 
13044 
13043 
13042 
13041 
13040 
13037 
13036 
13035 
13034 
13033 
13032 
13031 
13030 
13027 
13026 
13025 
130 24 
13023 
13022 
13021 
13020 
13017 



SP0378 
11241 
11217 
11202 
11162 
11142 
11132 
11112 
11102 
11062 
11045 
11025 
11005 
11015 
10775 
10765 
10753 
10743 
10733 
10655 
10645 
10721 
10625 













c 
















BINARY CARD NO. L1SP0379 

64761 13016 10665 

64762 13015 10557 

64763 C 13014 10675 



FSUBR, ,-*-l 
FUNARG,,-*-! 



FINCT,,-*~1 
SYMGEN,,-*-l 
GC, »-*-l 

-113, ,-»-l 
F16,,-*-l 
LABEL, ,-*-l 
LAMBDA, ,-*-l 

LAP,,-*-l 

-II4,,-*-l 
LIST,,-*-l 

LOAOA,,-*-l 
PMAPCA,,-*-! 
-)069B,,-*~1 
-)069A,,-*-l 

-II7,,-*-l 

-II8,,-*-l 
MINUS, ,-*-l 

-I I16,,-*-l 
F3,,-*-l 
NIL,,-*-l 
NCT,,-*-l 
NULL,,-*-! 



-II13,,-*-l 
GBLBA, ,-*-l 
-II9,,-*-l 

OR,,-*-l 
F2,,-*-l 
PAUSE,, -*-l 
PLB,,-*-l 
PLUS,,-*-l 
PNAMEt f -*-l 
F4,,-*-l 
PR0G,,~*~1 
PROPO, ,-*-l 

-IJ05,,-*~1 
QUOTE,,-*-! 

-U03,,-**-l 
F13,,-*-l 

-II18,,-*-l 
RCLAM, ,-*-l 
PRPLCA,,~*-1 
PRPLCD,,-*-l 

-IJ04,,-*-l 

-) 128, ,-*-! 



RETATM, ,-*-l 
SASCO,,-*-l 

-) 129,,-*-! 



GREATER THAN R 



LESS THAN P 
LOADER OBJECT 



MAXIMUM 

MINIMUN 



MINUS P 



NUMBER P 
GBLISI OBJECT 
ONE P 



PUNCH 

QUOTIENT 

RECIP 



REMAINDER 
RESTGR 



RETURN 
SAVE 



LS094110 
LS094120 



LS094130 
LS094140 
LS094150 
LS094160 
LS094170 
LS094180 
LS094190 
LS094200 
LS094210 
LS094220 
L SO 942 30 
LS094240 
LS094250 
LS094260 
LS094270 
LS094280 
LS094290 
LS094300 
LS094310 
LS094320 
LS094330 
LS094340 



LS094350 
LS094360 
LS094370 
LS094380 
LS094390 
LS094400 
LS094410 
LS094420 
LS094430 
LS094440 
LS094450 
LS094460 
LS094470 
LS094480 
LS094490 
LS094500 
LS094510 
LS094520 
LS094530 
LS094540 
LS094550 
LS094560 



LS094570 
LS094580 
LS094590 
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64764 
64765 
64766 
64 767 
6477C 
64 771 
64772 
64 773 
64774 
64775 
64776 
64 777 
6500C 
65001 
65002 
65003 
65004 
65005 
65006 




C 

G 
C 
G 
C 

c 
c 



c 



c 
c 
c 


G 


c 



BINARY CARD 

65007 

650 10 G 

65011 

65012 

65013 

65014 G 

65015 C 

65016 C 

65017 C 
6502 C 
6502 1 

65022 

65023 

65024 
6502 5 

65026 

65027 
6503 C 

65031 

65032 

65033 

65034 C 



130 1 3 
13012 
13011 
13010 
13007 
13006 
130C5 
130C4 
130C3 
130C2 
130C1 
130C0 
12777 
12776 
12775 
12774 
12773 
12772 
127 71 

NO- LI 
12770 
12767 
12766 
12765 
12764 
1276 3 
1276 2 
12761 
1276C 
12757 
12756 
12755 
12754 
12753 
12752 
12 751 
12750 
12747 
12746 
12745 
12744 
12743 



10547 
10537 
10527 
10507 
10477 
10440 
10326 
10321 
10606 
10577 
10566 
10615 
10406 
10450 
10433 
10423 
00001 
10356 
10346 



SPG380 
10413 
10376 
10336 
10255 
10311 
10277 
10245 
11574 
10 707 
07426 
07427 
07430 
07431 
07432 
07433 
C7434 
07435 
07436 
G7437 
07440 
07441 
07443 





C 

c 






c 

c 










c 
c 









BINARY CARD NO.. LISRC381 



65035 
65036 
65037 
6504C 
65041 
65042 
65043 
65044 
65045 
65046 



C 


c 



c 
c 

G 
C 
C 

c 



12742 
12741 
12740 
12737 
12736 
12735 
12734 
12733 
12732 
12731 



07442 
07444 
0744 5 
C 07446 
07447 
074 50 
G7451 
C 07452 
07453 
C 07454 



SRCH, ,-»-l 

SET,,-*-l 

SETQ, ,-*-l 

F34,,-*-l 

STOP,,-*-l 

SL8R,,-*-l 

TRACE, ,-»-! 
-) 130, t -*-l 
SM0VE,,~»-1 
SRETUR»,-*-l 
SLIST, ,-*-l 
SPECAL,,**-1 
-) 136,,-*-l 
-I I15,,-*-l 

F17, ,-«-l 

F30,,-*-l 

1, ,-*-! 

F27, ,-*-l 

-)134,,-*-l 



SYM,,-*-l 
-)TAB,,-*-l 

TIMES, ,-*-! 

-) 133,,-*-l 
-)135,,~*-1 

F36, »-*-! 

-II10,,-*-l 

CGET,,-*-l 

REMPP,,-*-l 

HC0,,-#-l 

HG1 ,,-*-! 

HC2,,~«-1 

H03,,-*-l 

HC4, ,-*-! 

HC5*,-*-l 

HC6, ,-*-l 

HC7,,-*-l 

H10,.,-*-l 

hll,,-*-l 

H12,,-*-l 

Hl?,,-*-l 

H15, ,-*-! 



H14, ,-*-l 
H16,,-*-l 
H17, ,-*-l 
H20,,-*-l 

H21,,-«-l 



TYPEIN 



SYMTAB 

SUBTRACT 



«T* BINARY TRUE ATOM 



TIME1 



ZERO P 



, »' 



H22 
H23,,-«-l 
H24,,-*-l 
H25,,-*-l 
H26, ,-•-! 



LS094600 
LS094610 
LS094620 
LS094630 
LS094640 
LS094650 
LS094660 
LS094670 
LS094680 
LS094690 
LS094700 
LS094710 
LS094720 
LS094730 
LS094740 
LS094750 
LS094760 
LS094770 
LS094780 



LS094790 
LS094800 
LS094810 
LS094820 
LS094830 
LS094840 
LS094850 
LS094860 
LS094870 
LS094880 
LS094890 
LS094900 
LS094910 
LS094920 
LS094930 
LS094940 
LS094950 
LS094960 
L SO 94 970 
LS094980 
LS094990 
LS095000 



LS095010 
LS095020 
LS095030 
LS095040 
LS095050 
LS095060 
LS095070 
LS095080 
LS095090 
LS095100 
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65047 





1273C 





07455 


65050 


■0 


12727 





07456 


65051 


c 


12726 


c 


07457 


65052 


c 


1272 5 





07460 


65053 





12724 





07461 


65054 





12723 





07462 


65055 


c 


12722 





7463 


65056 


c 


12721 





07464 


65057 


c 


12720 





07465 


6506C 





12717 





07466 


65061 


c 


12716 


c 


07467 


65062 





12715 





07470 


BINARY CARD NG. LISP0382 


65063 





12714 





07471 


65064 





12713 





07472 


65065 





12712 





07473 


65066 





12711 


c 


07474 


65067 





1271C 





07475 


6507C 


c 


12707 





07476 


65071 


c 


12706 





07477 


65072 


c 


12705 





07500 


6507 3 


c 


127C4 





07501 


65074 





127C3 





07502 


65075 





127C2 





07503 


65076 





■12701 


c 


07504 


65077 


c 


127C0 





C7505 


6510C 


c 


12677 





07506 


65101 





12676 





07507 


65102 





12675 


c 


07510 


6510 3 





12674 


■c 


07511 


65104 





12673 





07512 


6510 5 


c 


12672 





07513 


65106 


c 


12671 


c 


07514 


65107 


c 


12670 





07515 


651 1C 


c 


1266? 


c 


07516 


BINARY CARD NO. LI< 


;P0383 


65111 





12666 


c 


07517 


65112 


c 


12665 





07520 


65113 





12664 


G 


07521 


65114 


c 


12663 





07522 


65115 


c 


12662 





0752 3 


65116 





12661 


G 


C7524 


65117 





12660 


c 


G7525 


6512C 


G 


12657 





12167 


65121 


c 


12656 





12572 


65122 


c 


12655 





11770 


65123 





12654 





12020 


65124 





12653 





12247 


65125 





126 5 2 





11403 


65126 


c 


12651 


c 


106 35 


65127 





12650 





11122 


65130 





12647 





12112 


65131 


c 


12646 





11072 



H27, 


,-*-l 


H30, 


,-*-! 


H31, 


,-*-! 


H32, 


,-*-! 


H33, 


,-»-! 


H34, 


,-*-l 


H35, 


,-*-! 


H36, 


,-*-! 


H37, 


,-*-l 


H40, 


,-»-l 


H41 t 


,-*-l 


h42, 


,-*-! 


H43, 


,-*-l 


H44, 


,-»-! 


H45, 


,-*~l 


H46, 


,-*-! 


H47,, 


,~*-l 


H50 f , 


,-*-l 


H51, 


,-*-l 


H52, 


,-*-l 


H53,. 


,-*~l 


H54, 


,-*-l 


H5 5,i 


,-*-l 


H56ti 


-*-l 


H57, , 


,-*-l 


H60 ts 


-*-l 


H6 1 , , 


,-*-! 


H62,i 


-*-l 


H6 3,, 


-»-l 


H64,, 


-*-l 


H65,, 


-*-l 


H66, i 


-*-l 


H6 7,, 


-*-l 


H70, , 


-*-i 



H7i 



t ?' 



-*-l 



H72,,-*-l 

H73,,-*-l 

H74, ,-*-! 

H75,,-*-l 

H76,,-*-l 

H77,,-*-l 

PJU,-*-l 

PJ2,,-*-l 

PJ4,,-*-l 

PJ5,,-*-l 

PJ6, ,-*-l 

PJ7,,-*~1 

PJ8,,-*-l 

PJ9,,-*-l 

PJ10,,-*-l 

PJll,,-*-l 



LS095110 
LS095120 
LS095130 
LS095140 
LS095150 
LS095160 
LS095170 
LS095180 
LS095190 
LS095200 
LS095210 
LS095220 



LS095230 
LS095240 
LS095250 
LS095260 
LS095270 
LS 09 52 80 
LS095290 
LS095300 
LS095310 
LS095320 
LS095330 
LS095340 
LS095350 
LS095360 
LS095370 
LS095380 
LS095390 
LS095400 
LS095410 
LS095420 
LS095430 
LS095440 



LS095450 
LS095460 
LS095470 
LS095480 
LS095490 
LS095500 
LS095510 
LS095520 
LS095530 
LS095540 
LS095550 
LS095560 
LS095570 
LS095580 
LS095590 
LS095600 
LS095610 



mmmummmm 
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65132 
65133 
65134 
65135 
65136 






C 


C 



12645 
12644 
12643 
126 42 
12641 



12464 
10517 
10472 
12154 
11453 



PJ12,,-*-l 
PJ14,,-*~1 
PJ15,,-*-l 
PJ16,,-*-l 
PJ17,,-*-l 



LS095620 
LS095630 
LS095640 
LS095650 
LS095660 



BINARY 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 
65 



CARD 
13 7 



14C 
141 
142 

14 3 
144 
145 
146 
147 
15C 

15 1 
15 2 
153 
154 
155 
156 
157 
16C 
161 
162 
163 
164 



NO. LISP 
1264C G 
12637 
126 36 
12635 
12634 
12633 
12632 
12631 
1263C 
12627 
12626 
12625 
12624 
12623 
1262 2 
12621 
1262C 
12617 
12616 
12615 
12614 
12613 



0384 
11172 
12132 
10462 
10366 
11152 
11227 
11301 
12261 
11207 
12072 
10265 
12274 
11055 
12060 
12050 
11423 
11433 
11413 
11035 
11760 
10235 
10225 



PJ18, 

PJ19, 

PJ21, 

PJ23, 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

E 

-U40 

-J 141 



,-*-l 
,-*-l 
,-#-1 



,-*- 


1 


J24, 


,— *—l 


J25, 


,— *— 1 


J26, 


»— *~1 


J27, 


,— *— 1 


J28, 


,— *— 1 


J30, 


t~ *-* 1 


J31, 


i — *— 1 


J32, 


, — *— 1 


J33, 


»— *— 1 


J34, 


, — *— 1 


J 35, 


j — *— 1 


J 36, 


,—*— 1 


J37, 


,—*—]. 


J38, 


,— *— 1 


J39, 


f — *— I 



RSETO,,-*-l 



ERRQRSET 
TAPE 
REWIND 



LS095670 
LS095680 
LS095690 
L SO 95700 
LS095710 
LS095720 
LS095730 
LS095740 
LS095750 
LS095760 
LS095770 
LS095780 
LS095790 
LS095800 
LS095810 
LS095820 
LS095830 
LS095840 
LS095850 
LS095860 
LS095870 
LS095880 



BINARY CARD NO. LISP0385 



65165 
65166 
65167 
6517C 
65171 
65172 
65173 
65174 
65175 



C 

c 



c 
c 

c 




■o 



12612 
12611 
12610 
126C7 
12606 
126C5 
126C4 
126C3 

oooco 



10215 
10205 
10175 
10165 
10155 
10143 
10131 
10117 
11505 



-> 14 2, ,-*-! 
-) 143,, -»~1 
-U45,,-*-l 
-)144,,-*-l 
-)146,,-*-l 
-)147,,-*-l 
-)149,,-*-l 
-)150,,-*-l 
PVW1 



MPRINT 
MREAD 
SPACE 
EJECT 



EVALQUOTE 

BACKSPACE 
BACKTRACE 
SYMNAM 
LAST OBJECT 



- LEFTSHIFT 



LS095890 
LS095900 
LS095910 
LS095920 
LS095930 
LS095940 
LS095950 
LS095960 
LS095970 
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65176 
65177 
6520C 
65201 
65202 
65203 
65204 




C 

c 

-3 

C 

c 
c 



126C1 
126CC 
12576 
00001 
12575 

oooco 
oooco 



77777 
10440 
12577 
15402 
11062 
12574 
12 573 



65205 +.212424017777 



65206 
65207 
6521C 
65211 
65212 







•3 

c 



12571 
12570 
12566 

oooco 

12565 



77777 
10440 
12567 
13202 
11062 



BINARY CARD NO, LISP0386 



65213 
65214 
65215 
65216 
65217 

65220 
65221 
65222 
65223 
65224 
65 22 5 
65226 

65227 
6523C 
65231 
65232 
65233 
65234 
65235 
65236 

65237 
6524G 



COOCC 12564 
12562 12563 
212465214523 
C COOCO C 12561 
+257777777777 



U 12557 

12556 

C 12553 

COOOC 



77777 
11062 
12555 
12554 



-132143316263 
12552 C 10413 
G COOCO 57716 




C 
C 
-3 

C 

c 



12550 
12547 
12545 
OOOCO 
12544 
COOCO 
OOOCO 



77777 

11630 
12546 
16435 
11062 
12543 
12542 



+214 524 7 777 77 



C 




12540 
12537 



77777 
10440 



BINARY CARD NO. LISP0387 



65 241 
65242 
65 243 
65244 
65245 



C 

-3 


c 





12535 

00OC2 
12534 

OOOCO 
COOCC 



12536 
10361 
11062 
12533 
12532 



65246 2 14747254524 



65247 
6525C 



C 
C 



12530 
12527 



77777 
10440 



EJECT 

PROPERTY LISTS 

1114 -l,,-*-l 

$SU8R,,-*-l 
-»*-l, ,-*-2 
TXL ADD1,,1 

$PNAME,,-*-l 
-*-l 
-*-l 
OCT 212424017777 



)PJ2 



)ALST 



)002 



1003 



)004 



SLBR,,-*~1 
PZE -*-l,,-*-2 

TXL ADVANCO 

PNAME, ,-*-! 



~*-l 

-*-l , f ~*-2 
BCD 1ADVANC 
-*-l 

OCT 257777777777 

-l,,-*-l 

PNAKE,,-«-l 

-*~1, ,-*-3 
-*-l 

OCT 53214 3316263 

SYM,,-*-l 
-C$ALST 

-lt,-*-l 
FSU8R, ,-»-l 
-*-l, ,-*~2 
TXL $EVAND,,0 

$PNAME,,-*-l 

-*-l 

-*-l 

OCT 214524777777 

-1, ,-*-! 

SU8R, ,-*-l 



-*-l,,-#-2 

TXL APPEND,, 2 

PNAME, ,-*-l 
~*-l 

-*-l 

BCD 1APPEND 

SLlJR,,-*~l 



ADD1 
ADVANCE 




/*>" 



SAL I ST 



AND 



LS095980 
LS095990 
LS096000 
LSQ96010 
LS096020 
LS096030 
LS096040 
LS096050 
LS096060 
LS096070 
LS096080 
LS096090 
LS096100 
LS096110 
LS096120 
LS096130 
LS096140 



LS096150 
LS096160 
LS096170 
LS096180 
LS096190 
LS096200 
LS096210 
LS096220 
LS096230 
LS096240 
LS096250 
LS096260 
LS096270 
LS096280 
LS096290 
LS096300 
LS096310 
LS096320 
LS096330 
LS096340 
LS096350 
LS096360 
LS096370 
LS096380 
LS096390 



LS096400 
LS096410 
LS096420 
LS096430 
LS096440 
LS096450 
LS096460 
LS096470 
LS096480 
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65251 


C 12525 12526 


65252 


-3 C00C3 15721 


65253 


12524 11062 


65254 


OOOCO 12523 


65255 


C OOOCO 12 52 2 


65256 


+214747437077 


6525 7 


12520 77777 )005 


6526C 


C 12517 11062 


65261 


OOOCO 12516 


65262 


OOOCO 12515 


65263 


214765214377 


65264 


* 
12513 77777 III 


65265 


12512 10440 


65266 


1251C 12511 


BINARY CARD NC. LISP0388 


65267 


-3 OOOCi 14103 


6527C 


125C7 11062 


65271 


C OOOCO 12506 


65272 


COOCC 12505 


65273 


+215151217077 


65274 


125C3 77777 )007 


65275 


C 12502 10440 


6527 6 


12500 12501 


65277 


-3 OOOCI 162 76 


65300 


12477 11062 


65301 


OOOCO 12476 


65302 


OOOCO 12475 


65303 


+216346447777 


65 304 


12473 77777 3008 


65305 


12472 10440 


65306 


12470 12471 


65307 


-3 00002 10754 


65310 


C 12467 11062 


65 311 


GOOCO 12466 


65312 


OOOCO 12465 


65313 


216363513122 


65314 


12463 C 77777 )PJ12 



BINARY CARD NC. LISPC389 



65315 
65316 
65 317 
65 32 
65321 
65322 
65323 

65324 
65325 



12462 11062 
12457 12461 
COOCO 12460 
+224321454277 



C 

c 








124 5 6 

OOOCO 

GOOCG 

12453 
12452 



12521 
12455 

07506 

77777 

10440 



-*~1 , ,-*~2 
TXL APPLY, ,3 

PNAME, ,-*-l 
~*-l 

OCT 214747437077 

-l,,~*-l 
PNAME, ,-*-l 

VFD H30/APVAL, 06/77 

-l,,-*-i 
SUBR, ,-*-l 
-*-l, ,-*-2 



TXL ARYMAK,,1 

$PNAME,,-*~1 

-*-l 
OCT 215151217077 

-l,,-*-l 

seep, ,-*-i 

-*~1, ,-*-2 
TXL ATOMP, ,1 

PNAME, ,-*-! 

OCT 216346447777 

-l,,-*-l 

SUBR,,-*-i 
-*-l, ,-#-2 
TXL ATTRIB,,2 

PNAME, ,-*-l 

BCD 1ATTRIB 



APPLY 



APVAL 



ARRAY 



ATOM 



3011 



PZE -1, ,-*-! 



PZE PNAME,, -*-l 
-*-l,,~*-3 

OCT 224321454277 
APVAL1,,-*-! 

H60 

-l,,-*-l 
SUBR, ,-»-! 



BLANK 



BCD BLANK 



LS096490 
LS096500 
LS096510 
LS096520 
LS096530 
LS096540 
LS096550 
LS096560 
LS096570 
LS096580 
LS096590 
LS096600 
LS096610 
LS096620 
LS096630 
LS096640 



LS096650 
LS096660 
LS096670 
LS096680 
LS096690 
LS096700 
LS096710 
LS096720 
LS096730 
LS096740 
LS096750 
LS096760 
LS096770 
LS096780 
LS096790 
LS096800 
LS096810 
LS096820 
LS096830 
LS096840 
LS096850 
LS096860 
LS096870 
LS096880 
LS096890 



LS096900 
LS096910 
LS096920 
LS096930 
LS096940 
LS 096 950 
LS096960 
LS096970 
LS096980 
LS096990 



MM 
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65326 

65327 -3 
6533C 

65331 

65332 



1245C 
COO CI 
12447 

oooco 
cooco 



12451 
C 16260 
11062 
12446 
12445 



65333 +232151777777 



65334 
65335 
65 336 
65337 
6534C 
65 341 
65342 




C 

c 

-3 






1244 3 
12442 
12440 
000C1 
124 3 7 
OOOCC 
OOOCO 



77777 
10440 
12441 
16270 
11062 
12436 
12435 



BINARY CARD NO. LISP0390 
65343 +232451777777 



65344 
65345 
65 346 
65347 
65350 
65351 
65352 








-3 








12433 
12432 
124 30 

00OC1 
12427 

COOCO 
COOCO 



7 77 77 
10440 
12431 
L2717 
U062 
12426 
12425 



65353 +232121517777 



65 35 4 
65355 
65356 
65357 
6536 
65361 
65362 





c 
c 

-3 



c 



12423 
124 22 
12420 

C00C1 
12417 
OOOCO 
COOCO 



77777 
10440 
12421 
12756 
11062 
12416 
12415 



65363 +2 32421517777 



65364 
65365 
65 36 6 
65 367 
6537C 




C 

-3 




12413 
12412 
12410 
000 01 
1240 7 



77 777 
10440 
12411 
12721 
11062 



BINARY CARD NO. LISP0391 

65371 OOOCO 12406 

65372 OOOCO 12405 

65373 +232124517777 



65374 





124C3 





77 777 


65375 





12402 





10440 


65376 





124C0 





12401 


65 377 


-3 


00001 





12760 


65400 





1237 7 





11062 


65401 





OOOCC 





12376 


65402 


C 


COOCO 





12 375 



65403 +2 32424517777 



~#-l, ,-«-2 
TXL CARP,,1 

PNAMEf t -»-l 
-*-l 

OCT 232151777777 CAR 

J012 -l,,-*-l 

SUBR,,-*-i 
~*-l, ,~*-2 
TXL CDRP,,1 

PNAME, ,-*-l 
-»-l 



OCT 232451777777 CDR 

J201 -1,,~*-1 

$SUBR,,~*-1 
-*-l,,-*-2 
TXL CAARXX,,! 
PNAME, ,-*-l 
-*-l 
-*-l 
OCT 232121517777 

1202 -1,,-*~1 

$SU3R, ,-*-! 

TXL CDARXX,,1 

PNAME, ,-*-l 

-*-l 

-*-l 
OCT 232421517777 

)203 -l,,~*-i 

$SU8R, ,-*~l 
-*-l, ,-*-2 
TXL CADRXX,,! 

PNAME, ,-*-! 



^#-1 
-*-l 
OCT 232124517777 

1204 -l,,-»-l 

$SUBR,,~*-1 
-*-l,,-*-2 
TXL C0DRXX,,1 

PNAME,,-*-! 

-«-l 
OCT 232424517777 



LS097000 
LS097010 
LS097020 
LS097030 
LS097040 
LS097050 
LS097060 
LS097070 
LS097080 
LS097090 
LS097100 
LS097110 
LS097120 
LS097130 



LS097140 
LS097150 
LS097160 
LS097170 
LS097180 
LS097190 
LS097200 
LS097210 
LS097220 
LS097230 
LS097240 
LS097250 
LS097260 
LS097270 
LS097280 
LS097290 
LS097300 
LS097310 
LS097320 
LS097330 
LS097340 
LS097350 
LS097360 
LS097370 
LS097380 



LS097390 
LS097400 
LS097410 
LS097420 
LS097430 
LS097440 
LS097450 
LS097460 
LS097470 
LS097480 
LS097490 
LS097500 



MH 



mmmmmmmm 



Q 
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65404 '12373 77777 )205 -l,,-#-l 

65405 C 12372 10440 $SU6R,,-*-l 

65406 12370 12371 -»_ lft _*_ 2 

65407 -3 000C1 12663 TXL CAAARX ff l 

65410 1236.7 11062 PNAME,, -*-l 

65411 OOOCO 12366 -*-l 

65412 00000 12365 -*-l 

65413 +23212121517/ OCT 232121215177 

65414 12363 77777 1206 ~1,,~*-1 

65415 12362 10440 $SUBR,,-*-l 

65416 12360 12361 -*_ ltt _*_2 

BINARY CARD NO. LISP0392 

65417 -3 00001 12676 TXL CAA0RX,,1 

65420 C 12357 11062 PNAME,, ~*~1 

65421 OOOGG 12356 -»-l 

65422 00000 12355 -*-l 

OCT 232121245177 



65423 +232121245177 



65424 12353 77777 



65425 





12352 


c 


10440 


65426 





123 50 





12351 


65427 


-3 


000 CI 





12703 


6543C 


C 


12347 





11062 


65431 





OOOCO 





12346 


65432 





OOOCO 





12345 


65433 


+232124215177 


65434 





12343 





7777 7 


6543 5 


C 


12342 





10440 


65436 





12340 





12341 


65437 


-3 


COO 01 





12712 


6544C 





12337 





11062 


65441 





OOOCO 





12336 


65442 





OOOCO 





12335 



65443 +232124245177 

65444 12333 77777 

BINARY CARD NG. LISP0393 

65445 12332 10440 



J207 -l,,-*-l 

$SUBR,,-*-l 
~*-l, t-*~2 
TXL CADaRX,,1 
PNAME,,-*-! 
-*-l 
-*-l 
OCT 232124215177 

)208 -l,,-*-l 

$SU6R,,-*-l 
-*-1i ,~*~2 
TXL CACDRX,,1 

PNAME,, -*~1 

-*-l 
OCT 232124245177 

)209 -i,,-*-! 



65446 
65447 
6545C 
65451 
65452 
65453 



$SU6R,,-*-l 
12330 12331 -*~l,,-*-2 

-3 COCCI 12723 TXL CDAARX,,1 

C 12327 11062 PNAME,, -*-l 

OOOCO 12326 ~*-l 

C OOOCO 1232 5 -*-l 

OCT 232421215177 



+232421215177 



65454 12323 77777 )210 -1,,~*~1 

65455 12322 10440 $SUBR,,-*-l 

65456 C 1232C 12321 -.*_ lf ,_»_ 2 

65457 -3 C0OC1 12735 TXL CDADRX,,1 
65460 12317 11062 PNAME,,-*-! 



LS097510 
LS097520 
LS097530 
LS097540 
LS097550 
LS097560 
LS097570 
LS097580 
LS097590 
LS097600 
LS097610 
LS097620 
LS097630 



LS097640 
LS097650 
LS097660 
LS097670 
L SO 97680 
LS097690 
LS097700 
LS097710 
LS097720 
LS097730 
LS097740 
LS097750 
L SO 9 7760 
LS097770 
LS097780 
LS097790 
LS097800 
LS097810 
LS097820 
LS097830 
LS097840 
LS097850 
LS097860 
LS097870 
LS097880 



L $097890 
LS097900 
LS097910 
LS097920 
LS097930 
LS097940 
LS097950 
LS097960 
LS097970 
LS097980 
LS097990 
LS098000 
LS098010 



MmiiiWMmMPmmiMP 
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65461 C COOCO 12316 

65462 C OOOCO 12315 

65463 +232421245177 



65464 


C 


12 313 





77777 


65465 


C 


12312 





10440 


65466 


c 


12310 


c 


12311 


65467 


-3 


COO CI 





12742 


6547C 


c 


123C7 





11062 


65471 





COOCO 


c 


12306 


65472 


c 


000 CO 





12305 



BINARY CARD NO. LISP0394 
65473 +232424215177 



65474 
65475 
65476 
65477 
6550C 
65501 
65502 



C 





-3 

c 



c 



123C3 
12302 
123C0 
COCCI 
12277 
OOOCO 
OOOCO 



77777 
10440 
12301 
12751 
11062 
12276 
12275 



65503 +232424245177 



65504 
65505 
65506 
65507 
6551C 
65511 
65512 
65513 
65514 
65515 
65516 

65517 
65520 





C 

C 




122 

122 

122 

122 

000 

23302 

•24456 

122 

000 

coo 

•C 641 



73 

72 
65 
70 
CO 
1512 
3 777 
64 
CO 
CO 
55 1 



77777 
11062 
12271 
12267 
12266 

346 

777 
12521 
12263 
12262 
77777 








12260 
12257 



77 777 
C 10440 



BINARY CARD NG* LISP0395 



65521 
65522 
65523 
65524 
65525 
65526 
65527 
65530 

65531 
65532 
65533 
65534 
65535 
65536 



12255 12256 
-3 COOCC C 13172 
12254 11062 
00000 12253 
12251 12252 
234325215122 
C OOOCO 12250 
-242626777777 



C 

c 






12246 
1224 5 
12242 

OOOCC 



77777 

11062 

12244 

■0 12243 



+2 34644442177 
C 12241 12521 



)21l 



1212 



JPJ32 



-*-l 
OCT 232*21245177 

-l,,-*-l 

iSUBR,,-*~l 
-»-l, ,-*-2 
TXL CDDARX,,1 
PNAME, ,-*-l 
-#-1 



OCT 232424215177 

-l,,-*-l 

$SUBR,,-*-l 
-*-lt »-*-2 
TXL CCDDRX,,1 
PNAME,,-- »-l 
-*-l 
-»-l 
OCT 232424245177 



-l,,-*-l 

PNAME,, -*-l 

-*-l,,-*-5 

-*-2, ,-*~l 

-*-2 

l.CHARCO 

644563777777 

APVALl,,-*-l 

-*-l 

-1,1,-CHACT 



CHARCCUNT 



BCI 
OCT 



MZE 



BCI CHARCOUNT 



)PJ27 



TXL 

BCI 
OCT 



)PJ6 



OCT 



-l,,-*-l 
SU8R, ,-*-! 



-*~l,,-*-2 

CLEAR,, 

PNAME, ,-*-l 
-*-l 

-*-l, ,-*-2 
1,CLEARB 
-*-l 
642626777777 

-l,,-*-l 

PN/5ME,,-*-l 
-**-l,,~*~3 

234644442177 

APVAL1,,-*-! 



CLEARBUFF 



BCD UFF 



COMMA (LITERAL) 



BCD COMMA 



LS098020 
LS098030 
LS098040 
LS098050 
LS098060 
LS098070 
LS098080 
LS098090 
LS098100 
LS098110 
LS098120 



LS098130 
LS098140 
LS098150 
LS098160 
LS098170 
LS098180 
LS098190 
LS098200 
LS098210 
LS098220 
LS098230 
LS098240 
LS098250 
LS098260 
LS098270 
LS098280 
LS098290 
LS098300 
LS098310 
LS098320 
LS098330 
LS098340 
LS098350 
LS098360 
LS098370 



LS098380 
LS098390 
LS098400 
LS098410 
LS098420 
LS098430 
LS098440 
LS098450 
LS098460 
LS098470 
LS098480 
LS098490 
LS098500 
LS098510 
LS098520 



mmmmmmmm 



HMH 
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65537 C 
6554C 



65541 
65542 
65543 
6 554 A 
65545 
65546 



C 
C 

C 
-3 

C 

c 



cooco 
oooco 

12236 
12235 
12233 

COOCG 
12232 

COOCO 



12240 
07521 



77777 

11630 
12234 
16222 
11062 
12231 



BINARY CARD NO. LISP0396 

65547 COOCO 12230 
6555C +234645247777 



65551 
6555 2 
6555 3 
65 554 
65555 
65556 
65557 





c 
c 

-3 



c 





12226 
1222 5 
12223 

0O0C2 
12222 

COOCO 

OOOCO 



77777 
10440 
12224 
04471 
11062 
12221 
12220 



65560 +2 34645627777 



65561 
65562 
65563 
65564 
65565 
65 566 
65567 



C 


c 

-3 





c 



12216 
12215 
12213 

00-001 
12212 
OOOCO 
00-000 







c 







77777 
10440 
12214 
10166 
11062 
12211 
12210 



6557C +234701777777 



65571 

65572 

65573 
65 574 -3 



12206 
12205 
122C3 

000 01 



77777 
10440 
12204 
05111 



BINARY CARD NO. LISP0397 

65575 122C2 11062 

65576 OOOGO 12201 

65577 COOOO 12200 
65600 +234647707777 



65601 
65602 
65603 
65604 
65605 
65606 
6560 7 





C 
-3 






12176 
12175 
12173 

COOCO 
12172 

OOOCO 
OOOCO 



77 777 
10440 
12174 
04621 
11062 
12171 
12170 



65610 +234664456377 



656 1 1 
65612 
65613 










12166 
12165 
12164 



77777 
12521 
64157 



PZE 



)016 



TXL 



OCT 



*017 



TXL 



OCT 



)019 



TXL 



OCT 



-*-l 




H73 




-ltt-*-l 




FSUBR,,-*-l 




-*~1, ,-*-2 




$EVC0N,,0 




PNAME,,-*-l 




-»-l 




-*-l 




234645247777 


COND 


-l,,-»-l 




SUBR, ,-*-l 




~*-l, ,-*-2 




CONS, ,2 




PNAME,,-*-l 




-»-l 




-«-l 




234645627777 


CONS 


~1,,~*-1 




SU8R, ,-*~l 




-*-l, ,-#-2 




CP1,,1 




PNAME,,-*-l 




-*-l 




-»-l 




234701777777 


CP1 



J020 



)021 



)PJ1 



-l,,-*-l 

SUBR,,-*~l 
-*-l»»-*-2 
TXL $C0PY,,1 



PNAME,,~*-1 
-*-l 
-»-l 
OCT 234647707777 

-lir»-l 
SUBR,,-*-l 
-*-l, ,-*-2 
TXL COUNT, ,0 

PNAMEi t -*-l 
-*-l 

-*-l 

OCT 234664456377 

-l,,-*-l 

APVALl,,-*-l 

-CURC1,,-*-! 



COPY 



COUNT 
CURCHAR 



LS098530 
LS098540 
LS098550 
LS098560 
LS098570 
LS098580 
LS098590 
LS098600 
LS098610 



LS098620 
LS098630 
LS098640 
LS098650 
LS098660 
LS098670 
LS098680 
LS098690 
LS098700 
LS098710 
LS098720 
LS098730 
LS098740 
LS098750 
LS098760 
LS098770 
LS098780 
LS098790 
LS098800 
LS098810 
LS098820 
LS098830 
LS098840 
LS098850 
LS098860 



LS098870 
LS098880 
LS098890 
LS098900 
LS098910 
LS098920 
LS098930 
LS098940 
LS098950 
LS098960 
LS098970 
LS098980 
LS098990 
LS099000 
LS099010 
LS099020 
LS099030 



■WWMMMW 
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65614 C 12163 11062 

65615 12156 12162 

65616 12160 12161 

65617 236451233021 

65620 OOOCO 12157 

65621 -117777777777 

65622 12155 10615 

BINARY CARD NO. LISP0398 

65623 OOOCO 64156 



65624 
65625 
65626 
65627 
65630 
65631 
65632 





c 
c 




c 





12153 
12152 
12150 
00000 
12147 
OOOCO 
OOOCO 



7 7777 
12521 
12151 
07466 
11062 
12146 
12145 



65633 +242162307777 



65634 
6563 5 
65636 
65637 
6564C 
65641 
65642 
65643 
65644 
65645 

65646 
65647 
6565C 



C 


-3 
C 






12143 
12142 
12140 
C00C2 
12137 
00000 
12135 
COOCO 
243126262 
+254523257 



77777 
10440 
12141 
14504 
11062 
12136 
12134 
12133 

551 

777 



C 
C 
C 



12131 
12130 
12126 







77777 

10440 
12127 



BINARY CARD NO. LISP0399 



65651 
65652 
65653 
65654 
65655 

65656 
65657 
6566C 
65661 
65662 
65663 
65664 
65665 

65666 
6566 7 
65670 
65671 



-3 



c 
c 



C00G1 
12125 
COOCO 
OOOCO 



13325 

11062 

■0 12124 

12123 



+243127316377 







-3 

c 

C 
C 



12121 
12120 
12116 

000C2 
12115 

COOCO 
COOCO 



77777 
10440 
12117 
14412 
11062 
12114 
12113 



243165312425 




G 





12111 
12110 
12105 

OOOCO 



77777 
11062 
12107 
12106 



)PJ16 



PNAME, ,-#-1 
-*-!»,-*- 5 
-*-l, ,-*-2 

BCD 1CURCHA 
-,#-1 

OCT 517777777777 

SPECAL,,-*-! 



-CURC 

-!,,-»- 1 

APVALl,,-*-l 
-*-l, ,-»-2 

H40 

PNAME, ,-*-! 

242162307777 



CASH 



PZE 



OCT 



BCD DASH 



IJ01 



TXL 



BC1 
OCT 



-l,,-*-l 
SSUBR, ,-*-l 
-*-l, ,-*-2 
DIFFER, ,2 

$PNAME,,-<*-l 

-*-2, ,~*-l 

-*-2 

1 ..DIFFER 

254523257777 



* 
)PJ19 



IJ02 



* 
)PJiO 



-l,,-*-l 
SUBR,,-*-l 
PZE -**-!,, -»-2 



TXL DIGIT,,! 

PNAMt, ,-*-l 

-**— 1 
OCT 243127316377 

-l,,-*-l 

$SUBR,,-*-l 
-**-l, ,-*-2 
TXL DIVIDE, ,2 

$PNAME,,-*-l 

BCI 1, DIVIDE 

PNAME, ,-*-l 
-*-i ♦•,-**- 3 
^*-l 



DIFFERENCE 
DIGIT 



DOLLAR 



LS099040 
LS099050 
LS099060 
LS099070 
LS099080 
LS099090 
LS099100 



LS099110 
LS099120 
LS099130 
LS099140 
LS099150 
LS099160 
LS099170 
LS099180 
LS099190 
LS099200 
LS099210 
LS099220 
LS099230 
LS099240 
LS099250 
LS099260 
LS099270 
LS099280 
LS099290 
LS099300 
LS099310 
LS099320 
LS099330 
LS099340 
LS099350 



LS099360 
LS099370 
LS099380 
LS099390 
LS099400 
LS099410 
LS099420 
LS099430 
LS099440 
LS099450 
LS099460 
LS099470 
LS099480 
LS099490 
LS099500 
LS099510 
LS099520 
LS099530 
LS099540 
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65672 244643432151 

65673 C 121C4 12521 

65674 COOCO 12103 

65675 OOOCO 07501 

65676 C 121C1 77777 

BINARY CARD NO. LISP0400 

65677 12100 10440 
65700 



65701 
6570 2 
65 70 3 
65704 
65705 

65706 
65707 
6571C 
65711 
65712 
65 713 
65714 
65715 
65716 
65717 

65 72 
65721 
65722 
65723 
65724 





-3 

C 

c 





12076 
000C4 
12075 
COOCO 
00000 



12077 
11646 
11062 
12074 
12073 



+246444477777 



C 

C 


—3 

c 




c 



12071 
12070 
12066 
COOCO 
12065 
OOOCO 
12063 
OOOCO 
2 54524 5 
+2477777 




C 

c 







c 



77777 
10440 
12067 
13261 
11062 
12064 
12062 
12061 



12 521 
77777 




C 
G 
C 

c 



12057 
12056 
12054 
COOCO 
12053 



77777 
12521 

12055 
07440 
11062 



BINARY CARD NO. LISP0401 

65725 C OOOCO 12052 

65726 COOCO 12051 

65727 +2 54626777777 



6573C 





12047 





77777 


65731 


C 


12046 





12521 


65 732 


c 


12044 





12045 


65733 


c 


OOOCO 





07520 


65734 





12043 





11062 


65735 





GOOCC 





12042 


65736 





COOCO 





12041 


65737 


+254651777777 


65740 


C 


12037 





777 77 


65741 





12036 





10440 


65 742 





12034 





12035 


65743 


-3 


00002 





16512 


65744 


C 


12033 


G 


11062 


65745 





00000 


C 


12032 


65746 





OOOCO 





12031 



s 
OMPOB 



BCD 1D0LLAR 

APVAL1,,-*-! 

H53 

-1 ,,-*-! 



SUBR,,-*-l 
-*-l, ,-*-2 
TXL DUMPXX ff 4 

PNAME, ,-*-l 
-*-l 

OCT 246444477777 

JPJ30 -l ff -*-l 

SUBR,,-*-l 
-*-l,,-*-2 
TXL ENORED,, 

PNAME,,-*-l 
-*-l 

-*~2,,-*-l 
~*-2 
BCI 1,EN0REA 
OCT 247777777777 

)PJ34 -l,,-*-l 

APVALl,,-*-l 
-*-l,,-*-2 
H12 
PNAME, ,-*-! 



— »-l 
OCT 254626777777 

)PJ35 -l t »-*-l 

APVALl,,-*-l 
-**~l»,-*-2 
H72 

PNAME tf -»-l 

-*-l 
OCT 254651777777 



>030 -l,,-*-l 

SL8R, ,-*-l 
~*-l» ,-*-2 
TXL EQP,,2 

PNAME, ,-*-l 

-*-l 

-*-l 



DUMP 
ENDREAD 



ENDREA 
D 

EOF 



BCD EOF 



LS099550 
LS099560 
L SO 995 70 
LS099580 
LS099590 
LS099600 



LS099610 
LS099620 
LS099630 
LS099640 
LS099650 
LS099660 
LS099670 
LS099680 
LS099690 
LS099700 
LS099710 
LS099720 
LS099730 
LS099740 
LS099750 
LS099760 
LS099770 
LS099780 
LS099790 
LS099800 
LS099810 
LS099820 
LS099830 
LS099840 



LS099850 
LS099860 
LS099870 
LS099880 
LS099890 
LS099900 
LS099910 
LS099920 
LS099930 
LS099940 
LS099950 
LS099960 
LS099970 
LS099980 
LS099990 
LS100000 
LS100010 
LS100020 
LS100030 
LS100040 
LS100050 



immmmmmmmmmim. 
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65747 +255077777777 



6575C 
65751 
65752 




C 

C 



120 27 
12026 
12024 



77777 
10440 
12025 



)E(vP 



OCT 255077777777 



-l,,-*-l 
SUBR, ,-*-l 
-*-l, ,-«-2 



EQ 



BINARY C 
65 75 
6575 
6575 
6575 
6575 
6576 
6576 
6576 
6576 
6576 
6576 
6576 
6576 



ARD NO. LISP 

3 -3 0O0C2 

4 12023 

5 C GOOOO 

6 COOOO 

7 255047777 

C 12017 

1 G 12016 

2 12013 

3 COOCO 

4 255062312 

5 C 12012 

6 C OOOCO 

7 OOOCO 



6577C 
65771 
65772 
65773 
65 774 
65775 
65776 



C 
C 


G 





120C7 
12006 
120C4 
00002 
120C3 
OOOCO 
OOOCO 



0402 
05300 
11062 
12022 
12021 

777 
77777 
11062 
12015 
12014 

745 
12521 
12011 
07441 

77777 

10440 
12005 
05225 
11062 
12002 
12001 



TXL 



VFD 



)PJ5 



)032 



65777 +255064214377 

6600C 11777 77777 

BINARY CARD NC. LISPC4C3 

66001 11776 C 10440 



EQPR0G,,2 
PNAME,, -*-l 

~*-l 

H18/EGP, 018/777777 EQP 
-l,,-*-l EQSIGN 

PNAME, ,-*-! 
-*-l, ,-*-3 

BCI 1, EQSIGN 

APVAL1, ,-*-l 

H13 



-l,,-*-l 
SUBR, ,-*-l 
->*-l , ,-*-2 
EQUAL, ,2 
PNAME, ,-*-l 
-*-l 

255064214377 



TXL 



OCT 



EQUAL 



1034 



-!,,-*-! 



SUBR,,-*-l 



66002 


11774 11775 






-«-l , ,-*-2 




66003 


-3 000 CI C 02 645 




TXL 


ERR0R1,,! 




66004 


11773 11062 






PNAME, ,-*-l 




6600 5 


C COOCO 11772 






-*-l 




66006 


OOOCO 11771 






~*-l 




66007 


+255151465177 




OCT 


255151465177 


ERROR 


6601G 


11767 C 77777 


)PJ4 




-l,,-»-l 


ERROR! 


66011 


11766 10440 






SU8R,,-*-l 




66012 


1L764 11765 




PZE 


-**-l, f -»-2 




66013 


-3 COOCO 13334 




TXL 


ER0R1, ,0 




66014 


11763 C 11062 






PNAME, ,-*-l 




66015 


COOCO 11762 






-*-l 




66016 


COOCO 11761 






-*-l 




66017 


255151465101 




BCD 


1ERR0R1 




66020 


11757 77777 


)PJ41 




-l,,-*-l 


ERROKSET 


66021 


11756 C 10440 






SUBR, ,-*-l 




66022 


11754 11755 






~*-l, ,-*-2 




6602 3 


-3 000C3 12551 




TXL 


ERRSET, ,3 





LS100060 
LS100070 
LS100080 
LS100090 
LS100100 
LS100110 



LS100120 
LS100130 
LS100140 
LS100150 
LS100160 
LS100170 
LS100180 
LS100190 
LS100200 
LS100210 
LS100220 
LS100230 
LS100240 
LS100250 
LS100260 
LS100270 
LS100280 
LS100290 
LS100300 
LS100310 
LS100320 
LS100330 
LS100340 
LS100350 



LS100360 
LS100370 
LS 100380 
LSI 00390 
LS100400 
LS100410 
LS100420 
LS 100430 
LSI 00440 
LS100450 
LS100460 
LS100470 
LS100480 
LS100490 
LS100500 
LS100510 
LS100520 
LS100530 
LS100540 
LS100550 
LS100560 



mm 
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66024 
66025 
66026 



G 
C 
C 



11753 
COOCO 
11751 



C 11062 
11752 
11750 



BINARY CARD NO. LISP0404 

66027 COOGC C 11747 

66030 255151465162 

66031 +256377777777 



66032 
66033 
66 034 
66035 
66036 
66037 
6604C 




G 

■e 

-3 




c 



11745 
1174 4 
11742 
G00C2 
11741 
COOCO 
GOO CO 



77777 
1G44G 
11743 
16521 
11062 
1174C 
117 37 



66041 +256521437777 



66042 
66043 
66044 
66045 
66046 
66047 
6605C 



C 





-3 

c 
c 





11735 
11734 
11732 
0OOC2 
11731 
000 CO 
GOOGO 



77777 

10440 
11733 
1705G 
11062 
11730 
11727 



66051 +256543316277 



66052 
66053 
66054 






c 



11725 
11724 
11722 



77777 
10440 
11723 



BINARY CARD NC. LISP0405 



66055 
66056 
66057 
66 06C 
66061 
66062 
66063 

66064 
66065 
66066 
66067 
6607C 
660 71 



-3 

C 




CO0C1 
11721 
COOGC 
11716 



C C3075 
11062 
11720 
C 11717 



256723316221 

COOCO C 11715 

224325777777 





c 

c 

-3 


c 



1 17 1 3 
11712 
1171C 

00001 
11707 

00000 



77777 

1C44C 
11711 
02650 
11062 
11706 



66072 00000 11705 

66073 256723316225 



66074 


c 


11703 





77777 


66075 





117G2 





11062 


66076 


c 


COOCO 


c 


11701 


66077 





000 GO 





11700 



66100 +256747517777 



BCI 

OCT 



1035 



TXL 



OCT 



)036 



TXL 



OCT 



1EXCA 



TXL 

BCI 

VFD 



PNAME, ,-*-l 
~*-l 

-*-2, ,-*-! 



-*-2 

1, ERRORS 
256377777777 

-l,,-*-l 

SUBR,,-*-l 

-*«-l,,-*-2 

EVAL,,2 

PNAME,, ~*-l 

-*-l 

-*-l 

256521437777 

-l,,-*-l 

$SUBR,,-*-l 
-*-l, ,-*-2 
$fcVLIS,,2 

$PNAME,,-*-l 

-*-l 
256543316277 

-1,,~*-1 
SUBR, ,-*-l 
~*-l, ,-*-2 



EXCABL,,1 
PNAME,, -*-l 
-*-l 

-*-l, ,-*-2 
ItEXCISA 
-*-l 

H18/BLE, 018/777777 



EVAL 



EVLIS 



EXCISABLE 



)EXCI 



-1, 



1 



TXL 



BCI 



SUBR, ,~*-l 
-*-l, ,-*-2 
EXCISE, ,1 
PNAME,, -*-l 
-**-l 
-*-l 
1, EXCISE 



EXCISE 



)037 



-1, ,-*-! 
PNAME, ,-*-l 
~*-l 
-*-l 
OCT 256747517777 



LS100570 
LS100580 
LS100590 



LS100600 
LS100610 
LS100620 
LS100630 
LS100640 
LS100650 
LS100660 
LS100670 
LS100680 
LSI 00690 
LS100700 
LS100710 
LS100720 
LS100730 
LSI 00740 
LS100750 
LS100760 
LS100770 
LS100780 
LS100790 
LS100800 
LS100810 
LS100820 
LS100830 
LS100840 



LS100850 
LSI 00860 
LS100870 
LS100880 
LS100890 
LS100900 
LS100910 
LS 100920 
LS 100930 
LS100940 
LS100950 
LSI 00960 
LS100970 
LS100980 
LS100990 
LS101000 
LS101010 
LS101020 
LS101030 
LS101040 
LS101050 
LS101060 
LS101070 



LISP 1.5 FGR SHARE DISTRIBUTION, MARCH 1965 
PERNANEN1 LIST STRUCTURE 



9/20/67 



PAGE 215 



I 66101 


C 11676 C 77777 


)038 




-l,,-*-l 


• 66102 


11675 10440 






SUBR, ,-*-! 


BINARY CARD NC. LISPG406 








• 6610 3 


116 7 3 11674 






-*-l,,-*-2 


66104 


-3 00002 14522 




TXL 


EXPT,,2 


66105 


11672 11062 






PNAME, ,-*-l 


• 66106 


G GOOCG 11671 






-*-l 


66107 


OOOCO 11670 






-*-l 


66110 


+256747637777 




OCT 


256747637777 


66111 


G 11666 77 777 


)04C 




-ln-*-l 


66112 


11665 G 11062 






PNAME, ,-*-! 


• 66113 


COCCO C 11664 






-*-l 


66114 


OOOCO 1166 3 






-*-l 


_ 66115 


+262567475177 




OCT 


262567475177 


66116 


11661 G 77777 


1041 




-u»-»-i 


m 6 611 7 


1166 C 110 62 






PNAME,, -*-l 


• 6612C 


OOOCO C 11657 






-*-l 


66121 


COOGO C 11656 






-«-l 


m 66122 


+263167777777 




OCT 


263167777777 


66123 


11654 77777 


mi 




-l,,-*-l 


66124 


11653 C 10440 






$SUBR,,-«~1 


• 6612 5 


11651 11652 






-*-l, ,-*-2 


66126 


-3 000C1 C 15467 




TXL 


FIXP, ,1 


^ 66127 


11650 C 11062 






$PNAME,,-**-l 


• 6613C 


OOOCC 11647 






-*-l 


BINARY CARD NC. LISP04C7 








• 66131 


C OOOCO 11646 






-*-l 


66132 


+263167477777 




OCT 


263167477777 


• 66133 


11644 77777 


)042 




-l,,-*-l 


66134 


11643 11062 






PNAME, ,-*-l 


66135 


OOOCO 11642 






-*-l 


• 66136 


OOOCO 11641 






-*-l 


66137 


+264346216377 




OCT 


264346216377 


• 6614C 


11637 77777 


1112 




-1, ,-*-l 


66141 


11636 10440 






$SUBR,,-*-l 


66142 


11634 C 11635 






-*-lt ,-*-2 


• 6614 3 


-3 000C1 C 15454 




TXL 


FLOATP,,! 


66144 


11633 C 11062 






$PNAME,,-*-l 


66145 


OOOCO 11632 






-*~1 


• 66146 


COGCO 11631 






~*-l 


66147 


2 64346216347 




BC I 


ltFLOATP 


• 6615C 


11627 77777 


)-043 




-lti-*-l 


6615 1 


11626 11062 






PNAME, ,-*-l 


66152 


OOOCC 11625 






-*-l 


• 66153 


OOOCO 11624 






-*-l 


66154 


+266264225177 




OCT 


266264225177 



EXPT 



FEXPR 



FIX 



FIXP 



FLOAT 



FSUBR 



LS101080 
LS101090 



LS101100 
LS101110 
LS101120 
LS101130 
LS101140 
LS101150 
LS101160 
LS101170 
LS101180 
LS101190 
LS101200 
LS101210 
LS101220 
LS101230 
LS101240 
LS101250 
LS101260 
LS101270 
LS101280 
LS101290 
LS101300 
LS101310 
LS101320 
LS101330 
LS101340 



LS101350 
LS101360 
LS101370 
LS101380 
LS101390 
LS101400 
LS101410 
LS101420 
LS101430 
LS101440 
LS101450 
LS101460 
LS101470 
LS101480 
LS101490 
LS101500 
LS101510 
LS101520 
LS101530 
LS101540 
LS101550 
LS101560 
LS101570 
LS101580 



HMMMMM 
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66155 

66156 



11622 
11621 



77777 
11062 



)044 



BINARY CARD NO. LISP0408 

6615 7 C 00000 11620 

66160 OOOCG 11617 

66161 266445215127 



66162 





11615 C 


77777 


66163 





11614 


1163C 


66164 





11612 


11613 


66165 


-3 


COOCO 


16316 


66166 





11611 


11062 


6616 7 





000 CO 


11610 


66I7C 





116C6 C 


11607 


66171 


266445236331 


66172 





000 CO 


11605 


66173 


-0 6 457 7777777 


66174 





116C3 


77777 


66175 


C 


11602 C 


10440 


66176 





11600 


11601 


66177 


-3 


OOOCO 


11014 


6620C 


c 


115 77 C 


11062 


66201 





00000 


11576 


66202 





OOOCO 


11575 


66203 


2 7254 5627044 



)045 



)046 





-l,,-*-l 




$HNAME,,-*-l 




-*-I 




-*-l 


BCD 


1FUNARG 




-l,,-*-l 




FSUBR,»-*-l 




-*~U,-*-2 


TXL 


$LAMP,,0 




PNAME,,-*-l 




-»■»— 1 




-*-l» f -*-2 


BCD 


1FUNCTI 




-*-l 


OCT 


464577777777 




-l,,-»-l 




$SUBR, ,-*-l 




-*-l,,-*-2 


TXL 


GENSYN!,, 




$PNAM£,,-*-l 




-#-1 




-*-l 


BCD 


1GENSYM 



FUNARG 



ON 



66204 115 73 777 77 



)231 



-l,,-*-l 



LS101590 
LS101600 



LS101610 
LS101620 
LS101630 
LS101640 
LS101650 
LS101660 
LS101670 
LS101680 
LS101690 
LS101700 
LS101710 
LS101720 
LS101730 
LS101740 
LS101750 
LS101760 
LS101770 
LS101780 
LS101790 
LS101800 
LS101810 
LS101820 
LS101830 
LS101840 
LS101850. 



BINARY CARD NC. LISP0409 



66205 

66206 

66207 -3 

662 10 

66211 



11572 
11570 
000C2 
11567 
COOCO 



10440 
11571 
12762 
11062 
11566 



66212 COOCO 11565 

66213 +27256377 7777 



66214 
66215 
66216 
66217 
66220 
66221 
66222 









-3 







1156 3 
11562 
11560 
00001 
11557 
00000 
OOOCO 



77777 
11630 
11561 
17410 
11062 
11556 
11555 



66223 +274677777777 



66224 
66225 
66226 
66227 
66230 
66231 
66232 









-3 







11553 
11552 
1155C 
0O0C2 
1154 7 
OOOCO 
11545 



77777 
10440 
11551 
15434 
11062 
11546 
11544 



1,047 



SLBR,,-*-l 
-#-1, ,~*-2 

TXL C$GET f ,2 

PNAME,,~*-1 

-*-l 
OCT 272563777777 

-!,,-*- 1 



GET 



$FSUBR, f -*-l 
-*-l, ,-*-2 



TXL 



113 



GOGOGO, ,1 
PNAME, ,-*-l 

OCT 274677777777 



~l,,-*-l 

$SUBR,,-«-l 

-»-l,,-*~2 

GRTRTP,,2 

$PNAME ,»-*-! 

-*-l 

-*-2, ,-*-! 



GO TO GO FSUBR 



GO 



TXL 



LS101860 
LS101870 
LS101880 
LS101890 
LS101900 
LS101910 
LS 101920 
LS101930 
LS101940 
LS101950 
LS101960 
LS101970 
LS101980 
LS101990 
LS102000 
LS102010 
LS102020 
LS102030 
LS102040 
LS102050 
LS102060 
LS102070 
LS102080 
LS102090 



wi 
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BINARY CARD NC. LISP0410 

66233 OOOCC 11543 

66234 275125216325 

66235 -114777777777 



66236 


C 


11541 





77777 


66237 


G 


1I54G 





1G440 


6624 C 


C 


11536 





11537 


66241 


-3 


00001 





07246 


66242 


C 


11535 





11062 


66243 


C 


COOCO 


Ci 


11534 


66244 





COO CO 





11533 


66245 


314563255145 


66246 





11531 





77777 


66247 





11530 





11630 


6625C 


c 


11526 





11527 


66251 


-3 


COOCO 





163 32 


66252 





11525 





11062 


66253 


c 


OOOCO 





11524 



66254 C OOOCC 11523 

66255 -032122254377 



66256 


C 


11521 





77777 


6625 7 





115 2 


C 


11062 


6626C 


c 


OOOCO 





11517 



1052 



}054 



)055 



-*-2 
BCI l.GREATE 
OCT 514777777777 

-l,,-*-l 

SUBR,,-*-l 

-**-l, ,-*-2 
TXL INTRN1,,1 

PNAME, ,-»-l 

-«-l 

-*-l 
BCD 1INTERN 

~l,,-*-l 
FSUBR,,-*-l 
-**-lf ,-*-2 
TXL LABP, ,0 

PNAME, ,-*-l 

-**-l 

-*-l 

OCT 432122254377 

-l,,-*-l 

PNAME, ,~*-l 

r-*-l 



GREATERP 



LABEL 



LS102100 
LS102110 
LS102120 
LS102130 
LS102140 
LS102150 
LS102160 
LS102170 
LS102180 
LS102190 
LS102200 
LS102210 
LS102220 
LS102230 
LS102240 
LS102250 
LS102260 
LS102270 
LS102280 
LS102290 
LS102300 
LS102310 
LS102320 
LS102330 
LS102340 



BINARY CARD NO, L1SP0411 

66261 COOCO C 11516 

66262 4321442212421 



66263 
66264 
6626 5 
66266 
66267 
6627C 





c 


-3 

■o 
c 



11514 
115 13 
11511 
000 C 2 
11510 
OOOCO 



77777 

10440 
11512 
76703 
11062 
11507 



66271 COOCO 11506 

66272 -032147777777 



66273 
66274 
66275 
66276 
66277 
6630C 
66 301 
66 302 
66303 
66304 

66 30 5 
66306 



11504 77777 
■0 11503 10440 
11501 11502 

-3 00OG2 13745 
C 11500 0, 11062 
OOOCO O 11477 
11476 11475 
COOCO 11474 
432526636230 

+312663777777 









11472 
11471 



77 777 
■0 10440 



BCD 1LAMBDA 



# 
)LAP 



TXL 



OCT 



PVV1 



TXL 



BC I 
OCT 



LI 4 



-l,,-«-l 

SUBR, ,-«~l 
-*-!,, -*-2 
C$LAP,,2 
PNAME, ,-*-l 
-*-l 

432147777777 

-l,,-*-i 
SUBR,,-*-l 
-*-lt ,-*-2 
LSHIFT,,2 

PNAME,, -*-l 

~*-2, ,-*-l 
-*-2 
l.LEFTSH 
312663777777 

-l,,-*-l 

$SUBR,,-*-l 



LAP 
LEFTSHIFT 



LS102350 
LS102360 
LSI 02 370 
LS102380 
LSI 02390 
LS102400 
LS102410 
LS 102420 
LS102430 
LS102440 
LS102450 
LS102460 
LS102470 
LS102480 
LS102490 
LS102500 
LS102510 
LS102520 
LS102530 
LS102540 
LS102550 
LS 102560 
LS102570 
LS102580 
LS102590 
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BINARY CARD NO. LISP0412 



66307 
6631G 
66311 
66312 
66313 
66314 

66 315 
66316 
66317 
66320 
66 321 
66322 
66323 
66324 




-3 

G 

C 




11467 

000C2 
11466 
COOCO 
OOOCO 



11470 
15444 
11062 
11465 
11464 



•032562624777 



G 
G 

-3 
G 





11462 
114 61 
114 57 
COOCO 
11456 
000 CO 
COOCO 



77777 
11630 
11460 
17 050 
11062 
11455 
11454 



-G33162637777 



66 32 6 
66327 
66330 
66 331 
66332 
66333 







-3 

C 





11451 
11447 
OOOCl 
11446 
GOO GO 
00000 



10440 
11450 
13 30 7 
11062 
11445 
11444 



66334 -033163255177 



)057 



66325 11452 77777 )PJ17 



-*-l, ,-*-2 
TXL LESSTP,,2 

SPNAMEt t -*-l 

-*-l 
OCT 432562624777 

-1,,.~*-1 
FSUBR, ,-*-l 
-*~1, ,-*-2 
TXL EVLIS,,0 

PNAMt,,-*-l 
-*-l 

OCT 433162637777 



-l,,-*-l 
SUBR,,-*-l 
-*«-l» ,-*-2 
LITER, ,1 
PNAME, t -*-l 

OCT 433163255177 



LESSP 



LIST 
LITER 



PZE 
TXL 



LS102600 
LS102610 
LS102620 
LS102630 
LS102640 
LS102650 
LS102660 
LS102670 
LS102680 
LS102690 
LS102700 
LS102710 
LS102720 
LS102730 
LS102740 
LS102750 
LS102760 
LS102770 
LS102780 
LS102790 
LS102800 
LS102810 
LSI 02820 
LS102830 
LS102840 



BINARY CARD 



66335 
66 33 6 
6633 7 
66 34C 
66341 
66342 
66343 
66344 

66345 
66346 
66347 
66350 
66351 
66352 
66353 
66354 

66355 
66356 
66357 
6636C 
66361 
66362 









-3 



o 
c 

-0 

c 
c 


-3 

G 
C 
4 

C 

C 

G 

-3 

C 
C 



NO. LISP0413 
11442 77777 
11441 10440 
11437 C 11440 
COOCO 77722 
11436 11062 
OOOGO 11435 
OOOCO 11434 

34621247777 



J234A 



11432 
114 31 
11427 
OOOCO G 
11426 C 
COOCO 
OOOGO 
34627214524 



777 77 
U630 
11430 
13664 
11062 
11425 
11424 



1142 2 
114 21 
11417 

OOOCO 
11416 

OOOCO 



77777 

11630 
11420 
13650 
11062 
11415 



TXL 



OCT 



JPJ37 



TXL 



BCL 



>PJ36 



TXL 



-l,,-»-l 




SUBR,.,-*-l 




-*-l, ,-*-2 




LOADER, ,0 




PNAME,,-*-l 




~*-l 




-*-l 




434621247777 


LOAD 


-1,,~*-1 


LOGAND 


FSUBR, ,-*-l 




-*-l, ,~*-~2 




LOGAND,, 




PNAME, f -»-i 




-*-l 




-*~1 




I, LOGAND 




-l,t-»-l 


LOGOR 


FSUBR,,-*-! 




-*-l,,-*-2 




LOGOR,, 




PNAME,,-*-l 




-*»-! 





LS102850 
LS102860 
LS102870 
LS102880 
LS102890 
LS102900 
LS102910 
LS102920 
LS102930 
LS102940 
LS102950 
LS102960 
LS102970 
LS102980 
LS102990 
LS103000 
LS103010 
LS103020 
LS103030 
LS103040 
LSI 03050 
LSI 03060 
LS103070 
LS103080 



MKMPM 
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BINARY CARD NC. LISR0414 



66 363 
66364 

66365 
66366 
66 36 7 
6637C 
66 371 
66372 
66373 
66374 

66375 
66 3 76 

663 7 7 
66400 
66401 
66402 
66403 
66404 

6640 5 
66406 
66407 
6641C 



OOGCO C 11414 
•034627465177 



C 


-3 

G 
G 



11412 
11411 
114C7 
GOO CO 
114 6 

oooco 

G00C0 



77777 
11630 
11410 
13700 
11062 
11405 
11404 



434627674651 




C 

c 





114C2 
114 CI 
11376 

COO CO 



77777 
11062 
11400 
11377 



-034721517777 

■0 11375 12521 








c 

G 
•3 



COO CO 
OOOOG 

11372 
11371 
1136 7 

00-00 2 



11374 
07522 

7 7777 

10440 
11370 

10440 



~«-l 
OCT 434627465177 

)PJ38 -l,,-*-l 

FSUBR,,-*-l 
-*-l, ,-*-2 
TXL L0GXOR,,0 

PNAME,,-*-! 
-*-l 
-*-l 
BCI 1,L0GXCR 

)PJ7 -l,,-*-l 

PNAME,, ~*-l 
-*-l, ,-*-3 
-*-l 

OCT 434721517777 
APVALL,,-*-l 
-*~1 

H74 

1065 -l,,-*-l 

SUBR, ,-»-! 
~*-l,,-*-2 
TXL MAPCAR,,2 



BCD LOGOR 
LOGXOR 



LPAR 



BCD LPAR 



LS103090 
LS103100 
LS103110 
LS103120 
LS103130 
LS103140 
LS103150 
LS103160 
LS103170 
LS103180 
LS103190 
LS103200 
LS103210 
LS103220 
LS103230 
LS103240 
LS103250 
LS103260 
LS 103270 
LS103280 
LS103290 
LS103300 
LS103310 
LS103320 
LS 103330 



BINARY CARO NO. LISP0415 

66411 G 11:366 11062 

66412 OOOCO 11365 

66413 C OOOCO 11364 

66414 -042147777777 



PNAME, ,-*~l 

-»-l 
OCT 442147777777 



MAP 



66415 


G 


11362 C 


7777 7 


1Q69B 


-l,,-*-l 


66416 





11361 


10440 




SLBR,,-»-l 


66417 





113 5 7 


11360 




-*-!,, -*-2 


6642 


-3 


0O0G2 


10465 


TXL 


MAPC0N,,2 


66421 





11356 


11062 




PNAME, ,-*-l 


66422 


G 


GOO CO 


11355 




-*-l 


66423 


G 


000 GG 


11354 




-*-l 


66424 


442147234645 


BCD 


1MAPC0N 


66425 





113 5 2 


77777 


1069 A 


-l,,-«-l 


66426 


C 


11351 


10440 




SUBR, ,-*-~l 


66427 





11347 


11350 




-*-i, ,-*-2 


66430 


-3 


000C2 


04756 


TXL 


MAPLIS,,2 


66431 





113 46 


11062 




PNAME,, -*-l 


66432 


G 


COOCO 


11345 




~*-l 


66433 





11344 


11343 




-*-2,,-*-l 


66434 





OOOCO 


11342 




-*-2 


66435 


442147433162 


BCD 


1MAPLIS 


66436 


-237777777777 


OCT 


637777777777 



MAPLIST 



LS103340 
LSI 03350 
LS103360 
LS103370 
LS103380 
LS103390 
LSI 03400 
LSI 03410 
LS103420 
LS103430 
LS103440 
LS103450 
LS103460 
LSI 03470 
LSI 03480 
LS103490 
LS103500 
LS103510 
LS103520 
LSI 03530 
LS103540 
LS103550 
LS103560 
LS103570 
LS103580 
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BINARY CARD NO. LISP0416 



W 66437 


11340 77777 


6644C 


11337 11630 


66441 


11335 11336 


• 66442 


-3 G0OC2 15 151 


66443 


113 34 11062 


66444 


COOCO 11333 


W 66445 


C OOOCO 11332 


66446 


-042167777777 


• 66447 


11330 77777 


66450 


11327 11630 


^ 66451 


11325 11326 


• 66452 


-3 C00C2 15143 


66453 


G 113 24 11062 


66454 


G COOCO 11323 


• 66455 


COOGO 11322 


66456 


-C43145777777 


• 66457 


G 11320 77777 


6646C 


G 11317 10440 


m 66461 


C 11315 11316 


• 66462 


-3 C0OC1 15625 


66463 


G 11314 11062 


m 66464 


G OOOCO 11313 


BINARY CARD NO. LISP0417 


66465 


OOOCO 11312 


• 66466 


-043145646277 


6646 7 


C 11310 777 77 


W 66470 


G 113C7 10440 


66471 


11305 11306 


66472 


-3 G00G1 15501 


• 66473 


C 113C4 G 11062 


66474 


G COOCO 113C3 


66475 


G GOOCG 11302 


• 66476 


4431456^46247 


• 66477 


11-300 77777 


6650C 


C 11277 10440 


66501 


11275 C 11276 


• 66502 


-3 OOOCO 13140 


66503 


11274 11062 


66504 


G COOCO 11273 


• 66505 


OOOCO 11272 


66506 


-044245214477 


• 66507 


C 11270 77777 


6651C 


11267 10440 


_ 66511 


11265 11266 


• 66512 


-3 000C2 10515 



117 



118 



)070 



1116 



)PJ26 



1071 



-1,,~*-1 

$FSUBR,,-*-l 
-*-l, ,-*-2 
TXL MAX, ,2 

$PNAME,,-*-l 

-»■*— 1 
OCT 442167777777 

-l,,-*-l 
SFSUBR, ,--*-l 
-*-l, ,-*-2 
TXL MIN,,2 

$PNAME,,-*-l 

-*-l 
OCT 443145777777 

-l,,-*-l 

$SUBR,,-*-l 
-*-l,,-*-2 
TXL MNSPRG,,1 

$PNAME,r~*-l 
-*-l 



-*-l 
OCT 443145646277 

-li »-«-l 
$SUBR, ,-*-l 
-*-l,,-*-2 
TXL MINUSP,,1 

$PNAME, t -*-l 
-*-l 

8C1 1,MINUSP 



-l,,-*-l 
SU8R, ,-*-l 
-*-l, .,-»-■ 2 

TXL MKNAM,, 

PNAM£,,~*~1 

-#-1 

-*-l 

OCT 444245214477 



-lif-*-l 

SLBR,,~*-1 

-*-l,,-*-2 

NCGNC2 



MAX 



MIN 



MINOS 



MKNAM 



BCD MKNAM 



TXL 



LS103590 
LS103600 
LS103610 
LS103620 
LS103630 
LS103640 
LS103650 
LS103660 
LS103670 
LS103680 
LSI 03690 
LSI 03700 
LS103710 
LS103720 
LS 103730 
LS103740 
LS103750 
LSI 03760 
LS103770 
LSI 03780 
LS103790 
LS103800 
LS103810 
LS103820 



LSI 03830 
LS103840 
LS103850 
LS103860 
LS103870 
LS103880 
LS103890 
LS103900 
LS103910 
LS103920 
LS103930 
LS103940 
LS103950 
LS103960 
LSI 03970 
LS103980 
LS103990 
LS104000 
LS104010 
LS104020 
LS104030 
LS104040 
LS 104050 
LS104060 
LS104070 
LS104080 



mi 



mm 
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BINARY CARD NC. LISP0418 

66513 11264 11062 

66514 C COOCC C 11263 

66515 OOOCO 11262 

66516 -G52346452377 



66517 
66520 
66521 
66522 
66523 
66 524 
66525 
66526 

66527 
6653C 
66531 
66532 
66533 
66534 
66 535 
66536 

66537 
66540 



C 

c 
c 

-3 
C 

C 



11260 
11257 
11255 

C00C1 
112 54 

OOOCO 
GOOCO 



77777 

10440 
11256 
10770 
11062 
11253 
11252 



-0 5466 3 7 77 77 7 



C 
C 

c 

-3 



c 





1125C 
11247 
11245 
000 CI 
11244 
GOOCO 
OOOOC 



77 77 7 
10440 
11246 
16311 
11062 
1124 3 
11242 



-0 56443437777 



C 





11240 
112 37 



C 777 77 
1C440 



BINARY CARD NC. LISP0419 



66541 
66542 
66543 
66544 
66545 
66 54 6 
66547 
66550 

66551 
66552 
66553 
66554 
66555 
66556 
66557 



11235 
-3 0O0C1 
11234 
GOOCO 
112 3 2 
OOOCO 
456444222551 
-0 7 777 7 7 77777 



11236 
15446 
11062 
11233 
11231 
11230 



C 


-3 






11226 
11225 
1122 3 
COO CO 
11222 
00000 
OOOCO 



77777 
10440 
11224 
13062 
11062 
11221 
11220 



6656C -056444462277 



66561 

66562 C 
6656 3 

66564 

66565 



11216 
11215 
11213 
OOOCO 
11212 



C 77777 
C 12 521 
11214 
13 lb 5 
11062 



)074 



)075 



1 1 13 



)PJ25 



J079A 



66566 OOOCO 11211 





PNAME, ,-*-l 




-«-l 




-*-l 


OCT 


452346452377 




-1 *,.-*- 1 




$SUBR,,-*-l 




-*-l f ,-*~2 


TXL 


NCTS, t 1 




$PI^AME,,-*-l 




-*-l 




-*-l 


OCT 


454663777777 




-l,,-*-l 




SLBR,,-*-l 




-*-l# |-*-2 


TXL 


NULLP,,1 




PNAME, ,-*-l 




-#-1 




-*-l 


OCT 


456443437777 




-ltt-*-l 




$SUBR,,-*-l 




-*-l, ,-*-2 


TXL 


NUMBRP,,1 




$PNAME f ,-*-l 




~**-l 




-*-2, ,-*-! 




-*-2 


BCI 


It NUMBER 


OCT 


477777777777 




-1 ,,-*-! 




SUBR, ,-*-l 




-*-l, ,-*-2 


TXL 


NUMOB,, 




PNAME,, -*-l 




-*-l 




-*-l 


OCT 


456444462277 




-l»,-*-l 




APVALl,,-*-l 




-*-l , ,-*-2 




-08LIST 




PNAME,, -*-l 




-*-l 



NCCNC 



NOT 



NULL 



NUMBERP 
NUMOB 



BCD NUMOB 



LS104090 
LS104100 
LS104U0 
LS104120 
LS104130 
LS104140 
LS104150 
LS104160 
LS104170 
LS104180 
LS104190 
LS104200 
LS104210 
LS104220 
LS104230 
LS104240 
LS104250 
LS104260 
LS104270 
LS104280 
LS104290 
LS104300 
LS104310 
LS104320 
LS104330 



LS104340 
LSI 04350 
LS104360 
LS104370 
LS104380 
LS104390 
LS104400 
LS104410 
LS104420 
LS104430 
LSI 04440 
LSI 04450 
LS104460 
LS104470 
LS104480 
LSI 04490 
LS104500 
LS104510 
LS104520 
LS104530 
LS104540 
LS104550 
LS104560 
LS104570 



^» 
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BINARY CARD NO. LISPG420 

66567 COOCO 11210 
66570 462243316263 



66571 
66572 
66573 
66574 
66575 

66576 
66577 
6660C 
66601 
6 660 2 
6660 3 
66604 



C 
C 

c 

G 



112C6 
112C5 

oooco 
coocc 



77777 
11062 
C 11204 
11203 



JPJ28 



-062363214377 



C 

c 

c 

-3 



c 
c 



112C1 
112CC 
11176 
CO0C1 
11175 
COOCC 
COOCC 



77777 
10440 
11177 
15534 
11062 
11174 
11173 



119 



66605 -064525477777 



66 606 
66607 
666 1C 
66611 
66612 
66613 
66614 



C 
C 

-3 

C 




11171 
11170 
11166 
C00C1 
1116 5 
OOOCO 
COOCC 



77777 
10440 
11167 
13321 
11062 
11164 
11163 



JPJ18 



BINARY CARD NO. LISP0421 
66615 464723302151 



-*-l 
BCD 10BLIST 

-l,,-*-l 

PNAME,,-*~1 
-#-1 
**-l 
OCT 462363214377 

-l,,-*-l 
$SUBR, ,-*-! 
-»-i, ,-*-2 

TXL ONEPttl 

$PN AM E, ,.->*- 1 
-*-l 

OCT 464525477777 

-1 ,,-*-! 

SUBR,,-*-l 
PZE -*-!,, -*-2 
TXL OPCHAR,,! 

PNAME, ,-*-l 



BCD 1CPCHAR 



CBLIST 
OCTAL 

BCD OCTAL 



CNEP 
CPCHAR 



66616 


C 11161 77777 


10 79 




-1, ,,-*-! 




66617 


11160 11630 






FSUBR, ,-*-l 




6662 C 


11156 11157 






-*-l» ,-»-2 




6662 1 


-3 GOOGG 16463 




TXL 


$evor,,o 




66622 


11155 11062 






$PNAME, ,-*~l 




66623 


G 00000 11154 






-,*-l 




66624 


OOOCO 11153 






-*-l 




66625 


-065177777777 




OCT 


465177777777 


CR 


66626 


11151 77777 


"it 

)PJ24 




-l,,-*-l 


PACK 


66627 


11150 10440 






SUBR, ,-*-l 




6663C 


11146 11147 






-*-l^,-*-2 




66631 


-3 00GC1 13023 




TXL 


PACK, ,1 




66632 


11145 11062 






PNAME,,-*-l 




66633 


OOOCO 11144 






-*-l 




66634 


COOCC 11143 






-*-l 




66635 


-072123427777 




OCT 


472123427777 


BCD PACK 


66636 


G 11141 77777 


1080 




-U,-*-l 




6 6637 


11140 10440 






SU3R,,-*-l 




66640 


11136 11137 






-*-l, ,-*-2 




66641 


-3 00002 10402 




TXL 


PAIR,, 2 




66642 


C 11135 11062 






PNAME, ,-*-! 





LS104580 
LSI 04590 
LS104600 
LS104610 
LS104620 
LSI 04630 
LS104640 
LS104650 
LS104660 
LS104670 
LS104680 
LS104690 
LS104700 
LS104710 
LS104720 
LS104730 
LS 104740 
LS104750 
LS104760 
LS104770 
LS104780 
LS104790 
LS104800 
LS104810 
LS104820 



LS104830 
LS104840 
LS104850 
LSI 04860 
LS104870 
LS104880 
LS104890 
LS 104900 
LS104910 
LS104920 
LS104930 
LS104940 
LSI 04950 
LS104960 
LS104970 
LS104980 
LS104990 
LS105000 
LS105010 
LS105020 
LS105030 
LS105040 
LS105050 
LS105060 
LS105070 
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BINARY CARD NO. LISP0422 

66643 OOOCC 11134 

66644 COOCC C 11133 

66645 -C72131517777 



66646 
66647 
66650 
66651 
66652 
6665 3 
66654 
66655 

66656 

6665 7 

6666 C 
66661 
66662 
66663 
66664 
66665 

66666 
6666 7 
6667C 







c 

-3 



G 
C 



11131 

1 11 3 
11.126 

COO CO 
11125 

COO GO 
GOOOO 



77777 
10440 
11127 
02305 
11062 
11124 
U123 



-072164622577 





G 





11121 
11120 
11115 

OOOCO 



77777 
11062 
11117 
11116 



47255 1314624 
11114 12521 
G OOOCO 11113 
C GOO CO 07461 




G 
C 



11111 
111 10 
11106 



777 7 7 

10440 
1110 7 



BINARY CARD NO. LISP0423 



66671 -3 

6667 2 G 

66673 

66674 



00000 
1110 5 

00000 
000 00 



01701 

11062 

■0 11104 

11103 



66675 -074322777777 



66676 
66677 
66700 
66 701 

66702 
66703 
66704 
66705 

66706 
66707 
66710 
66711 
66712 
66713 
66714 
66 715 



C 



C 

-3 


G 




11101 
11100 
11076 

C0OC2 
11075 
GOOCC 
OOOCO 



77777 
11630 
11077 
15127 
11062 
11074 
11073 



-074364627777 

11071 77777 

11070 11062 

11065 11067 

OOOCO C 11066 
-074364626277 

11064 12521 

OOOCO 11063 

OOOCO 07 446 



OCT 



-»-l 

-•-I 
472131517777 



J234C 



TXL 



OCT 



}PJ9 



12 34B 



)081 



* 
)PJ11 



PAIR 



1 



» » 



— *- 



SU8R, ,-*-! 

-*-l» ,-*-2 

PAUSEF,,0 

PNAME, t -*-l 

-»-l 

-*-l 

472164622577 

PNAMEt t -*-l 



PAUSE 



PERIOD 





-*-l , ,-*-3 




-«-l 


BCD 


1PERI0D 




APVALl,,-*-l 


PZE 


-*-l 




H3 3 




-It -|-*-l 




SUBR,,~*-1 




~*-l, ,~*-2 


TXL 


PSHLDB,,0 




PNAME, ,-*-l 




-*-l 




-*-l 


OCT 


474322777777 




-l,,-*-l 




$FSUBR,,-*-l 




-*-lt ,-*-2 


TXL 


ADDP»,2 




$PNAME,,-*-l 




-*-l 




-#-1 


OCT 


474364627777 




-l,,-*-l 


PZE 


PNAME, ,-*-l 




— *— 1 , ,-*— 3 




-*-l 


OCT 


474364626277 




APVALl,,-*-l 


PZE 


-*-l 




H20 



PLB 



PLUS 

PLUS SIGN (PLtlSS) 

BCD P-LUSS 



66716 11061 77777 



3083 



-1,,-*~1 



LS105080 
LS105090 
LS105100 
LS105110 
LS105120 
LS105130 
LS105140 
LS105150 
LS105160 
LS105170 
LS105180 
LS105190 
LS105200 
LS105210 
LS105220 
LS105230 
LS105240 
LS105250 
LS105260 
LS105270 
LS105280 
LS105290 
LS105300 
LS105310 
LS105320 



LS105330 
LS105340 
LS105350 
LS105360 
LS105370 
LS105380 
LS105390 
LS105400 
LS105410 
LS105420 
LS105430 
LS105440 
LS105450 
LS105460 
LS105470 
LS105480 
LS105490 
LS105500 
LS105510 
LS105520 
LS105530 
LSI 05540 
LS105550 
LS105560 
LS105570 
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BINARY CARD NO.. LISP0424 

66717 1106C 11062 

66720 COOCO C 11057 

66721 COOCO 11056 

66722 -074521442577 



66723 
66724 
66725 
66726 
66727 
66730 
66731 



C 

C 



-3 



c 





11054 
11053 
110 51 
00001 
11050 
COOCO 
OOOCC 



77777 
10440 
11052 
C5446 
11062 
11047 
11046 



66732 -075131450177 



6 6733 
66734 
66735 
66736 
66737 
66740 
6 6 741 









-3 




■o 



11044 
11043 
1 10 4 1 
C00C1 
1104 
COOCO 
COOCO 



77 77 7 

10440 
11042 
05342 
11062 
11037 
11036 



66742 -075131456377 



66743 
66744 



110 3 4 
11033 



77777 
1044C 



PNAME, ,-*-l 

-«-l 
OCT 474521442577 

)PJ33 ~l,,-*-l 

SUBRt »-*-l 
~*-l, ,-*-2 

TXL $PRIN1,,1 

PNAME,, -*-l 
-»-l 

OCT 475131450177 

J087 -l,,-*-l 

SUBR,,-*-l 
-*-l, »-*-2 
TXL PRINT, ,1 

PNAME, ,~#-l 
-*-X 

OCT 475131456377 

lPJ3y -l,,-*-l 

SUBR, ,-*-! 



PNAME 
PR INI 



BCI PRINI 



PRINT 
PRINT2 



LS105580 
LS105590 
LS105600 
LS105610 
LS105620 
LS105630 
LS105640 
LS105650 
LS105660 
LS105670 
LS105680 
LS105690 
LS105700 
LS105710 
LS105720 
LS105730 
LS105740 
LS105750 
LS105760 
LS105770 
LS105780 
LS105790 
LS105800 
LS105810 
LS105820 



BINARY CARD NO. LISPC425 



66745 
66746 
66747 
6675C 
66751 



C 
-3 

■G 

C 



11031 
000 01 
11030 

00000 

coooc 



11032 
05656 
11062 
11C27 
11026 



66752 475131456302 



66753 
66754 
66755 
66756 
66757 
66760 
6 6761 
66 762 

66763 
66764 
66765 
66766 
66767 
6677C 
66771 
6677 2 



11024 
1102 3 
11021 
COOCO 
11020 
COOCO 
OOOCC 



7777 7 
11630 
11022 
17242 
11062 
11017 
11016 



-075146277777 



C 

G 



-3 

C 
G 
C 



11014 
11013 
11011 
0OOC1 
11010 
COOCC 
00000 



777 77 
10440 
11012 
06137 
11062 
110 07 
11006 



-076445233077 



-*-l, ,~*-2 
TXL PRINT2,,1 

PNAME,, -*~1 

BCI 1,PRINT2 

1089 ~l,,-*-l 

FSUBR,,-*-l 
-*-l,,-*~2 

TXL INTER,, 

PNAME, ,-«-l 

OCT 475146277777 

IJ05 -l,,-*-l 

$SU6R,,-*-l 
-*-l, ,-*-*2 
TXL $PUNCH,,1 

$PNAME,,-»~1 

-*~1 
OCT 4764452330 77 



PROG 



PUNCH 



LS105830 
LS105840 
LS105850 
LS105860 
LS105870 
LS105880 
LS105890 
LS1059Q0 
LS105910 
LS105920 
LS105930 
LS105940 
LS105950 
LS105960 
LS105970 
LS105980 
LS105990 
LS106000 
LS106010 
LS106020 
LS106030 
LS106040 
LS106050 
LS106060 
LS106070 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
PERMANENT LIST STRUCTURE 



9/20/67 



PAGE 225 



BINARY CARD NO. LISP0426 



66773 
66774 
66775 
66776 
66777 
6700C 
6 7001 



C 

c 
c 

-3 

C 
C 




110C4 
110C3 
110C1 
00003 
11000 
OOOCO 
000 CO 



77777 
10440 
11002 
10631 
11062 
10777 
10776 



)090 



67002 -075140^77777 



67003 
67004 
67005 
67006 
67 00 7 
6701C 
67011 



C 



c 

-3 




c 



10774 
10773 
10771 

ooooo 

10770 
000 GO 
OOOCC 



77777 
11630 
10772 
16260 
11062 
10767 
10766 



67012 -106446632577 



67013 
67014 
67015 
67016 
67017 
67020 







C 

—3 






10764 
10763 
10761 
C00C2 
10760 
00000 



77777 
10440 
10762 
14421 
11062 
10757 



BINARY CARD NC. L1SP0427 

67021 10756 10755 

67022 COOCC 10754 

67023 506446633125 

67024 -0 56377777777 



67025 





107 52 





77777 


67026 





10751 


c 


10440 


67027 





10747 





10750 


67030 


-3 


OOOCO 





06560 


67031 


C 


10746 





11062 


67032 





00000 





10745 



67033 OOOCO 10744 

67034 -112521247777 



67035 
67036 
67037 
67040 
67041 
67042 
67043 
67044 

67045 
67046 









-3 







10742 
10741 
107 37 
000 CI 
10736 
OOOCO 
OOOCO 



77777 

10440 
10 74 
15634 
11062 
10735 
10734 



112523314777 




G 



10732 
107 31 



77777 

10440 



)094 



IJ03 



-l,,-*-l 

SU8R,,-*-l 

-'♦-It j-*- 2 
TXL APROP, ,3 

PNAME, ,-#-1 

~*-l 

-*-l 
OCT 475146477777 

-1 „,_«-! 

FSUBR, t -*-l 

-»-l, ,-*-2 
TXL CARP,,0 

PNAME, ,-*-l 

-*~1 

-»-l 
OCT 506446632577 

~l,,-*-l 

$SUBR, t -*-l 
-*-l, ,-*-2 
TXL QU0TEN,,2 

$PNAME,,-*-l 



PROP 



QUOTE 



BCI 

OCT 



)096 



TXL 



OCT 



1 1 18 



TXL 



OCT 



12 340 



-*-2, ,-*-! 
-*-2 
l.QUOT'IE 
456377777777 

-l,,-*-l 
SUBR,,-*~1 
-*-l» ,-*-2 
READ,, 
PNAME, ,-*-l 
-~*-l 
-*~1 
512521247777 

-1, ,-#-1 
$SUBR,,-*-l 
-#-1, ,~*-2 
RCPPRG.tl 

$PNAME,,-*-l 

-*-l 

-*-l 

512523314777 

-l,,,-*-l 
SUBR,,-*~1 



QUOTIENT 



READ 



RECIP 



LS106080 
LS106090 
LS106100 
LS106110 
LS106120 
LS106130 
LS106140 
LS106150 
LS106160 
LS106170 
LS106180 
LS106190 
LS106200 
LS106210 
LS106220 
LS106230 
LS106240 
LS106250 
LS106260 
LS106270 
LS106280 
LS106290 
LS106300 
LS106310 



LS106320 
LS106330 
LS106340 
LS106350 
LS106360 
LS106370 
LS106380 
LS106390 
LS106400 
LS106410 
LS106420 
LS106430 
LS 106440 
LS106450 
LS106460 
LS106470 
LS106480 
LS106490 
LS106500 
LS106510 
LS106520 
LS106530 
LS106540 
LSL06550 
LS106560 
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BINARY CARD NC. L1SP0428 



67047 


10727 10730 




— #- 


-l,,-»-2 




67050 


-3 00001 03312 


TXL 




RECLAM.,1 




67051 


10726 11062 




PNAME, ,-*- 1 




67052 


00000 10725 




— *- 


-1 




67 053 


10724 10723 




— *- 


-2, ,-»-l 




67054 


00000 10722 




_#_ 


-2 




67055 


512523432131 


BCD 


1RECLAI 




67056 


-047777777777 


OCT 


447777777777 


RECLAIM 


67057 


"ft 

1072 77777 IJ04 






-1,,~*-1 




67060 


10717 10440 






$SUBR,,-*-l 




67061 


107 15 C 10716 






-«-l, ,-*-2 




6706 2 


-3 000C2 14415 


TXL 




RE MA IN,, 2 




67063 


10714 11062 






$PNAME, ,-*-l 




67064 


COO CO 10713 






-*-l 




67065 


C 10712 10711 






-*-2, ,-*-l 




67066 


000 GO 10710 






-*~2 




67067 


512544213145 


BCL 




1, REMAIN 




6707C 


+242551777777 


OCT 




242551777777 


REMAINDER 


67071 


107C6 77777 }250 






-l,,-*-l 




67072 


107C5 10440 






SUBR, ,-*-l 




67073 


C 10703 10704 






-*-l, ,-*-2 




67074 


-3 000 02 10 534 


TXL 




REMPRP,,2 




RY CARD NC» LISP0429 










67075 


10702 11062 






PNAME,,-*-! 




67076 


00000 10701 






~*-l 




67077 


C 106 7 7 IQ70C 






-*~l,,-*~2 




67100 


5 125444 75146 


BCD 


1REMPR0 


REMPRO 


67101 


000 CO 106 76 






~*~1 




67102 


-077777777777 


OCT 




477777777777 


P 


67103 


10674 77777 ) 129 






-l,,-*-l 




67104 


10673 10440 






SUBR, ,-*-l 




6 7105 


10671 10672 






-*-i, ,-*-2 




67106 


-3 OOOGO 01166 


TXL 




RESTRO,,0 




67107 


106 70 11062 






PNAME,, -*-l 




67 110 


COOCG 10667 






-**— 1 




67111 


00000 10666 






-*-l 




67112 


512562 6346 51 


BCI 




i,RESTOR 


RESTGR 


67113 


It 

10664 77777 )I02 




-1 


, ,-#-1 




67114 


1066 3 10440 






$SUBR,,-*-l 




67115 


10661 10662 






-*-l,,-*-2 




67116 


-3 00001 17404 


TXL 




RETURN,,! 




67117 


10660 G 11062 




PNAME, ,-*-l 




6712 


00000 1065? 




— *- 


-1 




67121 


OOOGO 10656 




— *- 


-1 




6 7 12 2 


512563645145 


BCD 


1RETURN 


RETURN 



LS106570 
LS106580 
LS106590 
LS106600 
LS106610 
LS106620 
LS106630 
LS106640 
LS106650 
LS106660 
LS106670 
LS106680 
LS106690 
LS106700 
LS106710 
LS106720 
LS106730 
LS106740 
LS106750 
LS106760 
LS106770 
LS106780 
LS106790 
LS106800 



LS106810 
LS106820 
LS106830 
LS106840 
LS 106850 
LS106860 
LS106870 
LS106880 
LS106890 
LS106900 
LS106910 
LS106920 
LS106930 
LS106940 
LS106950 
LS106960 
LS106970 
LS106980 
LS106990 
LS107000 
LS107010 
LS107020 
LS107030 
LS107040 
LS 107050 
LS107060 
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BINARY CARD NC. LISP0430 



67L23 
67124 
6 712 5 
67126 
67127 
67130 
67131 






c 

-3 


c 

c 



10654 
10653 
106 5 I 
OOOCC 
10650 
OOOCC 
OOOCC 



7777 7 

10440 
10652 
10775 
11062 
10647 
10646 



67132 514743212321 



67133 

67134 
67135 
67136 
67137 
67140 
67141 





G 

•0 

-3 



c 
c 



10644 
10643 
1064 1 

00000 
10640 
OOOCC 

oooco 



■0 









77777 

10*40 
1064 2 
11004 
11062 
10637 
10636 



67142 514743212324 



67143 
67144 
6714 5 
67146 

6714 7 
67150 

BINARY CAR 
67151 
67152 

6715 3 
67154 
67155 
67156 
67157 
6716C 
67161 
67162 

6716 3 
67164 
67165 
67166 
67167 
67170 
67171 

67172 

6717 3 
67174 
67175 
67176 



106 3 4 7777 7 
10633 11062 
106 3 10632 
G OOOCO 106 31 
•114721517777 
10627 12521 



D NC. L I 
OOOCO 
OOOCO 



SP0431 
10626 
0746 2 



C 
C 



-.3 



C 





10624 
106 23 
10621 

OOOCO 
10620 
COOCO 
OOOCO 



77777 

10440 
10622 
01161 
11062 
10617 
10616 



6 2216 5257777 



10614 
C 106 13 
00000 
C 106 1C 
6247252 
OOOCO 
4377 7 77 



77777 
11062 
10612 
10611 

33121 
1060 7 

777 77 











10605 77777 
106C4 11062 
10601 10603 
OOOCO 10602 
5 44446652577 



HOC 



HOI 



-l,,-*-l 
iSlBR, ,-*-l 
-*-l , ,-*-2 
TXL RPLACA,,0 

PNAME, ,-*-l 
-*-l 

BCD 1RPLACA 

-1, ,-*-l 
SU8R,,-*-l 
-»-l, ,-*-2 
TXL RPLACD,,0 

PNAME, ,~*-l 

-*-l 
BCD 1RPLACD 



)PJ8 



PZE 



OCT 



-l,,-*-l 

PNAME,, ~*-l 

-*-l,,-*-3 

-*-l 

514721517777 
APVAL1,,-*~1 



-*-l 
H34 



RPAR 



BCD RPAR 



« 

) 128 



TXL 



VFU 



* 
)SPCL 



BCI 

VFD 



)MQV 



VFD 



-l,,-*-l 
SUbR,»-*~l 
-**-l,,-*-2 
SAVEXX,,0 

PNAME,, -*-l 

-*-l 

-#-l 

H24/SAVE, 012/7777 SAVE 

-1, ,-*-l 

PNAME,,-*-l 

-*-l 

-**-!, ,-*-2 

If SPEC I A 

-*-i 

H6/L, 030/7777777777 

~l,,-*-l 

PNAME,,-*-! 
~*-l, ,-*-3 

H30/*M0VE, 06/77 *MGVE 



SPECIAL 



LS107070 
LS 107080 
LS107090 
LS107100 
LS107110 
LS107120 
LS107130 
LS107140 
LS107150 
LS107160 
LS107170 
LS107180 
LS107190 
LS107200 
LS107210 
LS107220 
LS107230 
LS107240 
LS107250 
LS107260 
LS 107270 
LS107280 
LS107290 
LS107300 



LS107310 
LS107320 
LS107330 
LS107340 
LS107350 
LS107360 
LS107370 
LS107380 
LS107390 
LS107400 
LS107410 
LS107420 
LS107430 
LS107440 
LS107450 
LS107460 
LS107470 
LS107480 
LSI 07490 
LS107500 
LS107510 
LS107520 
LS107530 
LS107540 
LS107550 



mmmmmm—m 
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BINARY CARD 
67177 
6720C -0 



67201 
67202 
67 203 
67204 
67205 
67206 
67207 
6721C 
67211 

6 7212 
67213 
67214 
67215 
67216 
67217 
67220 



67221 

67222 G 

67223 C 

67224 -3 



NO. LI 
106(30 
OOOGC 

10576 
105 7 5 
105 70 
10572 

45125 6 
000 CO 

5 77 77 7 
1056 7 
OOOCC 

10565 
10564 
10561 
000 CO 
443316 
10560 
OOOCC 

10556 
10555 
10553 
000 03 



SP0432 
10413 
57 721 




C 


C 



77777 
11062 
10574 
10573 
36451 

10571 
77777 
10413 
57717 



77777 
11062 
10563 







C 10562 
26377 

10413 

5772C 

77777 

10440 

10554 

10662 



BINARY CARD NO. LISP0433 

67225 10552 11062 
67 22 6 GOOCO C 10 551 
67227 G OOOCC 10550 
6723C 622162624623 



67231 
67232 
67 233 
67234 
67235 
6 7236 
67237 
67240 

67241 
67242 
67243 
67244 
6724 5 
67246 
67247 
6725C 

67251 
67252 




C 

c 

■3 



c 

c 



10546 
10545 
10543 
00004 
10542 
COO CO 
OOOCC 



77777 

1G440 
10544 
05144 
11062 
10541 
10540 



622521512330 



C 

C 



■3 

c 






10536 
10535 
10533 

COO 02 
10532 
OOOCO 
OOOCC 



77777 
10440 
10534 
16413 
11062 
10531 
10530 



•222563777777 

10526 77777 
C 10525 11630 



)RTRN 



)LST 



U06 



1236 



1107 



J 108 



SYM, ,-*-l 

MZE -C$MOV 

PNAME, ,-*-! 
-**-l, ,-*-5 
~*-l, ,-*-2 
BCI 1,*RETUR 

VFD H6/N, 030/7777777777 

SYM,,-*~1 
MZE -C$RTRN 

-l,,-*-l 

PNAME,, -*-l 
-*-l, ,-*-3 

VFD H30/*LIST, 06/77 

SYM,,-»-l 
MZE -CSLSTR 

SUBR, ,-*-! 
~*-li ,-*-2 
TXL APSS0C3 



PNAME, ,~*-l 

BCD 1SASS0C 

-1, ,-**-! 
SU8R,,-*-l 
-*-l,,-*-2 
TXL SEARCH ,,4 

PNAME, ,-*-! 

-*-l 
BCD 1SEARCH 

-l,,-*-l 
$SUBR,,-*-l 
-*-l ».,-«- 2 
TXL SETP,,2 

$PNAM£,,-»-i 
-*-l 
-*-l 
OCT 622563777777 

-1,,~*~1 
$FSU8R,,-*-l 



SEARCH 



SET 



LS107560 
LS107570 
LS107580 
LS107590 
LS107600 
LS107610 
LS107620 
LS107630 
LSI 07640 
LS107650 
LS107660 
LS107670 
LS107680 
LS107690 
LS107700 
LS107710 
LS107720 
LS107730 
LS107740 
LS107750 
LSI 07760 
LS107770 
LS107780 
LS107790 
LS107800 



LS107810 
LS107820 
LS107830 
LS107840 
LS107850 
LS107860 
LS107870 
LS107880 
LS107890 
LS107900 
LS107910 
LS107920 
LS107930 
LS107940 
LS107950 
LSI 07960 
LS107970 
LS107980 
LS107990 
LS108000 
LS108010 
LS108020 
LS108030 
LS108040 
LS108050 



mmmmmm 
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BINARY CARD ND. LISP0434 



67253 





10523 


c 


10524 




-*-l , t -*-2 


67254 


-3 


COOCC 


c 


16356 


TXL 


SETQP, ,0 


67255 


C 


10522 





11062 




PNAME,,- 


67 256 


C 


COO GO 





10521 




-«-l 


67257 


c 


ooo ce 





10520 




-«-l 


6726C 


-222563507777 


OCT 


622563507777 


67261 





10516 





77777 


)PJ14 


-l,,-*-l 


67262 


C 


10515 


c 


11062 




PNAME,,~*-1 


67263 


c 


10512 





10514 




-*~1, ,-*-3 


67264 


c 


COOCO 





10513 




-*-l 


67265 


-224321623077 


OCT 


624321623077 


67266 





10511 


c 


12521 




APVAL1,,-*-! 


67267 


C 


COOCC 


c 


10510 




-*-l 


6727C 





COOCC 





07507 




H61 


67271 


c 


10506 





77777 


)109 


-w,-»-i 


67272 


c 


10505 





10440 




SU8R»,-*-l 


67273 


c 


10503 





10504 




-*-l, ,-*-2 


67274 


-3 


COOCC 





04533 


TXL 


SPEAK, ,0 


67 275 


C 


10502 


c 


11062 




PNAME, ,-*-l 


67276 


G 


COOCC 





10501 




-*-l 


67277 





OOOCO 





10500 




-*-l 


67300 


-224725214277 


OCT 


624725214277 



SETQ 
SLASH 

BCD SLASH 



SPEAK 



BINARY CARD NO. LISP0435 



67 301 
67302 
67303 
67304 




C 





10476 
10475 
00000 
COOCO 



77777 
11062 
10474 
10473 



ill! 



67305 -226346477777 



67306 
67307 
673 1C 
67311 
67312 
67313 
67314 
67315 

67316 
6731? 
67320 
67321 
6732 2 
67323 
67324 
67325 
67326 



104 71 777 77 
10470 11062 
C 10465 10467 
C COOCO 10466 
-226321517777 
C 10464 12521 
C OOOCO 10463 
COOOO 07502 



)PJ15 



-l,,-»-l 

PNAME,,~*-1 
~*-l 

OCT 626346477777 



-l,,-*-l 

PNAME,,-*-l 

-*-lt ,-*-3 
-*-l 

626321517777 

APVALl,,-*-l 

-*-l 

H54 



OCT 



STAR 



BCD SiTAR 







c 

.-■a 

-J 







10461 
10460 
10456 
OOOCO 
10455 
OOOCC 
10452 



77777 
1G440 
10457 
13212 
11062 
10454 
1G453 



626321516351 

OOOOC 10451 



)PJ21 PZE 

PZE 
TXL 



8CD 



-lt,-*~l 
SUBR,,-*-l 
-*-li ,-»-2 
STREAD,,0 
PNAME, i-*-l 
-*-l 

-*-lj»-*-2 

1STARTR 

-»-l 



STARTR6A0 



LS108060 
LS108070 
LS108080 
LS108090 
LS108100 
LS108L10 
LS108120 
LS108130 
LS108140 
LS108150 
LS108160 
LS108170 
LS108180 
LS108190 
LS108200 
LS108210 
LS108220 
LS108230 
LS108240 
LS108250 
LS108260 
LS108270 
LS108280 
LS108290 
LS108300 



LS108310 
LS108320 
LS108330 
LS108340 
LS108350 
LS108360 
LS108370 
LS108380 
LS108390 
LS108400 
LS108410 
LS108420 
LS108430 
LS108440 
LS108450 
LS108460 
LS108470 
LS108480 
LS108490 
LS108500 
LS108510 
LS108520 
LS108530 
LS108540 
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BINARY CARD NO. LJSP0436 
67327 +252124777777 



6733C 
67331 
67332 
67333 
67334 
67335 
6 7 336 
67337 

6734C 
67341 
67342 
67343 
67344 

67345 
6734 6 
67347 
6735C 
67351 
67352 
67353 



G 
C 
C 

-3 
C 


e 



10447 
10446 
10444 

CO0C1 
10443 
000 CO 
COOCO 



-226422017777 



77777 
10440 
1044 5 
15431 
11C62 
10442 
10441 



G 
C 
C 





10437 
10436 
000 CO 
OOOGO 



-226422517777 



77777 

11062 
10435 
10434 







c 

-3 

c 



■o 



10432 
10431 
10427 
C00C2 
10426 
OOOGO 
GOOCG 



77777 
10440 
10430 
10275 
11062 
10425 
10424 



67354 626422433162 



BINARY CARD NO;. LISP0437 



67355 
67356 
6 7 357 
67360 
67361 

6736 2 
67363 
67364 

67365 
67366 
67 367 
67370 
67371 

6737 2 
67373 
67 374 
67375 
67376 
67377 
6740G 
6740 1 



C 

G 



■3 

G 






10422 
10421 
10417 
G00C3 
10416 
COOCO 

oooco 



77777 

10440 
10420 
10217 
11062 
10415 
10414 



-226422626377 



C 
C 

c 
c 



10412 
10411 

00000 

coooo 



77777 
11062 
10410 

10407 



-227044777777 





c 
c 

-3 

c 
c 





10405 
104G4 
104C2 

0000 1 
104C1 
GOOCO 
OOOGO 



77 77 7 

10440 
10403 
77432 
11062 
1040.0 
10377 



6 2 7044632122 



OCT 252124777777 

1115 -l,,-*-l 

$SUBR,,-*~1 
-*-l, ,-*-2 
TXL SUbl,,l 

$PNAME,,~*-1 

OCT 626422017777 

1113 -l,,-*-l 

PNAME,,-*-l 
-*-l 
~*-l 
OCT 626422517777 

-l,,-*-l 

SUBR,,-*~1 

-**-l,,-»-2 
TXL SUBLIS t .2 

PNAM£,,-*~1 

-*-l 

^*-l 
BCD 1SUBLIS 



SUB1 



SUBR 



3114 



)SYM 



6740 2 10375 777 77 



1115 -l,,->*-l 

SUBR,,-*~1 
-*-i,,-*~2 
TXL SU8ST, ,3 

PNAME, ,-*-! 
-*-l 

-*~1 
OCT 626422626377 

PNAME, ,-*-l 

-»*-l 
OCT 627044777777 

-l,,-*-l 

SU8R»,-*-l 

-*-l»,-*-2 
TXL SYMTAB,,1 

PNAME, ,-*-l 

-*-l 

-«-l 
BCI 1,SYMTAB 

TAB -!,,-•-! 



SUBST 



SYM 



)I36 



SYMTAB 



LS108550 
LS108560 
LS108570 
LS108580 
LS108590 
LS108600 
LS108610 
LS108620 
LS108630 
LS108640 
LS108650 
LS108660 
LS108670 
LS108680 
LSI 08690 
LS108700 
LS108710 
LS108720 
LS108730 
LS108740 
LS108750 
LS108760 
LS108770 
LS108780 
LS108790 
LS108800 



LS108810 
LS108820 
LS108830 
LS108840 
LS108850 
LS108860 
LS108870 
LS108880 
LS108890 
LS108900 
LS108910 
LS108920 
LS108930 
LS108940 
LSI 08950 
LS108960 
LS108970 
LS108980 
LS108990 
LS109000 
LS109010 
LS109020 
LS109030 
LS109040 
LS109050 



mm 
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BINARY CARD NO. LISPC438 



6740 3 
67404 
67405 
67406 
67407 
6741C 







-3 

C 
C 





10 3 74 
10372 

CG0C1 
10371 

ooocc 

GOOCC 



10440 
10373 
05765 
11062 
10370 
10367 



67411 632122777777 



67412 
67413 
67414 
67415 
67416 
67417 
6742C 






-3 
C 

C 



10365 
10364 
10362 
COOCG 
10361 
GOOCC 
nnnrn 



77777 
10440 
10363 
06 026 
11062 
10360 
10357 



)PJ23 



67421 6 325514 75131 



TXL 



VFD 



PZE 
TXL 



BCD 



SUBR, ,-*-l 
-*-l, ,-*-2 
TABTAB,, 1 

PNAME,, -*-l 
-*-l 

H18/TAB,018/777777 

-l,,-*-l 
SUBR,,-*-l 
-**-l» ,-*-2 

TERPRI ,,0 

PNAME, ,-*-l 

-*-l 

-*-l 

1TERPRI 



TAB 



TERPM 



67422 
67423 
6742 4 
67425 
67426 
6742 7 
6743C 







G 

-3 


G 




10355 
10354 
10352 
COOCG 
10351 
GOGCO 
COO GO 



77 7 77 
1C440 
1035 3 
01767 
11062 
10350 
10347 



1122 



BINARY CARD NO. LISPG439 
67431 -233144257777 



~l,,-»-l 

SUER,,-*-l 
-*-l,,-*-2 
TXL $T1ME,,0 

PNAME,,-*-! 
-*-l 

r-*-l 



OCT 633144257777 



67432 





10 3 45 77 7 77 


■» 
)I34 




-It 


,-*-! 


67433 


C 


10344 10440 






SUBR,,-*-l 


67434 


c 


10342 10343 






_*_ 


•l,,-*-2 


67435 


-3 


CGOCO 01755 




TXL 


$TIME1,,0 


674 36 





10 341 11062 






PNAME, ,-*-l 


67437 





CGOCC 10340 






— #- 


1 


6744C 


c 


COOOO 10337 






->*- 


1 


67441 


-233144250177 




OCT 


633144250177 


67442 


C 


1033 5 77777 


1124 




-1, 


,-*-l 


67443 


G 


10334 1163G 








SFSUBR, ,-*-! 


67444 


G 


103 32 C 10 333 








-*-lt ,-*-»2 


6 744 5 


-3 


C00C2 15135 




TXL 




MULT, ,2 


67446 


C 


10331 G 11062 








$PNAME,,-*-l 


67447 


c 


GOOCC 10330 








-*-l 


6745C 





GOOCC 10327 








-»*— 1 


67451 


-233144256277 


•fc 


OCT 




633144256277 


67452 


C 


10325 77777 


)213 






-l,,-*-l 


67453 


G 


103 24 11062 








$PNAME,,-*-l 


67 454 





COOCO 10323 








~»-l 


67455 


C 


COO CO 10322 








-#-l 


67456 


635121232577 




VFO 




H30/TRACE,06/77 



TIMES 



LS109060 
LS109070 
LS109080 
LS109090 
LS109100 
LS109110 
LS109120 
LS109130 
LS109140 
LS109150 
LS109160 
LS109170 
LS109180 
LS109190 
LS109200 
LS109210 
LS109220 
LS109230 
LS109240 
LS109250 
LS109260 
LS109270 
LS109280 
LS109290 



LS109300 
LS109310 
LS109320 
LS 109330 
LS109340 
LS109350 
LS109360 
LS109370 
LS109380 
LS 109390 
LS109400 
LS109410 
LS 109420 
LS109430 
LSI 09440 
LSI 09450 
LS109460 
LS109470 
LS109480 
LS109490 
LS109500 
LS109510 
LS109520 
LS109530 
LS109540 
LS109550 



LISP 1.5 FUR SHARE DISTRIBUTION, MARCH 1965 
PERMANENT LIST STRUCTURE 



9/20/67 



PAGE 232 



BINARY CARD NO. LISP0440 



6 745 7 
67460 
67461 
67462 
67463 
67464 
67465 





c 


-3 


C 




103 20 
10317 
10315 
000 CI 
10314 
GOOGO 
GOOCO 



77777 
1044C 
10316 
11136 
11062 
10313 
10312 



) 130 



67466 637047253145 

67467 C 10310 77777 
6747C G 103C7 C 1G440 

67471 C 103C5 10306 

67472 -3 60001 15703 

67473 G 103C4 11062 

67474 Q CCOGO 10303 

67475 103G2 10301 

67476 GOOGO C 10 300 

67477 635121232523 
6750C -066445637777 



67501 G 
67 502 C 
67503 
6 7504 -3 



10276 
10275 
10273 

GOOGO 



77777 
10440 
10274 
04643 



BINARY CARD NO. LISP0441 



67505 
67506 
67507 
6751 G 
67511 
67512 

67513 
6 7514 
67515 
67516 
67517 
67520 
67521 
67522 

67523 
67524 
67525 
67526 
67527 
67530 
67531 
67532 



C 
G 
C 




10272 

COO 00 
102 70 
00000 



11062 

102 71 

10 267 

10266 



644523466445 
-2377777777 77 



10264 
10263 
10261 
C00G1 
10260 
GOOCG 
COO CO 



77777 
10440 
10262 
13353 
11062 
10257 
10256 



6 4454 7212 342 









•3 


G 





10254 
1025 3 
10251 
00001 
10250 
CGOCO 
GOOCO 



77777 

10440 
10252 
04044 
11062 
10 247 
10246 



)I35 






J 127 



) P J 31 



* 

) 133 



6 5255122:4662 





-l,,-*-l 




SUBR,,-*-l 




-*-l, f -*-2 


TXL 


TIMEST,,1 




PNAME,, -*-l 




-»-l 




-*-l 


BCI 


l.TYPEIN 




-It »-«-l 




SUBR,,-»-l 




-*-l,,-*-2 


TXL 


TCNTM3,,1 




PNAME, ,-*-l 




-*-l 




-»-2» ,-*-l 




-*-2 


BCI 


It TRACEC 


OCT 


466445637777 




-l,,-*-l 




SUBR*,-*-l 




-*-l,,-*-2 


TXL 


UNCONTtiO 




PNAME, ,-*-l 




-*~1 




-^«-2, i-*-l 




~*-2 


BCD 


1UNC0UN 


OCT 


637777777777 




~l,,-*-l 




SUBR,,-*-l 




-*-l, ,-*-2 


TXL 


UNPACK,, 1 




PNAME, t-*-i 




-*-l 




~»~l 


BCI 


1, UNPACK 




-l,,-*-l 




SUBR,,-*-l 




-**-l,,-*-2 


TXL 


GCTALK,,1 




PNAME,, -*-l 




-*-L 




^«-l 


BCI 


l f VERB'OS 



TYPEIN 



TRACECOUNT 



UNCOUNT 
UNPACK 



VERBOS 



LS109560 
LS109570 
LS109580 
LS 109590 
LS109600 
LS109610 
LS109620 
LS109630 
LS109640 
LS109650 
LS109660 
LS109670 
LS109680 
LS109690 
LS109700 
LS109710 
LS109720 
LS109730 
LS109740 
LSI 09750 
LS109760 
LS109770 
LS109780 
LS109790 
LS109800 



LS109810 
LS109820 
LS109830 
LS109840 
LSI 09850 
LS109860 
LS109870 
LS109880 
LS109890 
LS109900 
LS109910 
LS109920 
LS109930 
LS109940 
LS109950 
LS109960 
LS109970 
LS109980 
LS109990 
LS110000 
LS110010 
LS110020 
LS110030 
LS110040 
LS110050 
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BINARY CARD NO. LISP0442 








• 67533 


C 102 44 777 77 


1110 




-l,,-*-l 


67534 


10243 10440 






$SUBR,,-*-l 


^ 67535 


102 41 10 242 






-*-l, ,-*-2 


• 67536 


-3 00001 15510 




TXL 


ZER0P,,1 


67537 


10240 11062 






$PNAME,,-*-l 


^ 6754C 


OOOGO 10 2 37 






-»#-! 


• 67541 


OOOOO 10236 






~*-l 


67542 


-312551464777 


* 


OCT 


712551464777 


67543 


10234 77777 


* 

)140 




-l,,-*-l 


67544 


10233 1044C 






$SU3R, ,-*-l 


W 67545 


C 10231 10232 






-*-l, ,-*-- 2 


67 546 


-3 000 01 02047 




TXL 


W$TAPES,*1 


6 7 547 


10230 11062 






PNAME, ,-*-l 


• 67550 


OOOGO 10227 






^*-l 


6 7 551 


COOCO 10226 






-*-l 


^ 67552 


632147257777 


yt 


VFD 


H24/TAPE, 012/7777 


67553 


C 10224 77777 


)141 




-1,,-*~1 


67554 


C 10223 10440 






SSUBR, ,-*-l 


• 67555 


10221 10222 






-*-l, ,-*-2 


67556 


-3 00001 02075 




TXL 


W$REK, ,1 


6755 7 


102 2 11062 






PNAME,,-*-! 


• 67 560 


OOOOO 10217 






-*-l 


BINARY CARD NO. LISP0443 








• 67 561 


GOOCO 10 216 






-*-l 


67562 


5 12566314524 




BCI 


1, REWIND 


• 67563 


10214 77777 


■It 

) 142 




-l,,-*-l 


67564 


10213 10440 






$SUBR,,-*-l 


67565 


10211 10212 






-*~l,,-*-2 


• 67566 


-3 00002 02147 




TXL 


W$MPRT,,2 


67567 


10210 11062 






PNAME, ,— *-l 


67570 


C COOCO 10207 






-*-l 


• 67571 


G OOOCO 1C206 






,-#-1 


67572 


444751314563 




BCI 


l.MPRINT 


• 67573 


C 102G4 77777 


)143 




-l,,-*-l 


67574 


10203 10440 






$SUBR,,-*-l 


67575 


G 102CI 10202 






-*-!,,-*- 2 


• 67 576 


~3 000C1 02156 




TXL 


K$MRD,,1 


6757 7 


G 10200 11062 






PNAME,,— *-l 


^ 67600 


OOOOO 10177 






-*-l 


• 67601 


OOOOO 10176 






-*-l 


67602 


445125212477 




VFD 


H30/MKEAD»0&/77 


• 67603 


10174 777 77 


)14 5 




-l,,-*-l 


67604 


10173 10440 






$SUBR )T -*-l 


6760 5 


10171 10172 






-*-l, ,-*-2 


• 67606 


-3 00001 02244 




TXL 


V<$SPACE,,i 



ZEROP 



LSI 10060 
LS110070 
LS110080 
LSI 10090 
LS110100 
LS110110 
LS110120 
LS110130 
LS110140 
LS110150 
LS110160 
LS110170 
LS110180 
LS110190 
LS110200 
LS110210 
LS110220 
LSI 10230 
LS110240 
LS110250 
LS110260 
LS110270 
LSI 10280 
LSI 10290 
LS110300 



LS110310 
LS110320 
LSI 10330 
LS110340 
LS110350 
LS110360 
LSU0370 
LS110380 
LS110390 
LSU0400 
LS110410 
LS110420 
LS110430 
LS110440 
LSI 10450 
LSI 10460 
LS110470 
LS110480 
LS110490 
LS110500 
LS110510 
LS110520 
LS110530 
LS110540 
LS110550 
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BINARY CARD 


NO. LISPC444 






67607 





10170 11062 




PNAME, ,-*-l 


6761C 


C 


OOOCC 10167 




-*-l 


67611 


c 


COOCO 10166 




-*-l 


67612 


624721232577 


VFU 


H30/SPACE, 06/77 


67613 





10164 77777 ) 144 




-l,,-*-l 


67614 


C 


10163 1C44C 




$SUBR, ,-*-l 


67615 


c 


10161 10162 




-*-l t ,-*-2 


67616 


-3 


OOOCO 02 257 


TXL 


W$EJECT,, C 


67617 





10160 11062 




PNAME, ,-*-l 


67620 


c 


COOCO 10157 




-*-l 


67621 





00000 10156 




-*-l 


6762 2 


254125236377 


VFD 


H30/EJECT, 06/77 


6762 3 


C 


10154 77 777 1146 




-1, ,~*-l 


67624 





10153 11630 




$FSUBR,,-*-i 


67625 





10151 10152 




-»-l,,-*-2 


67626 


-3 


COOCO C 12 345 


TXL 


EVALQT, ,0 


67627 





10150 11062 




PNAME, ,-*-! 


67630 





OOOCC C 10147 




-*-l 


67631 


c 


10146 10145 




-*-2,,-*-l 


67632 


c 


OOOCC 10144 




~*-2 


67633 


256521435064 


BCL 


UEVALQU 


67634 


466325777777 

* 


VFD 


H18/0TE, 018/777777 


BINARY CARD NO. LISP0445 






676 3 5 





10142 77777 1147 




-l,,-»-l 


6 76 36 





10141 10440 




$SUBR,.,-*-l 


6 7637 


c 


10137 C 10140 




-*-l , ,-*~2 


6764C 


-3 


00CC1 02126 


TXL 


BACKSP, ,1 


67641 


c 


10136 11062 




PNAME,, -*-l 


67642 


G 


OOOCC 10135 




-*-l 


6764 3 





10134 10133 




-*-2,,-*-l 


67644 





COOCO C 10132 




-*~2 


67645 


222123426247 


BCL 


1, BACKSP 


6 7646 


212325777777 


VFD 


H18/ACE, 018/777777 


67647 


C 


10130 77777 ) 149 




-l,,-*-l 


6765 C 





10127 1163C 




$FSUBR,,-*-l 


67651 





1012 5 10126 




-#-l,,-*-2 


67652 


-3 


COOCO 02272 


TXL 


BACTRA, ,0 


6 7653 


c 


10124 C 11062 




PNAME,,-*-l 


67654 


c 


OOOCO 10123 




-*-l 


67655 





10122 10121 




-*-2,,-*-l 


67656 


G 


COO 00 101 20 




-*-2 


67657 


222123426351 


8CI 


l.BACKTR 


67660 


+212325777777 

M. 


OCT 


212325777777 


67661 





10116 77777 )150 




-l,,-*-l 


67662 


c 


10115 1044C 




$SU8R,,-*-l 



LS110560 
LS110570 
LS110580 
LS110590 
LS110600 
LS110610 
LS110620 
LS110630 
LS110640 
LSI 10650 
LS110660 
LSI 10670 
LSH0680 
LS110690 
LS110700 
LS110710 
LS110720 
LS110730 
LS110740 
LS110750 
LS110760 
LS110770 
LS110780 
LS110790 
LS110800 



LSU0810 
LS110820 
LS110830 
LS110840 
LS110850 
LS110860 
LS110870 
LSU0880 
LS110890 
LS110900 
LS110910 
LS110920 
LS110930 
LS110940 
LS110950 
LS110960 
LSI 10970 
LS110980 
LS110990 
LS111000 
LS111010 
LSI 11020 
LS111030 
LS111040 



WJJK 
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BINARY CARD NO. LISPC446 

67663 10113 10114 



67664 
67665 
67666 
67667 
67670 



-3 
C 





C00C1 
10112 

oooco 
ooocc 



11071 
11062 
10111 

10110 



627044452144 



-*-l, v-*-2 
TXL SYMNAM,,1 

PNAME,,-»-l 

-*-l 

-*-l 
BCI 1,SYN!NAI« 



LS111050 
LS111060 
LS111070 
LS111080 
LS111090 
LS111100 
LSlililO 



o 
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EJECT 






LS111120 
LS111130 
LS111140 



'mmmmm 



mmmm 



LISP 1.5 FOR SHARE DISTR I BUT ION t MARCH 1965 9/20/67 PAGE 237 

PERMANENT LIST STRUCTURE 

EJECT LS111150 

* PROPERTY LISTS FOR ALPHABETIC OBJECTS LS111160 

* LS111170 

67671 C COOCO GOOQO hHOO LS111180 

********************<****#***** »LS1 11190 

67672 C OOOCO 00001 HH01 1 LS111200 

ft***************************** #|_s 11 1210 

67673 C 00000 00002 HH02 2 LS111220 

* * * # # # * * * * * * * « * * * * * * * ********* #1_S 11 1230 

67674 C COOCG 00003 HH03 3 LSI! 1240 

****************#***;****:** ***»#j_ si 11250 

67675 C 00000 00004 HH04 4 LS111260 

**************** '»«.*•. #**•*.»#**» *l_Sl 11270 

67676 COOCG 00005 hH05 5 LS111280 

************«*'**'#*■**■****.#*!*#** *LS111290 

67677 COOOO 00O06 HH06 6 LS1U300 

**************** ';**»*'«***** ■<$, « • * *LS 111310 

67700 OOOOG 00007 HH07 7 LSU1320 

**************.**:*#****»*.*# * * # • *LS111330 

67701 +CCG000GGQ01G HH10 OCT 10 LS111340 

ft**************-**********:****** *LS1 11350 

67702 +00COOCCCOG11 HH11 OCT 11 LS111360 

****************************** *LS 111370 

********************** * « * « * * * * *L SI 11380 

67703 10074 11062 HH12 PZE PNAME, t -*-l END OF RILE LS111390 

67704 C 10071 10073 PZE -*-l,,-*-3 LS111400 

67705 OOOCO 10072 PZE -*-l LS111410 

67706 -132546265377 OCT 532546265377 BCD $EOF$ LS111420 

67707 10070 12521 PZE APVALl fr -*-l LS111430 
6771C COOCG 10067 PZE -*-l LS111440 

BINARY CARD NO. LISP0447 

67711 00000 07440 PZE H12 LS111450 

************** **>*;*.**^**** ,*.****;* *SLS1 11460 

67712 10065 11062 FH13 PZE PNAME,,-*-l = LS111470 

67713 COOCG 10064 PZE --«-l LS111480 

67714 COOCO 10063 PZE -*-l LS111490 

67715 +137777777777 OCT 137777777777 LS111500 

************** ***********;.***** *LS111510 

67716 C 10061 11062 HH14 PNAME,,-*-l 8-4 MINUS LS111520 

67717 CCOOO 10060 PZE -*-l LS111530 

67720 C COOOO 10057 PZE -**-l LS111540 

67721 +147777777777 OCT 147777777777 LS111550 

****** ********■**.******** ****** *LS1 11560 

67722 10055 11062 FHI5 PNAME,»-*-l ILLEGAL LS111570 

67723 OOOCO C 10054 PZE ->*-l LS111580 

67724 COOCG 10053 PZE -*-l LSI 11590 

67725 533143010553 BCD 1$IL15$ LS111600 

* * * * * * * * * * * * .* * ;* *:*,#** * :* * * «**«* * * * *LS111610 

67726 C 10051 11062 HH16 PNAME,,-*-l ILLEGAL LS111620 

67727 C COOCO 10050 PZE -*-l LS111630 
6773C OOOCO 10047 PZE -**-l LS111640 

67731 533143010653 BCD 1SIL16S LS111650 

************** i* *;**:*********** * *LS111660 

67732 C 10045 11062 HH17 PNAME,,-*-l ILLEGAL LS111670 



o 
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67733 C COOCO 10044 

67734 C OOOCC 10043 

67735 533143010753 

67736 10041 11062 HH20 

INARY CARD NO. LISP0448 

67737 GOOCG 1G04C 
6774C COOOO 10037 
67741 +207777777777 



67742 C 10035 11062 

67743 C COOCO 10034 

67744 GOOCO 10033 

67745 +.2 17777777777 

67746 10031 11062 

67747 COOCC 10030 

67750 OGOOG 10027 

67751 +227777777777 

67752 10025 11062 

67753 COOCO 10024 

67754 C COOCO 10023 

67755 +237777777777 

67756 G 10021 11062 

67757 C COOCC 10020 
6776C C 00000 10017 
67761 +247777777777 



6 7 762 
67 76 3 
67764 



C 






10015 
00000 
0000 



11062 
10014 
10013 



HH21 



HH22 



HH23 



HH24 



HH25 



PZE -*-l 
PZE -*-l 
BCD 1$IL17$ 

************* 

PNAME,, -*-l + 



« ***** * 



PZE 
PZE 

OCT 



PZE 
PZE 

OCT 



PZE 
PZE 
OCT 



PZE 
PZE 

OCT 



PZE 
PZE 
OCT 



PZE 

PZE 



-*-l 

207777777777 

******* 

PNAME,,-*-! 
-**-l 

-*-l 
217777777777 

******* 

PNAME, ,-*-l 
-*-l 

227777777777 
******* 

PNAME,, -*-l 

-*-l 

-**-l 

237777777777 

******* 

PNAME, ,-*-l 

-•*-! 

-*-l 

247777777777 

* * * * * * * 

PNAME, ,-*-! 

-*-l 

-,*-! 



* * 

A 



* * * 



* ■'# 



* .'# * * 



* * * * * v* * « 



* » 

C 



* * 

D 



* * 

E 



* ;* * * * 



* 



*(*.*'*** 



* * * 



LS111680 
LS111690 
LS111700 
•LS111710 
LS111720 



LS111730 
LS111740 
LS111750 

*LS1 11760 
LS111770 
LS111780 
LS111790 
LS111800 

»LS111810 
LS111820 
LS111830 
LS111840 
LSU1850 

*LS111860 
LS111870 
LS111880 
LS111890 
LS111900 

*LS111910 
LS111920 
LS111930 
LS111940 
LS111950 

♦ LS1U960 
LS111970 
LS111980 
LS111990 



BINARY CARD NO. LISP0449 
67765 +257777777777 



67766 


G 


IOC 11 





77777 


67767 


C 


10010 





12 521 


6777 


G 


10006 





100Q7 


67771 





COO GO 





00000 


6 7 77 2 





100C5 





110 62 


6777 3 


c 


COOCO 





10004 


67774 





QOOGO 





10003 



677 7 5 +2 6 777 7 777 777 

67776 100G1 11062 

67777 COOCO 100QO 
7000 OOOCC 07777 
70001 +2 7 777777777 7 



70002 





07775 





11062 


70003 





GOOCG 





077 74 


7000 4 


G 


GOOCG 





07773 



HH26 



HH2 7 



HH30 



OCT 



PZE 
PZE 
OCT 



PZE 
PZE 
OCT 



PZE 
PZE 



257777777777 
******* 

-!,,-*-! 

APVAL,,-*-! 

-**-l, ,— *-2 



PNAME, ,-*-l 

-*-l 

267777777777 

******* 

PNAME, ,~*-l 

~«-l 

-*-l 

277777777777 
******* 
PNAME,, -»-l 
-,*-l 



* * 
F 



* * 



* * * * * 



* * 
G 



* * 
H 



■j* * * * 



* * 



LS112000 
•LS112010 
LS112020 
LS112030 
LS112040 
LS112050 
LS112060 
LS112070 
LS112080 
LS112090 
•LS112100 
LS112110 
LS112120 
LS112130 
LS112140 
•LS112150 
LS112160 
LS112170 
LS112180 
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70005 +307777777777 

70006 C 07771 11062 HH31 

70007 COOCO 07770 
7001C COOCG 07767 

700 11 +31777 7777 777 

70012 07765 C 11062 HH32 

BINARY CARD NC. LISP0450 

700.13 OOOCO 07 764 

70014 OOOCC 07763 

70015 533143030253 



70016 07761 11062 

70017 OOOGO 07760 
7002 C GOO 00 07757 

70021 +33 7777777777 

70022 07755 11062 
7002 3 C OOOCO 07754 

70024 GOOCO 07753 

70025 +347777777777 



7G026 
70027 
70030 
70031 

70032 
700 3 3 
70034 
70035 

70036 
70037 
70040 



■0 07751 11062 
OOOGO 07750 
OOOCO 07747 
533143030553 

07745 11062 
OOOCO 07744 
GOOCO 0774 3 
533143030653 



C 
G 





0774 1 

GOOCO 
GOOCO 



11062 
07740 
0773 7 



BINARY CARD NO. LISP045 1 

70041 533143C3G753 

70042 07735 11062 

70043 OOOCO 07734 
7004 4 G OOOCO 077 33 

70045 -007777777777 

70046 07731 11062 

70047 GOOCO 07730 
7005G COOCG 07727 

70051 -017777777777 

70052 07725 11062 

70053 G OOOCO 07724 

70054 GOOCO 07723 

70055 -0277777777/7 



HH33 



HH34 



HH35 



HH36 



HH37 



HH40 



HH41 



HH42 



OCT 307777777777 
















******* 


* 


* 


* 


« 


* * * * * 


* 


* 


PNAME, ,-*-l 










I 






PZE ^*-l 
















PZE -«-l 
















OCT 317777777777 
















*****«» 


* 


* 


* 


* 


* * * * * 


* 


* 


PNAME, ,-*-! 










+ 






PZE -*-l 
















PZE -**-l 
















BCD 1$IL32$ 
















******* 


* 


* 


* 


* 


* * * * * 


* 


* 


PNAME, ,-*~l 










• 






PZE -*-l 
















PZE -*-l 
















OCT 337777777777 
















******* 


* 


* 


* 


« 


***** 


* 


* 


PNAME, ,-*-! 










J 






PZE -»-l 
















PZE -*~1 
















OCT 347777777777 
















******* 


* 


* 


* 


* 


***** 


* 


* 


PNAME, ,-*-! 










ILLEGAL 






PZE <-**~l 
















PZE ~*-l 
















BCD 1$IL35$ 
















******* 


* 


* 


* 


* 


***** 


i* 


* 


PNAME, ,-*-l 










ILLEGAL 






PZE -**-l 
















PZE -**-l 
















BCD 1$IL36$ 
















******* 


* 


* 


* 


* 


* * * * * 


* 


* 


PNAME, ,-*-l 










ILLEGAL 






PZE -**-l 
















PZE -*-l 
















BCD 1$IL37$ 
















******* 


* 


* 


* 


« 


* * * * * 


'•* 


* 


PNAME,, -*-l 










11 MINUS 






PZE -*-l 
















PZE -*-l 
















OCT 4C7777777777 
















******* 


* 


* 


* 


* 


* * * * * 


* 


* 


PNAME, ,-*-l 










J 






PZE -**-i 
















PZE -*-l 
















OCT 417777777777 
















******* 


* 


* 


* 


* 


* * * * * 


? * 


i* 


PNAME,, -*-l 










K 






PZE -*-l 
















PZt -*-l 
















OCT 427777777777 

















* 



* !* 



* * 



* * 



* * 



* * 



* # 



* * 



* * 



* * 



* .* 



* * 






* * * ;* 



* * 



LS112190 
•LS112200 
LS112210 
LS112220 
LS112230 
LS112240 
•LS112250 
LS112260 



LS112270 
LS112280 
LS112290 

•LS112300 
LS112310 
LS112320 
LS112330 
LS112340 

*LS112350 
LS112360 
LS112370 
LS112380 
LS112390 

*LS 112400 
LS112410 
LS112420 
LS112430 
LS112440 

•LS112450 
LS112460 
LSI 12470 
LS112480 
LS112490 

•LS112500 
LS112510 
LS112520 
LS112530 



LS112540 
*LS112550 
LS112560 
LS112570 
LS112580 
LS112590 
•LS112600 
LS112610 
LS112620 
LS112630 
LS112640 
•LS112650 
LS112660 
LS112670 
LS112680 
LS112690 
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70056 G G7721 11062 HH43 

70057 C OOOCO 07720 

70060 00000 07717 

70061 -037777777777 

70062 07715 11062 HH44 

70063 OOOCO 07714 

70064 OOOCO 07713 

70065 -047777 7777 77 

70066 07711 11062 HH45 

BINARY CARD NO. LISP 045 2 

7006 7 OOOCO 07 710 

70070 OOOCO 07707 

70071 -057777777777 



70072 07705 11062 
7007 3 OOOCO 07704 
7G074 OOOCO O 07703 
70075 -067777777777 



70076 
70077 
7010 
70101 



077C1 11062 
OOOCO 07700 
OOOCO O 07677 
-077777777777 



70102 07675 11062 

70103 OOOCO 07674 

70104 OOOCO 07673 

70105 -107777777777 



7010 6 
70107 
70I1C 
70111 

70112 
70113 
70114 



C 07671 U062 
OOOCO 07670 
OOOCO 07667 
•117777 7 77777 










07665 
OOOCO 
OOOCO 



11062 
07664 
07663 



BINARY CARD NO. LISP0453 

70115 533143050253 

70116 07661 11062 

70117 COOCO 07660 

70120 OOOCO 07 657 

70121 -137777777777 

70122 07655 11062 
7012 3 765 2 7 654 

70124 00000 07653 

70125 -147777777777 

70126 07651 10413 



HH46 



HH47 



HH50 



HH51 



HH52 



HH53 



HH54 



******* 
PNAME, ,-*-l 

PZE ->*-l 

PZE -**-l 

OCT 437777777777 
******* 

PNAME, ,-*-l 
PZE -*-l 
PZE -**-l 
OCT 447777777777 

******* 

PNAME,, -*~1 



PZE -**-l 

PZE -**-l 

OCT 457777777777 
******* 

PNAME, ,-*-l 
PZE -*-l 
PZE -»»-l 
OCT 467777777777 

******* 

PNAME,, -*-l 
PZE -*-l 
PZE -*-l 
OCT 477777777777 

******* 

PNAME, ,-*-l 
PZE -*»-l 
PZE -*-l 
OCT 507777777777 

******* 

PNAME,, -*-l 
PZE -»»-l 
PZE -«-l 
OCT 517777777777 

******* 

PNAME, ,-*-l 
PZE -»*~1 
PZE -«*-l 



BCD 1$IL52$ 

* * * * * * * i 
PNAME, ,-*-l 

PZE -#-1 

PZE -»-l 

OCT 537777777777 

PNAME , ,-*-l 
PZE -*-l,,-»-3 
PZE -#*-l 

OCT 547777777777 
PZE SYM 



* * 
L 



* * 



* * 



* * 
C 



* « 

P 



* # 

c 



# * 

R 



* * 
-0 



* * 
$ 



* * 

* 



» » 



— *~ 



*********** » * *L SI 12700 

LS112710 
LS112720 
LS112730 
LS112740 

************* *L SI 12750 

LS112760 
LS112770 
LS112780 
LS112790 

*********** * * *L SI 12800 

LS112810 



LS112820 
LS112830 
LS112840 

****** *********** *LS1 12850 

LS112860 
LS112870 
LS112880 
LS112890 

* * * * * * ********* * * *LS112900 

LS112910 
LS112920 
LSI 12930 
LS112940 

****** * * ** ** * * * * * *LS112950 

LS112960 
LS112970 
LS112980 
LS112990 

***************** *LS113000 

LS113010 
LSI 13020 
LS113030 
LS113040 

****** *********** *LS 113050 

LS113060 
LS113070 
LS113080 



LSI 13090 

******* ******* *LS1 13100 

LS113110 
LS113120 
LS113130 
LS113140 

* * * * * * * * * * * * * * *L SI 131 50 

LS113160 
LS113170 
LS113180 
LS113190 
LS113200 



wmmm 



mmmm 
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70127 C OOOCC 00327 



7013C 
70131 
70132 
7013 3 

70134 
70135 
70136 
7013 7 

70 140 
70141 
70142 



07647 11062 
OOOGO 07646 
OOOCO 07645 
533143050553 

07643 11062 
OOOCO 07642 
C COOCO 07641 
533143050653 





c 

■0 



07637 

COOCO 
COOCO 



11062 
07636 
0763 5 



BINARY CARD NO. LISP 045 4 

70143 533I43C50753 

70144 076 3 3 11062 

70145 COOCO 07632 

70146 OOOCO 07631 

70147 -207777777777 



70150 
70151 
70152 

70153 

70154 
70155 
70156 
70157 

7016 
70161 
70162 
70163 
70164 
70165 
70166 
70167 



07627 G 11062 
C OOOCC 07626 
OOOCC <3 0762 5 
■217777777777 

07623 11062 
C 60OC0 07622 
OOOCO 07621 
•2 2 777 7 777777 



C 



c 
c 







G7617 
07616 
07614 
OOOCO 
07613 
OOOCC 
COOCO 



7777/ 
12521 
07615 
00001 
11062 
07612 
07611 



-2 3777777777 7 



70170 076C7 11062 HH64 

BINARY CARD NC. LISP0455 

70171 COOCO 07606 

70172 COOCO 07605 

70173 -2 47 77 7 777 777 



70174 076C3 11062 

70175 OOOCO -0 07602 

70176 OOOCO 07601 

70177 -257777777777 



PZE -CiSTAR 
****** 

HH55 PNAME,, -*-l 
PZE -*-l 
PZE -*-l 
BCD 1$IL55$ 

****** 

HH56 PNAME,, -*-l 

PZE -»-l 

PZE -»-l 

BCD 1$IL56$ 

****** 
HH57 PNAME ,,-*-i 

PZE -**-l 

PZE ^*-l 



BCD 1$IL57$ 

******* 

HH60 PNAME,, -*-l 
PZE -*~1 
PZE -»*-l 

OCT 607777777777 
******* 

HH61 PNAME,, -*-l 
PZE -**-l 
PZE **-l 
OCT 617777777777 

*****:** 

HH62 PNAME,, -*~1 
PZE ~*~1 
PZE -*-l 

OCT 627777777777 
******* 

HH63 ~l,,-*-l 

APVAL,,-*-l 
-**-!,,-*_ 2 

1 

PNAME, ,-#-1 
PZE -«-l 
PZE -*-l 
OCT 637777777777 

******* 

PNAME, ,~*-l 



*#*■** 
ILLEGAL 



***** 
ILLEGAL 



***"*# 
ILLEGAL 



* * 



* * 



* * 



* * * 



* >* * » 



* * * * 
BLANK 



* * * * * .* 



* * * 



» * 



* * 
/ 



* * 



* .;* * * * j» * i* 



:* * * 



* * 



* * 
T 



* * 

U 



* * 



* * 



PZE -*-l 
PZE -*~1 

OCT 647777777777 
******* 

KH65 PNAME , ,-*-l 
PZE -*~l 
PZE -**-l 

OCT 657777777777 
******* 



******** * ft.*.**?****,**;** * 

V 



* * 



:* * 



LS113210 
*LS1 13220 
LSI 13230 
LS113240 
LS113250 
LS113260 
♦LSI 13270 
LS113280 
LS113290 
LS113300 
LS113310 
•LS113320 
LS113330 
LS113340 
LSI 13350 



LS113360 

♦LS113370 
LS113380 
LSI 13390 
LS113400 
LSI 13410 

•LS113420 
LS113430 
LS113440 
LSI 13450 
LSI 13460 

*LS113470 
LSI 13480 
LS113490 
LS113500 
LS113510 

*LS113520 
LS113530 
LS113540 
LSI 13550 
LS113560 
LS113570 
LS113580 
LS113590 
LSI 13600 

♦LS113610 
LS113620 



LS113630 
LS113640 
LSH3650 

•LS113660 
LS113670 
LS113680 
LS113690 
LS113700 

»LS113710 



mmmmmmm 



wmmmmmm 



LISP 1.5 FGR SHARE DISTRIBUTION, MARCH 1965 
PERMANENT LIST STRUCTURE 



7020C G 07577 11062 

70201 OOOCC C 07576 

70202 OOOCO 07575 

70203 -267777777777 

70204 07573 11062 
7020 5 C GOO GO 07 572 

70206 G OOOCC 07571 

70207 -277777777777 

70210 07567 11062 

70211 GOOGO 07566 
7G212 OOOCO 07 565 
70213 -307777777777 



70214 


G 


07563 





11062 


70215 





OOOCO 





07562 


70216 





GOOGO 





07561 



BINARY CARD NO. LISP0456 
70217 -317777777777 

70220 07557 11062 

70221 07554 G 07556 

70222 OOOCO 07555 
70 22 3 -132546515377 

70224 07553 12521 

70225 OOOCO 07552 

70226 OOOCO 07520 

70227 C755G 11062 
7023C OOOCO 07547 

70231 GOOGO 07 54 6 

70232 -337777777777 

70233 07544 11062 
702 34 OOOCO 07543 

70235 OOOCC 07542 

70236 -34 7777777777 



70237 
7024C 
70241 
70242 


0754 11062 
GOO CO 07 53 7 
OOOCO 07 536 
533143070553 


70243 
70244 




C 


07534 

OOOCO 






11062 
07 533 



BINARY CARD NO. LISP0457 

70245 CCOCG € 07532 

70246 533143070653 



70247 


G 


07530 





11062 


70250 


C 


OOOCO 


C 


07527 


70 251 


C 


GOO CO 


G 


07 526 



HH66 



HH67 



HH70 



HH71 



HH72 



HH73 



HH74 



HH75 



HH76 



HH77 



PZE 
PZE 

OCT 



PZE 
PZE 

OCT 



PZE 
PZE 
OCT 



PZE 
PZE 



OCT 



PNAME 

~*-l 

-,*-! 

66777 

* * ■» 

PNAME 
-*-l 

67777 

* # » 

PNAME 
-*-l 
-*-l 
70777 

* * * 

PNAME 
-,«-l 



,-*-! 



7777777 

# » * -i 



7777777 

* * * i 



7 777777 

« » * i 



« * 
X 



* * * 
Y 



* * 



» :* ft » ft <# 



ft 



« « 



* « 

z 
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LS113720 
LS113730 
LS113740 
LS113750 

* « .:# * .* » « • «LS113760 

LS113770 
LS113780 
LSI 13790 
LS113800 
.k» * * ft * * « * «LS113810 

LS113820 
LS113830 
LS113840 
LS113850 

* * * * * * ♦ * *LS113860 

LS113870 
LS113880 
LS113890 



717777777777 

PNAME, ,-»-l 
PZE -«-l,,-»-3 
PZE -*-l 
OCT 532546515377 

PZE APVALl,,-ft-l 
-*-l 

H7 2 

* » ,« « » » « 

PNAME, ,-*-l 

-*-l 

-»-l 

737777777777 

a *#■»** « 

PNAME, ,-*-l 

-»-l 

-,*-! 

747777777777 

* » * * * « * 

PNAME, f -*-l 

-«-l 

1$IL75$ 

* » » « # » » 

PNAME, ,-ft-l 



ft ft ft ft ft ft :« j* 

END OF RECORD 



BCD -$€0R$ 



« » * 



« « 



PZE 
PZE 



PZE 
PZE 

OCT 



PZE 

PZE 
OCT 



PZE 

PZE 

BCD 



PZE 



* * 



« « 
{ 



*jft** »*»:»* 



« 'ft 



« » 



* * * « * 
ILLEGAL 



* * * * * 
Ii-LEGAL 



» ft * « * ft 



» ■# * 



PZE -*-l 
BCD 1$IL76$ 

PNAME, ,-«-l 
PZE -#~1 
PZE -*-l 



ILLEGAL 



LSI 13900 
ft * * ♦ »LS113910 
LSI 13920 
LS113930 
LS113940 
LS113950 
LS113960 
LS113970 
LSH3980 
« ft * * * * # *L SI 13990 
LS114000 
LS114010 
LS114020 
LS114030 

* » * « »LS114040 
LS114050 
LSI 14060 
LS114070 
LS114080 

* * * * »L SI 14090 
LS114100 
LS114110 
LS114120 
LS114130 

* * « » *LS114140 
LS114150 
LS114160 



LS114170 
LS114180 
*LS114190 
LS114200 
LS114210 
LS114220 
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70252 533I43C7C753 



BCD 1$IL77$ 



70253 





07531 





77777 


)H77 


-1,,-HH77 


• 70254 





07535 





77777 


)H76 


-l,,-hH76 


70255 





07541 





7777 7 


)H75 


-1,,-HH75 


70256 





07545 





77 77 7 


)H74 


-1,,-HH74 


• 70257 


c 


07551 





77777 


)H73 


-It t-HH73 


70 260 





07560 





77777 


)H72 


-1,,-HH72 


70261 





07564 





77777 


)H71 


-1,,-HH71 


• 70262 


c 


075 70 





77777 


JH70 


-1,,-HH70 


70263 


c 


07574 





77777 


)H67 


-1, t -HH67 


70264 





076 CO 





77 77 7 


)H66 


-1, ,-HH66 


• 70265 





076G4 





77777 


)H65 


-ltr-HH'65 


70266 





07610 





77777 


) H64 


-1,,-HH64 


70267 


c 


07620 





77777 


)H63 


-1, ,-HH63 


• 70270 





07624 





77 77 7 


)H62 


-1, ,-HH62 


70271 





07630 





7777 7 


)H61 


-1, ,-HH61 


70272 





07634 


c 


77 77 7 


)H60 


-1, ,-HH60 


BINARY CARD NO, LISPG458 






A 70 27 3 





07640 





77777 


)H57 


-1, ,-HH57 


• 70 2 74 





07644 





7 7 777 


)H56 


-1,,-HH56 


70275 


o 


07650 





77777 


)H5 5 


-1, ,-HH55 


70276 





07656 





77777 


)H54 


-1,,-HH54 


• 70277 


C 


07662 





77777 


)H53 


-1,,~HH53 


70300 





07666 





77777 


)H52 


-i, ,-HH52 


70301 





07672 





77777 


)H51 


-1, ,-HH51 


• 70302 





07676 





7 7777 


JH50 


-1,,~HH50 


70303 





077C2 





777 77 


)H47 


-1,,-HH47 


70304 





C77G6 


G 


77777 


JH46 


-1, ,-HH4 6 


• 70305 





07712 





7777 7 


)H45 


-l,t-HH45 


70 30 6 





07716 





77777 


)H44 


~1,,-HH44 


„ 70 307 





07722 





77 777 


JH43 


-1, ,-HH43 


• 70310 


c 


07726 





77777 


)H42 


-1,,-HH42 


70311 





07732 





7777/ 


)H4L 


-1,,-HH41 


_ 70312 





07736 





77777 


)H40 


-1,,-HH40 


• 70 313 





077 4 2 





7777 7 


)H37 


-1, ,-HH37 


70314 





07746 





77777 


)H36 


-1,,-HH36 


_ 70315 





07752 





77777 


)H35 


-1,,-HH35 


• 70316 





07756 





77 777 


)H34 


-1,,~HH34 


70317 





07762 





77 77 7 


)H33 


-1,,-HH33 


70 32 





07766 





77777 


)H32 


-1,,-HH32 


BINARY CARD NO. LISP0459 






70321 





07772 





77777 


)H3l 


-1,,-HH31 


• 70322 





07776 





77777 


)H30 


-1,,-HH30 


70 32 3 


G 


10002 


G 


77777 


) H27 


-1,,-HH27 


70324 





10012 





7 7777 


)H26 


-1,,-HH26 


• 70 32 5 





10016 


G 


777 77 


)H25 


-1, ,-HH25 


70326 





10022 





77777 


)H24 


-1,,-HH24 


^ 70327 





10026 





77777 


)H23 


-1,,~HH23 


• 70330 





100 32 





7 7 777 


)H22 


-1, ,-HH22 


70 331 


G 


10036 





77777 


JH21 


-1,,-HH21 


70332 





10042 





77 777 


)H20 


~1,,-HH20 



LS114230 
LS114240 
LS114250 
LS114260 
LS114270 
LS114280 
LSI 14290 
LS114300 
LS114310 
LS114320 
LSI 14330 
LS114340 
LS114350 
LSI 14360 
LSI 14370 
LS114380 
LS114390 
LS114400 
LS114410 



LS114420 
LS114430 
LSI 14440 
LS114450 
LSI 14460 
LS114470 
LS114480 
LS114490 
LS114500 
LS114510 
LS114520 
LS114530 
LS114540 
LS114550 
LS114560 
LSI 14570 
LS114580 
LS114590 
LS114600 
LS114610 
LS114620 
LS114630 



LS114640 
LS114650 
LSI 14660 
LS114670 
LS114680 
LSI 14690 
LSI 14700 
LS114710 
LS114720 
LS114730 



«M 
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70333 


C 


100 46 


■0 


77777 


)H17 


70334 





10052 





77 77 7 


)H16 


70335 





10056 





77 77 7 


)H15 


70 336 


c 


10062 





77777 


)H14 


70337 


c 


1006 6 





77777 


)HI3 


7034G 


c 


10075 





77777 


3H12 


70341 


G 


10076 


1 


77777 


)H11 


70342 


G 


10077 


1 


77777 


JHIO 


70343 





101C0 


1 


7 7 777 


)H07 


70 344 





101 Gl 


1 


77777 


JH06 


7034 5 





1010 2 


1 


77777 


JH05 


70346 


G 


101C3 


1 


77 777 


)H04 


INARY CARD NO. LISP0460 




70347 





101 4 


1 


77777 


IH03 


7C350 





101 C 5 


1 


77777 


JHQ2 


70351 





10106 


1 


77777 


3 HOI 


70 35 2 





10107 


1 


77777 


)H00 


7035 3 










UPERNIL 



BSS 



1,,-HH17 

•1, ,-HH16 

•1, ,-HH15 

•1,,-HH14 
1,,-HH13 

•1»,-HH12 

-l f 1,-HHll 
-1,1,-HHlO 
-1,1,-HH07 
-1,1,-HH06 
~1,1,-HH05 
~1,1,-HH04 



-It 1,-HH03 
-l,l f -HH02 
-1,1,-HHOl 
-1,1,-HHOO 




LS114740 
LS114750 
LS114760 
LS114770 
LS114780 
LS114790 
LS114800 
LS114810 
LS114820 
LS114830 
LS114840 
LS114850 



LS114860 
LS114870 
LS114880 
LS114890 
LS114900 
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LS114910 

LS114920 

CAUSE MANY SYMBOLS TO HAVE O-HEADED EQUIVALENTS LS114930 

LSU4940 
LS114950 
LS114960 
LS114970 
LS114980 
LS114990 
LS115000 
LS115010 
LS115020 
LS115030 
LS115040 
LS115050 
LS115060 
LS115070 
LS115080 
LS115090 
LS115100 
LS115110 
LS115120 
LS115130 
LS115140 
LS115150 
LS115160 
LS115170 
LS115180 
LS115190 
LS115200 
LS115210 
LS115220 
LSI 15230 
LS115240 
LS115250 
LS115260 
LSI 15270 
LS115280 
LS115290 
LS115300 
LS115310 
LS115320 
LSI 15330 
LS115340 
LS115350 
LS115360 
LS115370 
LS115380 
LS115390 
LS115400 
LS115410 
LS115420 
LS115430 
LS115440 
LSI 15450 







EJEC 


.T 






HEAD C 




* 


SYN 


CARDS 


07426 


HGO 


SYN 


-)H00 


07427 


HOI 


SYN 


-)H01 


07 430 


H02 


SYN 


-)H02 


07431 


H03 


SYN 


-)H03 


07432 


H04 


SYN 


-)H04 


07433 


H05 


SYN 


-JH05 


07434 


H06 


SYN 


-JH06 


07435 


H07 


SYN 


-JH07 


07436 


H10 


SYN 


-)H10 


07437 


Hll 


SYN 


-)H11 


07 440 


H12 


SYN 


-)H12 


07441 


H13 


SYN 


-)H13 


07442 


H14 


SYN 


-)H14 


07443 


H15 


SYN 


-)H15 


07 444 


H16 


SYN 


-3H16 


07445 


H17 


SYN 


-)H17 


7446 


H20 


SYN 


-)H20 


07447 


H21 


SYN 


-)H21 


07450 


B22 


SYN 


-)H22 


07451 


H23 


SYN 


-)H23 


07452 


H24 


SYN 


-JH24 


07453 


H25 


SYN 


-JH25 


07454 


H26 


SYN 


-)H26 


07455 


H27 


SYN 


-}H27 


07456 


H30 


SYN 


-)H30 


07457 


H31 


SYN 


-3H31 


07460 


H32 


SYN 


-}H32 


07461 


H33 


SYN 


-)H33 


07462 


H34 


SYN 


-JH34 


07463 


H35 


SYN 


-)H35 


07464 


H36 


SYN 


-)H36 


07465 


H37 


SYN 


-)H37 


07466 


H40 


SYN 


-)H40 


07467 


H41 


SYN 


-)H41 


07470 


H42 


SYN 


-)H42 


07471 


H43 


SYN 


-JH43 


07472 


H44 


SYN 


-)H44 


07473 


H45 


SYN 


-}H45 


07474 


H46 


SYN 


-)H46 


C7475 


H47 


SYN 


-)H47 


07476 


H50 


SYN 


-)H50 


07477 


H51 


SYN 


-)H51 


07500 


H52 


SYN 


-)H52 


07501 


H53 


SYN 


-)H53 


07502 


H54 


SYN 


-)H54 


07503 


H55 


SYN 


-)H55 


07504 


H56 


SYN 


-)H56 


07 505 


H57 


SYN 


-)H57 


07506 


H60 


SYN 


-)H6C 


07507 


H61 


SYN 


- ) H6 1 


07510 


H62 


SYN 


-3H62 



'mMMMIMMMM 
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07511 


H63 


SYN 


-)H63 


7 512 


H64 


SYN 


-3H64 


07513 


H65 


SYN 


-)H65 


07514 


H66 


SYN 


-)H66 


07515 


H67 


SYN 


-JH67 


07516 


H70 


SYN 


-3H70 


07517 


H71 


SYN 


-)H71 


07520 


H72 


SYN 


-)H72 


07521 


H73 


SYN 


-JH73 


07522 


H74 


SYN 


-)H74 


07 523 


H75 


SYN 


-)H75 


07524 


H76 


SYN 


-)H76 


07525 


H77 


SYN 


-)H77 


12551 


AND 


SYN 


-)002 


12541 


Fl 


SYN 


-J003 


12531 


F18 


SYN 


~)004 


12521 


AP-VAL 


SYN 


-J005 


125 21 


APVAL1 


SYN 


-)005 


12514 


ARRAY 


SYN 


-III 


12504 


ATOM 


SYN 


-)007 


12474 


F29 


SYN 


-)008 


07454 


F 


SYN 


H26 


07511 


T 


SYN 


H63 


12454 


CAR 


SYN 


-)011 


12444 


CDR 


SYN 


-)012 


07521 


COMMA 


SYN 


H73 


12237 


COND 


SYN 


-J016 


12227 


CONSN 


SYN 


-)017 


12102 


DUMP 


SYN 


-DMPOB 


12217 


F12 


SYN 


-)019 


12207 


COPYN 


SYN 


-)020 


12177 


F35 


SYN 


-J021 


12 040 


EQ 


SYN 


-)03G 


12010 


F8 


SYN 


-)032 


12000 


F21 


SYN 


-)034 


11746 


F19 


SYN 


-)035 


11736 


EVLISL 


SYN 


-)036 


11704 


EXPR 


SYN 


-)037 


11677 


F32 


SYN 


-)038 


11667 


FEXPR 


SYN 


-)04C 


11662 


BIN 


SYN 


-)04l 


11662 


FIX 


SYN 


-1041 


11645 


FLOAT 


SYN 


-3042 


11630 


FSUBR 


SYN 


- ) 04 3 


1162 3 


FUNARG 


SYN 


-3044 


11616 


FUNCT 


SYN 


-)045 


11604 


SYMGEN 


SYN 


-3 046 


11574 


CGET 


SYN 


-3231 


11564 


GO 


SYN 


-J047 


11542 


F16 


SYN 


-J052 


11532 


LABEL 


SYN 


-)054 


11522 


LAMBDA 


SYN 


-)055 


11515 


LAP 


SYN 


-)LAP 


1146 3 


LIST 


SYN 


-J057 


11443 


LOADA 


SYN 


-)234A 



LS115460 
LS115470 
LS115480 
LS115490 
LS115500 
LS115510 
LS115520 
LS115530 
LS115540 
LSI 15550 
LS115560 
LS115570 
LS115580 
LS115590 
LS115600 
LS115610 
LSI 15620 
LS115630 
LS115640 
LS115650 
LS115660 
LSI 15670 
LS115680 
LS115690 
LS115700 
LS115710 
LSI 15720 
LS115730 
LS115T40 
LS115750 
LS115760 
LS115770 
LS115780 
LS115790 
LS115800 
LS115810 
LS115820 
LS115830 
LS115840 
LS115850 
LS115860 
LS115870 
LS115880 
LSI 15890 
LS115900 
LS115910 
LS115920 
LS115930 
LSI 15940 
LS115950 
LS115960 
LS115970 
LS115980 
LS115990 
LS116000 
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11373 PMAPCA SYN -)065 

11341 MAXP SYN -117 

11321 MINUS SYN -)070 

11331 MINP SYN -118 

11271 F3 SYN -)071 

OOOOO NIL SYN 

11261 NOT SYN -3074 

11251 NULL SYN -3075 

11217 OBLBA SYN -3079A 

11162 OR SYN -)079 

11142 F2 SYN -J08C 

11132 PAUSE SYN -3 234C 

11112 PLB SYN -)234B 

11102 PLUS SYN -)081 

11062 PNAME SYN -3 083 

11045 F4 SYN -3087 

11025 PROG SYN -1089 

11005 PROPO SYN -J 090 

10775 QUOTE SYN -1094 

1G753 F13 SYN -)096 

10733 RCLAM SYN -)234D 

10655 PRPLCA SYN -) 100 

10645 PRPLCD SYN -3 101 

10665 RETATM SYN -3 102 

10557 SASCO SYN -3 106 

10566 SLIST SYN -3LST 

10615 SPECAL SYN -3SPCL 

10606 SHOVE SYN -)MOV 

10577 SRETUR SYN -3RTRN 

10547 SRCH SYN -3236 

10537 SET SYN ~) 107 

10527 SETQ SYN -U08 

10477 STOP SYN - j 111 

10507 F34 SYN -) 109 

10440 SUBR SYN -J 113 

10433 F17 SYN -3 114 

10423 F30 SYN -) 115 

10356 F27 SYN -)122 

1G413 SYM SYN -3SYM 

10336 TIMES SYN -1124 

10326 TRACE SYN -)213 

10277 F36 SYN -)127 

12434 CAAR SYN -J 201 

12424 CDAR SYN -)202 

12414 CADR SYN -J 203 

12404 CDDR SYN -)204 

12374 CAAAR SYN -)205 

12364 CAADR SYN -)206 

12354 CAOAR SYN -1207 

12344 CADDR SYN -)208 

12334 CDAAR SYN -J209 

12324 CDADR SYN -)210 

12314 CBDAR SYN -3 211 

12304 CDDDR SYN -)212 

10707 REMPP SYN -3 250 



LS116010 
LS116020 
LS116030 
LS116040 
LS116050 
LS116060 
LS116070 
LS116080 
LS116090 
LS116100 
LS116110 
LS116120 
LS116130 
LS116140 
LS116150 
LS116160 
LS116170 
LS116180 
LS116190 
LS116200 
LS116210 
LS116220 
LS116230 
LSI 16240 
LS116250 
LSI 16260 
LS116270 
LS116280 
LS116290 
LS116300 
LS116310 
LS116320 
LS116330 
LS116340 
LS116350 
LSI 16360 
LS116370 
LS116380 
LS116390 
LS116400 
LS116410 
LS116420 
LS116430 
LS116440 
LS116450 
LS116460 
LS116470 
LS116480 
LS116490 
LS116500 
LS116510 
LS116520 
LS116530 
LSI 16540 
LSI 16550 



mmmmmmmmmmmmmmmm 
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12 167 PJ1 SYN -)PJ1 

12572 PJ2 SYN -JPJ2 

11770 PJ4 SYN -)PJ4 

12020 PJ5 SYN -)PJ5 

12247 PJ6 SYN -)PJ£ 

11403 PJ7 SYN -)PJ7 

10635 PJ8 SYN -)PJ8 

11122 PJ9 SYN -)PJ<3 

12112 PJ10 SYN -)PJ1C 

11072 PJ11 SYN -)PJ11 

12464 PJ12 SYN -)PJ12 

10517 PJ14 SYN -)PJ14 

10472 PJ15 SYN -)PJ15 

12154 PJ16 SYN -3PJ16 

11453 PJ17 SYN -JPJ17 

11172 PJ18 SYN -JPJ18 

12132 PJ19 SYN -)PJ19 

10462 PJ21 SYN -JPJ21 

10366 PJ23 SYN -JPJ23 

11152 PJ24 SYN -)PJ24 

11227 PJ25 SYN -)PJ25 

11301 PJ26 SYN -JPJ26 

12261 PJ27 SYN -)PJ27 

11207 PJ28 SYN -JPJ28 

12072 PJ3Q SYN -OPJ30 

10265 PJ31 SYN -JPJ31 

12274 PJ32 SYN -JPJ32 

11055 PJ33 SYN -)PJ33 

12060 PJ34 SYN -)PJ34 

12050 PJ35 SYN -)PJ35 

11423 PJ36 SYN -)PJ36 

11433 PJ37 SYN -)PJ37 

11413 PJ38 SYN -)PJ38 

11035 PJ39 SYN -)PJ39 

11760 EfiSETO SYN -)PJ41 

11505 PVW1 SYN -PVV1 

11207 OCT SYN PJ28 

10743 RECIP SYN —I 1 18 

15402 AD.D1 SYN G$ADD1 

15127 AD-DP SYN G$AODP 

16054 APP2 SYN A$APP2 

15721 APPLY SYN A$APPLY 

10631 APROP SYN R$PRCP 

16276 ATOMP SYN R$ATCNP 

16260 CARP SYN R$CARP 

16270 CDRP SYN R$CDRP 

07215 CELL SYN UCELL 

13623 CHACT SYN F$CHACT 

13172 CLEAR SYN FiCLEAR 

05111 COPY SYN R$COPY 

10166 CP1 SYN C$CP1 

13622 CURC SYN F$CUKC 

13621 CURC1 SYN F$CURC1 

04653 OECON SYN ESDECON 

13325 DIGIT SYN F$DIGIT 



LEFTSH1FT 



LS116560 
LS116570 
LS116580 
LSI 16590 
LS116600 
LS116610 
LS116620 
LS116630 
LSI 16640 
LSI 16650 
LS116660 
LS116670 
LS116680 
LS116690 
LS116700 
LS116710 
LSI16720 
LS116730 
LS116740 
LS116750 
LS116760 
LSI 16770 
LS116780 
LS116790 
LS116800 
LS116810 
LS116820 
LS116830 
LSI16840 
LS116850 
LSI16860 
LS116870 
LS116880 
LSI 16890 
LS116900 
LSI16910 
LSI 16920 
LS116930 
LS116940 
LSI16950 
LS116960 
LSI 16970 
LS116980 
LS116990 
LS117000 
LS117010 
LS117020 
LS117030 
LS117040 
LS117050 
LS117060 
LS117070 
LS117080 
LS117090 
LS117100 
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16512 EQP SYN R$EQP 

05225 EQUAL SYN L$EQUAL 

13334 ER0R1 SYN F$ER0R1 

16521 EVAL SYN A$EVAL 

12224 EVALy SYN S$EVALQ 

16435 EVAND SYN R$£VA8 

16222 EVCON SYN A$EVCON 

17050 EVLLS SYN A$EVLIS 

16463 EVOR SYN R$EVR8 

14522 EXPT SYN Q$EXPT 

15467 FIXP SYN Q$FIXP 

01170 INPUT SYN BSINPUT 

17242 INTER SYN R$ INTER 

16332 LA8P SYN R$LABP 

16316 LAMP SYN R$LAMP 

13307 LITER SYN F$ LITER 

13650 LOGOR SYN HSLOGCR 

1515:1 MAX SYN Q$MAX 

10440 MAP SYN MAPCAR 

15143 MIN SYN 4J4MIN 

13140 MKNAM SYN F$MKNAM 

13624 MKNO SYN F$MKNO 

15135 MULT SYN QSMULT 

10515 NC.ONC SYN RINCONC 

10770 NO.TS SYN R$NGTS 

16311 NULLP SYN R$NULLP 

07450 NUM8R SYN F$NUMBR 

13062 NUMQB SYN FiNUMGB 

07 371 NUTRN SYN T*NUTRN 

15534 ONEP SYN 0$ONEP 

13023 PACK SYN F$PACK 

1G4Q2 PAIR SYN ASPAIR 

14573 PGWR SYN GJPOWR 

05356 PRINO SYN T$PRINO 

G5446 PRINT SYN TSPRIN1 

05662 PRIN2 SYN T$PRIN2 

05342 PRINT SYN TSPRINT 

10631 PROP SYN R$PRGP 

06153 PUN2 SYN T$PUN2 

06137 PUNCH SYN T$PUNCH 

G6654 RD SYN I$RD 

06560 READ SYN I$READ 

06605 READ! SYN UREAD1 

16413 SETP SYN R$SETP 

16356 SETQP SYN R$SETQP 

02661 SETUP SYN 0$ SETUP 

15431 SUB1 SYN Q$SU81 

10217 SUBST SYN R$SU8ST 

15566 UNFIX SYN QSUNFIX 

07361 VALUE SYN ISVALUE 

15510 ZEROP SYN Q$Z£ROP 

10662 APSSOC SYN SASSGC 



LSI17110 
LS117120 
LSI 17130 
LS117140 
LS117150 
LS117160 
LS117170 
LS117180 
LS117190 
LS117200 
LS117210 
LS117220 
LS117230 
LS117240 
LS117250 
LS117260 
LS117270 
LS117280 
LS117290 
LS117300 
LS117310 
LS117320 
LS117330 
LSI 17340 
LS117350 
LS117360 
LS117370 
LS117380 
LS117390 
LS117400 
LS117410 
LS117420 
LS117430 
LS117440 
LS117450 
LS117460 
LS117470 
LS117480 
LSI 17490 
LS117500 
LS117510 
LS117520 
LSI 175 30 
LS117540 
LS117550 
LS117560 
LS117570 
LS117580 
LSI 17590 
LS117600 
LS117610 
LS117620 



mmtmmmm 



LISP 1 



BINARY C 
76 70 
7670 
7670 
7670 
7670 
7671 
7671 
76 71 
7671 
7671 
76 71 
7671 
7671 
7672 
7672 
7672 
7672 
7672 
7672 
7672 
7672 
7673 



ARO N 



06 
6 
06 

-0 6 


-05 
G5 
6 
07 

5 

7 

-3 

-0 6 

-07 

00 

-ei 

-07 
G5 

CO 
-01 

-06 



c. 

34 
34 
01 
00 
74 
3« 
GO 
22 
34 
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76703 BLAP 



LI 

CC 
CO 
CC 
CC 
CO 
CO 
CO 
CC 
CO 



SP046 1 
4 77 07 3 
2 77074 
€ 20052 
20054 
06026 
20052 
CO 000 



4 
4 
4 



77450 



00000 
00 CC 
34 CC 
77776 
25 CO 



54 
74 
CO 
54 
60 
74 
CO 
34 



CO 
CO 
CO 
CO 
CO 
CC 
CO 
CC 



2 

2 
2 
4 
4 

2 
4 



00000 
76743 
00000 
00000 
76741 
77454 
00000 
15446 
76734 
2 00000 
4 00545 
4 12762 
767 34 
4 G2313 



TTL 

ORG 
HEAD 



LAP - 
32195 

C 



LISP ASSEMBLY PROGRAM 

THIS IS THE COMPILER AND ASMBLR 



* 

* 
* 

* 

* 
* 

* 
* 
* 
■ft 

* 

■» 

* 

* 

* 
ff 
* 
* 



LAP IS THE 
TIONS, NGN- 
SECOND ARG 
THE FIRST I 
NIL= I 
ATOM= 
NUM = A 
I NAME 
WITH F 
INSTRUCTION 
FIELD FORMA 
TEMP S 
NUMBER 
SYM SU 
(E NAM 
(QUOTE 
POINTE 
SUM OF 
LAP IS I DEN 
LAP DO 
ERRORS IN L 



ASSEMBLER. ONE ARG IS LISTING. IT IS LIST OF INSTRUC- 

ATOMIC OR NIL. THE ATOMIC SYMBOLS ARE LOCATION SYMBOLS 

LS START OF SYMBIL TABLE WHICH IS AN A-LIST. 

TEM IS ORG AS FOLLOWS- 

N BPS 

AT SYMBOLIC LOCATION 

TTHIS NUMBER 

TYPE NUM) =. IN BPS, AND PUT TXL GN PROP LIST OF NAME 

LAG TYPE AND NUM IB DEC. OF TXL.. 

FORMAT IS (OP ADDR TAG DEC) 
T IS AS FOLLOWS- 
YMBOL 



*L 
*L 
*L 
*L 



1* 
2* 
3* 
4* 



BR OR FSUBR 

E) FOR IMMEDIATE AS IN 

NAME) FOR ITEM IN DEC 

R TO COMMON WORD. MAKES 

ANY OF ABOVE 
TITY FUNCTION 
ES NOT USE 1X1. 1X2,4 ARE 
AP AS FOLLOWS- 

UNABLE TO EVALUATE ORIGIN 
OUT OF BPS DISCOVERED AFTER PASS I 
UNDEFINED SYMBOL 
FIELD WAS RECURSIVE 



TXL FILTER 
OB WORD GN QTL SO- 
ONE IF NONE ALREADY 



SCARTCH 



LAP 



SXA 


LAX, 4 


SXA 


LAX+1,2 


STO 


LIST 


STQ 


TAB 


TSX 


TERPRI,4 


LXD 


LI ST, 4 


CLA 


0,4 


STD 


REST 


PAX 


0,2 


TXL 


INBP,2,0 


CLA 


0,2 


PAX 


Gt 4 


TXL 


I NBP 1,4,-2 


STL 


MODE 


PXD 


0,2 


TSX 


NUMBRP,4 


TNZ 


LSQ 


PXD 


0,2 


LDQ 


$GSYMD,4 


TSX 


GET, 4 


TNZ 


LSQ 


SXD 


$ERR0R,4 



THIS IS THE INPUT 
START OF .SYMBOL TABLE 



SAVE REST 
ORIGIN IN 
NIL MEANS 



OF LISTING 
1X2 

BPS ASSEMBLY 



NOT 



CAR OF ORIGIN 
ATOM MEANS BPS MODE 
NOISE = NOT BPS 
MAKE NUMBER TEST 

IF A NUMBER 
ORIGIN TO AC 
(QUOTE SYM J, 

ORIGIN WAS FOUND 



LS117630 
LSH7640 
LS117650 
LS117660 
LS117670 
LS117680 
LSI 17690 
LS117700 
LS117710 
LSI17720 
LS117730 
LS117740 
LS117750 
LS117760 
LS117770 
LS117780 
LS117790 
LS117800 
LS117810 
LS117820 
LS117830 
LS117840 
LS117850 
LS117860 
LSU7870 
LS117880 
LS117890 
LS117900 
LS117910 
LSI17920 



LS117930 
LSI 17940 
LSU7950 
LS117960 
LS117970 
LS117980 
LS117990 
LS118000 
LS118010 
LS118020 
LS118030 
LS118040 
LS118050 
LS118060 
LS118070 
LS118080 
LS118090 
LS118100 
LS118110 
LS118120 
LS118130 
LS118140 
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BINARY CARD KG. LISP0462 



76731 


-0754 


GO 


2 


00000 


76 73 2 


0074 


GO 


4 


02314 


76733 


5 4 436C600154 


76 734 


-0754 


00 


2 


OOOQO 


76735 


074 


CO 


4 


15343 


76 73 6 


-0 7 34 


00 


A 


00000 


76737 


500 


CO 


4 


00000 


7674 C 


0020 


GO 





76751 


76741 


-07 54 


CO 


4 


coooo 


76742 


CC74 


CO 


4 


05446 


76 74 3 


-0 520 


CO 


C 


03073 


7674 4 


5 00 


CO 





03065 


76745 


05 20 


CO 





03073 


76746 


■0 5GG 


CO 





03054 


76 74 7 


0600 


CO 





77454 


76 75 


CO 74 


CO 


4 


77102 


76 751 


0601 


GO 





77451 


76752 


06 01 


CG 





77452 


76753 


6 GO 


CO 





77453 


76754 


5 CO 


CO 





77435 


7675 5 


74 


CO 


4 


05662 


76756 


-0 7 74 


CO 


4 


77436 


BINARY CARD NO. 


LISPG463 


76 757 


-0 7 54 


00 


4 


coooo 


7676 


0074 


CO 


4 


05342 


76 76 1 


00 74 


00 


4 


77110 


76 762 


500 


00 





200 54 


76763 


0520 


CO 





77434 


76764 


0074 


00 


A 


05342 


76 76 5 


520 


CO 





77 454 


76766 


020 


CO 





76774 


76 767 


0534 


GO 


4 


7745i 


76770 


-0 5 20 


CO 





0307 3 


76 771 


0522 


CO 


'0 


045 77 


76772 


520 


CO 





03073 


7677 3 


5 22 


CO 





04576 


7677 4 


0534 


CO 


4 


77452 


76775 


6 34 


CO 


4 


77451 


76776 


-0534 


CO 


4 


20052 


7677 7 


0500 


GO 


4 


00000 


77000 


0622 


CG 





77450 


77001 


-0 625 


CO 





77453 


77002 


74 


CO 


4 


77110 


77003 


5 20 


CO 





77454 


77 004 


0020 


CO 





77067 


BINARY CARD NC- 


LISP 046 4 


7700 5 


5 34 


CO 


4 


77451 


7700 6 


-0 520 


CO 


C 


03073 


7 7007 


634 


CO 


4 


03065 


77010 


520 


CO 





03073 


77011 


6 34 


CO 


A 


03054 



LSQ 



LSO 



INBPi 



INBR 



LAP PI 



LAPP2 



PXD 
TSX 
BCI 
PXD 
TSX 
PDX 
CLA 
TRA 

PXD 
TSX 

nzi 

CLA 
ZET 
CLA 
STZ 
TSX 
STO 
STO 
STZ 
CLA 
TSX 
AXC 



PXD 
TSX 
TSX 
CLA 
ZET 
TSX 
ZtT 
TRA 
LXA 
NZT 
XEC 
ZET 

xec 

LXA 
SXA 
LXD 
CLA 
STD 
STL 
TSX 
ZET 
TRA 



LXA 
NZT 
SXA 
ZET 

SXA 



G,2 

$ERR0R+1,4 

1,«L 1* 

0,2 

NUMVAL.4 

0,4 

C4 

LAPP1 



C4 
$PRIN1,4 

BPLACE 
$ORG 
BPLACE 
SXORG 
MODE 
JUST, 4 
STAR 
START 
PASWD 
LPBLNK 
$PRIN2,4 
LAPPRT,4 



0,4 

$PRINT 
PA 
TA 

LAPTAB 
$P 
MO 
LA 
ST 
BP 
LB 
BP 
LT 
ST 
ST 
LI 
C 
RE 
PA 
PA 
MO 
LE 



,4 
SS,4 

B 

RINT,4 

OE 

PP2 

AR,4 

LACE 

PTP 

LACE 

BPFJ 

ART, 4 

AR,4 

ST, 4 

4 

ST 

SWD 

SS,4 

DE 

NO 



STAR, 4 
BPLACE 
$0RG,4 
BPLACE 

$X0RG,4 



SHOW IT 
UNDEFINED ORIGIN 



GET NUMERICAL VALUE 

PUTS SYM IN AC FOR NOT BPS MODE 



TEST IF EXCISABLE PROGRAM 



INDICATES BRS MODE 
JUSTIFY AC 
UPDATE MARKER 
RESET MARKER 
INDICATE PASS 1 



PRINT SYMBOL TABLE 



TEST FOR OUT OF BPS 



CHECK 

RESET STAR FOR SECOND PASS 



USED BY PASS AGAIN 
NOISE MEANS PASS 2 
FOR PASS 2 

IF NOT IN BBS MODE 



RSET ORG FOR NEXT ASSEMBLY 
TEST TF BPS OR EXCISABLE AREA 



LS118150 
LS118160 
LS118170 
LS118180 
LS118190 
LSI 18200 
LS118210 
LS118220 
LS118230 
LS118240 
LS118250 
LS118260 
LS118270 
LS118280 
LS118290 
LS118300 
LS118310 
LSI 18320 
LS118330 
LS118340 
LS118350 
LS118360 
LS118370 



LS118380 
LSI 18390 
LS118400 
LSU8410 
LS118420 
LS118430 
LS118440 
LS118450 
LSH8460 
LSI 18470 
LS118480 
LS118490 
LS118500 
LS118510 
LS118520 
LS118530 
LS118540 
LS118550 
LS118560 
LS118570 
LS118580 
LS118590 



LS118600 
LS118610 
LS118620 
LS118630 
LS118640 
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77012 
77013 
77014 
77015 
77016 
77017 
7702C 
7702 1 
77022 
7702 3 
77024 
77025 
77026 
77 02 7 
77030 
77031 
77032 



-C534 

C5C0 

C7 34 

C5G0 

0734 
-0734 

3 7 7776 
-C634 CO 

G5G0 

0734 
-0 6 34 
-0 320 

CO 74 

622 

534 

06 34 

0500 



CO 
CO 
CO 
CO 
CO 
CO 



CC 
CO 
CC 
CO 
CO 
CC 
CO 
CO 
CO 



4 20052 

4 00000 
4 CCOOO 
00000 
00000 

ccooc 

77067 
77076 
COOOG 
00000 
77077 
00514 
4 12 703 
€ 77100 
4 77452 
4 77100 
C 77076 



BINARY C 
7703 
7703 
7703 
7703 
7703 
7704 
7704 
7704 
7704 
7704 
7704 
7704 
7704 
7705 
7705 
7705 
7705 
7705 
7705 
7705 
7705 
7706 



ARD NO. 



C560 
074 
G1C0 

-0734 
5 GO 
C737 
5 CO 

-0 501 
0601 
5 GO 
0601 
0020 
C5C0 

-C534 

-3 104 
3 104 

-C320 
C074 
0131 

-05 34 
C5G0 

-0320 



LISPO 
CO 
CO 4 
CC 
CO 2 
CO 2 
CO 4 
CO 
CO 
CC 4 
CO 
CO 2 
CO 
CO 
CC 4 

12 4 

13 4 
CO 
CO 4 
CO 
CO 2 
CO 2 
00 



465 

77 077 
12762 
77047 
00000 
CO 000 
COOOO 
77452 
77101 
00000 
77100 
OOOQO 
77067 
77100 
77077 
77054 
77054 
00513 
04451 
OOOQO 
77076 
COOOG 
0C514 



BINARY CARD NO. LISP0466 



7706 I 
77062 
77063 
77064 
77065 
77066 
7 7067 
7707C 

7707 1 
77072 



0131 
0074 
01:31 
G500 
0C74 
622 
C500 
6 00 
C6G0 
0600 



CC 
CO 
CC 
CC 
CC 
CO 
CC 
CC 
CO 
CO 



CCOOO 
04471 
00000 
77077 
04471 
COOOO 
2G054 
2005 2 
20054 
77447 



PKIND 



IND2 



LEND 



LXD 


LIST,4 


CLA 


0,4 


PAX 


0,4 


CLA 


0,4 


PAX 


0,2 


PDX 


0,4 


TXH 


LEND,2,-2 


SXD 


NAME, 2 


CLA 


0,4 


PAX 


0,2 


SXD 


TYPE, 2 


ANA 


$CMASK 


TSX 


CADARX,4 


STD 


INDC 


LXA 


START, 4 


SXA 


INDC, 4 


CLA 


NAME 


LDQ 


TYPE 


TSX 


GET, 4 


TZE 


MKIND 


PDX 


0,2 


CLA 


0,2 


PAC 


0,4 


CLA 


START 


ORA 


PATCH 


STO 


C,4 


CLA 


INDC 


STO 


0,2 


TRA 


LEND 


CLA 


INDC 


LXD 


TYPE, 4 


TXL 


IND2,4,$SYM-1 


TXH 


IND2,4,$SYM 


ANA 


SAMASK 


TSX 


$C0NSW,4 


XCA 




LXD 


NAME, 2 


CLA 


0,2 


ANA 


$DMASK 


XCA 




TSX 


$C0NS,4 


XCA 




CLA 


TYPE 


TSX 


$C0NS,4 


STD 


0,2 


CLA 


TAB 


STZ 


LIST 


ST2 


TAB 


STZ 


INST 


DONT 


STORE ZERO IN QT 



CWR OF LISTING 

GETS CWR OF ORIGIN 

CAR OF ORIGIN 

CDR OF ORIGIN 

IF ATOM THEN NO TXL 

CAR OF ORG IS NAME 



NEEDED 



CADR OF ORIGIN IS TYPE 

STORE TYPE 

CDDR IS NOE IN AC 

CADAR PUTS PART OF NUM IN DECR OF 

FOR TXL WORD 

COMPLETES TXL WORD 



AC 



IF THERE WAS NO OLD TXL 

SAVE POINTER TO TXL 

CWR OF OLD TXL 

POINTER TO OLD BIN PTROG. 

START OF NEW PROGRAM 

MAKE TRA INSTRUCTION 

CLOBBER OLD PROG. 

ON TOP OF OLD TXL 



SYM SHOULD HAVE NO TXL ON POINTER 



SAVE AC 

NAME OF SU8R OR TYOE 

CDR OF NAME NOW IN AC 



CONS <TXU,RESIGF PROPERTY LIST) 



CGNS»TYPE,RSf DF ATM) 
RPLACD OF PROPERTY 91 ST 



LSI 
LSI 
LSI 
LSI 
LSI 
LSI 
LSI 
LSI 
LSI 
LSI 
LSI 
LSI 
LSI 
LSI 
LSI 
LSI 
LSI 



18650 
18660 
18670 
18680 
18690 
18700 
18710 
18720 
18730 
18740 
18750 
18760 
18770 
18780 
18790 
18800 
18810 



77073 0774 CO 4 OOOQO LAX 



AXT 



**,4 



LS118820 
LS118830 
LS118840 
LSI 18850 
LS118860 
LS118870 
LS118880 
LS118890 
LS118900 
LS118910 
LS118920 
LS118930 
LS118940 
LS118950 
LS118960 
LS118970 
LS118980 
LS118990 
LSH9000 
LS119010 
LS119020 
LSI 19030 



LS119040 
LS119050 
LS119060 
LS119070 
LS119080 
LSI 19090 
LS119100 
LS119110 
LS119120 
LS119130 
LS119140 
LS119150 
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77074 0774 CO 2 COOOO 

77075 0020 CO 4 00001 

77076 OOOCO COOOO 

77077 GOOCO COOOO 

77100 -3 OOOCO 00000 

77101 0020 CO 00000 



77102 0120 CG 

77103 0760 CO 

77104 0402 GO 

77105 -0320 CO 

77106 -0140 GO 



77105 
00006 
CG425 
G0513 

4 00001 



BINARY CARD NO. 
77107 0020 



LISP0467 
CO 4 OOOQl 



77110 
77111 
77112 
77113 
77114 
77115 
77116 
77117 
77120 
77121 
77122 
77123 
77124 
77125 
77126 
7712 7 
7713C 
77131 
77132 
77133 
77134 



C634 CO 

-C534 CO 
-3 OOOCO 

C5G0 00 

06 22 CC 

G7 34 CO 
-0634 CO 
-3 COOOO 

G5C0 CC 

734 00 
•3 77776 

5 20 CO 

020 

0500 

5 60 

0074 

0131 

500 

0074 

0560 

GO 74 



CO 

GO 
CC 
CO 
CO 

CO 
CO 
GO 
00 



77145 

77450 
77145 
OOOQG 
77450 
00000 
77447 
7713 7 
00000 
CGOOO 
77137 
77453 
77 111 
77451 
00540 
13624 
00000 
77447 
04471 
20054 
04471 



BINARY CARD NO. LISP0468 



77135 
77136 
77137 
7714C 
77141 
77142 
7 7143 
77144 
7 7145 



06O1 
GG20 
C520 
0074 

5 34 

1 000 CI 
6 34 CO 
20 CG 
7 74 CO 



CO 
CO 
CO 
CO 
CO 



20054 
77111 
77453 
77147 
77451 
77143 
77451 
77111 
00000 



* ALL 

NAME 
TYPE 
INDC 
PATCH 



AXT **,2 
TRA 1,4 
LAP REGISTERS 



T X L * * , , * 

TRA ** 
AGDR{REM)=IX4 



FOLLOW, INCL. THOSE USED BY SUBROUTINES 
NAME OF FUNCTION 
SUBR FSUBR ETC 

* FOR TSL WORD 

FOR CLOBBER INSTRUCTION 
SAVED. DECR=R£ST OF LIST FIELD 



* JUST REDUCES THE AC MOD 

* IT IS ALWAYS POSITIVE 



2**15. THE RESULT IS 15 BITS IN ADDR OF AC 



JUST 



TPL 


* + 3 


COM 




SUB 


$G1 


ANA 


$AMASK 


TNO 


1,4 



TRA 

PASS DOES 
FIRST 



1,4 

BOTH 
PASS 



PASS 
L0P1 



AMBL 



PAUX 



SECOND 

SXA 

LXD 

TXL 

CLA 

STD 

PAX 

SXD 

TXL 

CLA 

PAX 

TXL 

ZET 

TRA 

CLA 

LDQ 

TSX 

XCA 

CLA 

TSX 

LDQ 

TSX 



STO 
TRA 
ZET 
TSX 
LXA 
TXI 
SXA 
TRA 
AXT 



PASSES FOR LAP 

MAKES SYMBOL TABLE AND UPDATES ON INSTRUCTIONS 



PASS IGNORES 
PAUX, 4 
REST, 4 
PAUX,4,0 
0,4 
REST 
0,4 

INST, 4 
AMBL,4,0 
0,4 
0,4 

AMBL,4,-2 
PASWD 
LCP1 
STAR 
$OCTD 
3MKN0,4 

INST 

ICONS, 4 

TAB 

$CCNS,4 



TAB 

LCP1 

PASWD 

AINS.4 

STAR, 4 

*+l,4,l 

STAR, 4 

L0P1 

**,4 



SYMBOLS ASSEMBLES AND UPDTS INSTRUCTIONS 



IF NO MORE LISTING 



RESET REST OF LISTING 



IF NIL 



IF NOT ATOM 



IF PASS 2 
OTHERWISE 



ADD 



TO TABLE 



MAKE A NUMBER 



(NAME. VALUE) 



LAND HERE IF INSTRUCTION NOT SYMBOL 
ON PASS 2 ONLY 



LS119160 
LS119170 
LS119180 
LS119190 
LS119200 
LSU9210 
LS119220 
LS119230 
LS119240 
LS119250 
LS119260 
LS119270 
LS119280 
LS119290 
LS119300 
LS119310 



LS119320 
LS119330 
LS119340 
LSU9350 
LSI 19360 
LS119370 
LS119380 
LS119390 
LS119400 
LS119410 
LS119420 
LS119430 
LS119440 
LS119450 
LSI 19460 
LS119470 
LS119480 
LSI 19490 
LSI 19500 
LS119510 
LS119520 
LS119530 
LS119540 
LS119550 
LS119560 
LS119570 



LS119580 
LS119590 
LS119600 
LS119610 
LS119620 
UPDATE * AFTER INSTRUCTION IS ASSEMBLELS119630 

LS119640 
LS119650 
LS119660 
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77146 CC20 CO 4 0C0Q1 



77147 
7715C 
77151 
77152 
77153 
77154 
77155 
77156 
77157 
77160 
77161 
7716 2 



634 
0074 
G6C1 
74 
0074 

-C602 
0074 
0767 
0140 

-0602 
00 74 
74 



CO 
CO 
60 
00 
CO 
6 
GO 
CO 
GO 
60 
CO 
CO 



77165 
77167 
77451 
7 716 7 
77102 
77451 
77167 
00017 
77160 
77451 
77167 
77102 



BINARY CARD NO. 
7716 3 767 

77164 -0602 

77165 0774 

77166 0G20 



LISP 046 9 
CO 00022 
60 77451 
CO 4 00000 
CO 4 00O01 



7716 7 
77170 
77171 

7717 2 
77173 
77174 
77175 
77176 
77177 
7720C 
77201 
77202 
77203 
77204 
77205 
77206 
77207 
77 2 IC 



0634 GO 

0600 CO 
-0534 CO 
-3 000 CO 

5 00 CC 

06 22 

0734 

G5C0 

734 
-3 77776 

3 COOCO 
-0520 CC 

500 

520 

5 CO 

0020 
■07 54 

0560 



CO 
CO 
CC 
GO 



CO 
CO 
CC 
CO 
CO 
GO 



77404 
77457 
77447 
77165 
00000 
77447 
00000 
COOQO 
00000 
77257 
77207 
03073 
03065 
03073 
03054 
77404 
CCOOO 
77462 



BINARY CARD NO. LISP0470 



77211 
77212 
77213 
77214 
77215 
77216 
77217 



-0600 
560 
0074 
0100 
0074 
0074 

-0 734 



CO 
CO 
CC 
CO 

CC 
CC 
CO 





4 
■0 
4 
4 
4 



04063 
20O54 
10662 
77222 
1627C 
1534 3 
00000 



* A INS 
A INS 



A I NX 



TRA 

IS ThE 

SXA 

TSX 

STO* 

TSX 

TSX 

ORS* 

TSX 

ALS 

TOV 

ORS* 

TSX 

TSX 



ALS 
ORS* 
AXT 
TRA 



1,4 

INSTRUCTION 
A I NX, 4 
AFELD,4 
STAR 
AFELD.4 
JUST, 4 
STAR 
AFELD,4 
15 
* + l 
STAR 
AFELD,4 
JUST, 4 



18 

STAR 
**,4 
1,4 



ASSEMBLER. ARG IS IN INST. VAt IS IN AC 



THIS IS ADDRESS FIELD 



TAG FIELD 



AFE1 

IT 

ARE 

AFEI 

SLK 

ITS! 



LEM 



LD IS 
EVALUA 
LEFT, 
LO HAS 
GHTLY 
ELF WI 
AFELD SXA 
STZ 
LXD 
TXL 
CLA 
STD 
PAX 
CLA 
PAX 
TXL 
TXH 
NZT 
CLA 
ZET 
CLA 
TRA 
PXD 
LDQ 



STQ 
LDQ 
TSX 
TZE 
TSX 
TSX 
PDX 



LAPP3 



NEVAL 



THE FIELD EVALUATOR. A 
TES THE FIRST AND SETS 
IT GOES TOAINX, THE £ 
CERTAIN PRIVATE CELLS 
RECURSIVE DEVISE WHICH 
THOUT ERROR. 

FELX,4 

NOCUR 

INST,4 

AINX,4,0 

0,4 

INST 

0,2 

0,2 

0,4 

NATM,4,-2 

LAPP3,2,0 

BPLACE 

$ORG 

BPLACE 

$XORG 

FELX 

0,2 

LSAC 



$ARG3 

TAB 

SASS0C,4 

NTAB 
$CDRP,4 
NUMVAL,4 
0,4 



NO OVERFLOW AFTER JUST 



LIST OF FIELDS IS EXPECTED IN I 
INST TO THE REST. IF NO MORE FI 

XIT POINT OF AINS 

,SEE AFTER LAP.) THE LIST AFELQ 
HAS SPECIAL CELLS AND CANNOT RE 



IF NO MORE FIELDS 
REST OF FIELDS 

IF NOT ATOMIC FIELD 

TEST IF BPS OR EXCISABLE AREA 

TEST IF BPS OR EXCISABLE AREA 

FN ARG FOR SASSOC 



LOOK UP IN 
NOT IN TAB 



SYM TABLE 



LS119670 
LS119680 
LS119690 
LS119700 
LS119710 
LSU9720 
LS119730 
LS119740 
LS119750 
LS119760 
LS119770 
LS119780 
LS119790 
LS119800 
LS119810 



LS119820 
LS119830 
LS119840 
LS119850 
LS119860 
NST, LS119870 
ELOS LELS119880 
LS119890 
IS A LS119900 
ENTER ILS119910 
LS119920 
LS119930 
LSI 19940 
LS119950 
LS119960 
LS119970 
LS119980 
LS119990 
LS120000 
LS120010 
LS120020 
LS120030 
LS120040 
LS120050 
LS120060 
LS120070 
LS120080 
LS120090 
LS120100 



LS120110 
LS120120 
LS120130 
LS120140 
LS120150 
LS120160 
LS120170 



wmm 



■MP 
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77220 
77221 
77222 
77223 
7722 4 
77225 
77226 
77227 
77230 
7 7231 
77232 
77233 
77234 
77235 
77236 



0500 

OC20 
-0 7 54 

0074 

100 
-0754 

0020 
-0634 

C500 
-0734 

7 34 

3 000 GO 
-C634 GO 

0500 GO 

0074 CO 



CO 
CO 
00 

CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 



BINARY CARD NO. LI 



77237 
7724C 
77241 
77242 
77243 
77244 
77245 
77246 
77247 
77250 
7725 1 
77252 

77253 
77254 
77255 
77256 

77257 
77260 
77261 
77 26 2 
77263 
77264 



5 4 436 C 6 
-3 10412 
-3 10413 
104 37 
1044 
1162 7 
11630 
CO 



—3 

-3 

-3 

3 



0500 
734 
0500 
-0 3 20 
0G2O 



CO 
CO 
CO 
CO 



4 GOOQO CLA 0,4 

G 77404 TRA FELX 

2 COOOO NTA.6 PXO 0,2 

4 15446 TSX NUMBRP,4 

77227 TZE *+3 

2 COOOO PXD 0,2 

77216 TRA NEVAL 

2 77461 SXD ERCC2 

COOOO 10P2 CLA 0,2 LOOP FOR 

COOOO POX 0,2 

COOOO PAX 0,4 

77240 TXH PA, 2,0 

02313 SXD $ERR0R,4 

77461 CLA ERCC 

4 02314 TSX $ERR0R+l,4 

SP0471 

00354 BCI 1,*L 3* 

4 77242 PA TXL *+2 , 4 , $SYM-1 

77253 TXL FINX,.4,$SYM 

77244 TXL *+2 , 4 , $SUBR-1 

77246 TXL FIND,4,$SUBR 

4 77230 TXL L0P2 ,4 , $FSUBR-1 

4 77230 TXH L0P2, 4, $FSUBR 

2 OOOQO FIND CLA 0,2 

4 COOOO PAX 0,4 

4 00000 CLA 0,4 

00513 ANA SAMASK 

77404 TRA FELX 



4 

4 
4 



0500 CO 
734 00 
05G0 GO 
0020 CO 

-3 074 5 2 
3 074 5 3 

-C754 CO 
0074 CO 
00 74 GO 
0771 CO 



00000 
COOOO 
00000 
77404 

77266 
77266 
COOOO 
12721 
77406 
00022 



FINX 



NATM 



BINARY CARD NO. LISP0472 



77265 
77266 
77267 
7727C 
77271 
77272 
77273 
77274 
77 27 5 
7727 6 
77277 
77300 



0020 CO 

-3 10774 

3 10775 

-0734 CO 

500 CO 

0734 00 

-0 5 34 CO 

-3 OOOCG 

0500 CC 

0601 CO 

734 CO 

500 CO 



IF NOT A NUMBER 
LISP NUMBER IN AC 

SAVE ATOM 
SYK f SUBR,FSUBR 



IF NOT NIL 



UNDEFINED SYMBOL 



CLA 0,2 

PAX 0,4 

CLA 0,4 

TRA FELX 

TXL NTt,4,$H25~l 

TXH NTF,4,$H25 

PXD 0,2 

TSX CADRXX,4 

TSX PRO, 4 

ARS 18 



FOR (E EXP) 

ENTIRE FIELD 

PROTECT LITERAL ON PROS LIST 



77404 TRA FELX 

4 77325 NTE TXL NQT ,4 , $QUOTE- 1 

4 77325 TXH NGT,4,$QU0TE 

2 00000 POX 0,2 

2 00000 CLA 0,2 

2 COOOC PAX 0,2 

4 20053 LXD QTLST,4 

4 77310 TXL N0N,4,0 

4 00000 FLOOR CLA 0,4 

77455 STO HOLD 

4 COOOO PAX 0,4 

4 GOOO0 CLA 0,4 



LAND HERE FOR NOT (E... 
ABOVE AND THIS FOR (QUOTE., 
AC HAS CWR OF FIELD 

POINTER TO EQ QUANTITY 

TEST FOR NO LIST 

AN EQUAL TYPE SEARCH 

TEMPORARY SAVING OF REST 



LS120180 
LS120190 
LS120200 
LS120210 
LS120220 
LS120230 
LS120240 
LS120250 
LS120260 
LS120270 
LS120280 
LS120290 
LS120300 
LS120310 
LS120320 



LS120330 
LS120340 
LS120350 
LS 120360 
LS120370 
LS120380 
LS120390 
LS120400 
LS120410 
LS120420 
LS 120430 
LS120440 
LS 120450 
LS120460 
LS120470 
LS120480 
LS120490 
LS120500 
LS120510 
LS120520 
LS120530 
LS120540 
LS120550 
LS120560 



LS120570 
LS120580 
LS120590 
LS120600 
LS120610 
LS120620 
LS120630 
LSI 20640 
LS120650 
LS120660 
LSI 20670 
LS120680 
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77301 
77302 
77303 
77304 
77305 
77306 
77 30 7 
773 IC 
77311 
77 312 

BINARY CA 
77313 
77314 

77315 
77316 
77317 
77 32 
77 321 
77322 

77323 
77324 
77325 
77326 
77327 
7733C 
77331 
7733 2 
77333 
77 334 
77 335 
77336 
7733 7 
7734C 

BINARY CA 
77341 
77342 
77343 
77344 
77345 
77346 
77347 
7735C 
77351 
77352 
77353 
77354 
7735 5 
77356 
77357 
7736C 
77361 



-0320 

0131 
-0 7 54 

0074 
-0100 
-0 534 

3 000 GO 
-0754 CO 

0131 CO 

0754 00 



00 
00 
CO 
CO 
CO 
CG 



RD, NC» LISP 
0074 CO 4 
06 01 CO C 



560 
0074 
0601 

-C535 
7 54 
0020 

C535 
0C2O 

-3 106 
3 106 
5 60 

-0 320 
0074 
0074 

-0100 
0560 
C074 
0601 

-0754 
0074 

RD NO;. 

-C724 
0074 
0131 
0500 
CO 74 
0131 
0500 
074 
0622 
0074 
0074 

-0737 
0020 

-0520 
0020 

-0634 
00 74 



CO 
CG 
CG 
GO 
GO 
CO 

GO 
GO 
14 
15 
CO 
CO 
CO 
CO 
CO 
CO 
CO 4 
00 
GO 2 
00 4 



00514 
00000 
00000 
05225 
77323 
77455 
77275 
00000 
GOOOO 
CO 000 

0473 
04471 
77455 

2C053 
04471 
20053 
77455 

ooooo 

77404 

77455 
77 321 
77356 
77356 
00544 
00514 
16260 
12762 
77 35 3 
00424 
04 471 
2C055 
GOOOO 
12721 



LISPO 
CO 2 
CG 4 
CO 
CG 
CC 4 
CO 
00 
CC 4 



CO 
CO 
CO 
CO 
CO 
00 
CG 
CO 4 
CO 4 



474 

GOOOO 

16270 

OOOOO 

20O55 

04471 

COOOO 

00544 

G4471 

OOOOO 

12721 

7 7406 

OOOOO 

77321 

77457 

77363 

02313 

02314 



NGN 



TRP 

CNQT 
NQT 



SPP 



FDLST 



ANA 
XCA 
PXD 
TSX 
TNZ 
LXD 
TXH 
PXD 
XCA 
PXA 



TSX 

STO 

LDQ 

TSX 

STO 

LDC 

PXA 

TRA 

THIS 

LAC 

TRA 

TXL 

TXH 

LDQ 

ANA 

TSX 

TSX 

TNZ 

LDQ 

TSX 

STO 

PXD 

TSX 



PDX 
TSX 
XCA 
CLA 
TSX 
XCA 
CLA 
TSX 
STD 
TSX 
TSX 
PDC 
TRA 
NZT 
TRA 
SXD 
TSX 



IS 



*0MASK 

C,2 

$EQUAL,4 
CNQT 
HOLD, 4 
FLO0P,4,0 
0,2 

0,0 



LITERAL QUANTITY FOR EQUAL COMPARISON 

THE NEW ITEM 
TEST FOR EQUALITY 
IF ALREADY ON LIST 

IF NOT HEAD OF QTLIST 
NEED TO MAKE ENTRY 



CONS (NIL 
NEEDS NO 



EXP) 
PROTECTION 



CONS ({ NIL. EXR, 



WANT TRUE POINTER 



$CCNS,4 

HOLD 

FOLLOWS 

QTLST 

$C0NS,4 

QTLST 

HOLD, 4 

0,4 

FELX 

POINTER TO A NIL. EXP WORD IN FREE STORAGE 

HOLD, 4 

TRP 

FDLST,4,SPECAL-1 

FDLST,4,SPECAL 

GSPECD 

$DMASK 

$CARP,4 

GET, 4 

SPP 

*ZERO 

$C0NS,4 

LCOM 

0,2 

CADRXX,4 



0,2 

$CDRP,4 



AS SEEN BY WHAT 



(SPECIAL NAME) 
SPECIAL IN MQ 
(NAME) IN AG 



JUST WEED TO ASSURE PROTECTION 



AC HAS ZERO IF 
PROTECTED TEMP 
(SPECIAL NAME) 



YOU ARE 
CELL 



HERE 



LCOM 

SCONS, 4 

QSPECD 

$CCNS,4 

0,2 

CADRXX,4 

PRO, 4 

0,4 

TRP 

NOCUR 

* + 4 

$£RK0R,4 

$ERR0R+1» 



RPLACD OF NAME 
POINTER TO (NIL) 



LS120690 
LS 120700 
LS120710 
LS120720 
LS120730 
LS120740 
LS120750 
LS120760 
LS120770 
LS 120780 



NO RE-ENTRY TO AFELD LIST IS ALLOWED 



LS120790 
F0LS120800 
LS120810 
LS120820 
LS120830 
LS120840 
LS120850 
LS120860 
LS120870 
LS120880 
LS120890 
LS120900 
LSI 20910 
LS120920 
LS120930 
LSI 20940 
LS120950 
LS120960 
LS120970 
LS120980 
LS120990 
LS121000 
LS121010 
LS121020 



LS121030 
LS121040 
LS121050 
LSI 21060 
LS121070 
LS121080 
LS121090 
LS121100 
LS121110 
LS121120 
LS121130 
LS121140 
LS121150 
LS121160 
LS121170 
LS121180 
LS121190 
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77362 54436C600454 

77363 -0625 CO 77457 

77364 0600 GO 77456 

77365 C534 CO 4 77404 

77366 0634 CO 4 77460 

BINARY CARD NC. LISP0475 

77367 C5C0 CO 2 OOOOO 
77 370 6 22 CO -0 77460 

77371 C734 GO 2 OOOOO 

77372 -G774 GO 4 77374 
77 37 3 06 34 CO 4 77404 

77374 0020 CO 77176 

77375 04C0 CO 77456 

77376 0601 CO 77456 

77377 -0534 CO 2 77460 
7740C 3 OOOOO 2 77367 

77401 C600 00 77457 

77402 0534 CO 4 77460 

77403 0020 00 4 C0O01 

77404 0774 GO 4 OOOOO 

77405 0020 CO 4 00001 

77406 0634 CO 4 77422 



77407 
7 741C 
7 7411 
77412 
77413 
77414 



0601 

622 
04C2 
C622 
5 CO 
•0 734 



GO 
CO 
CO 
CO 
CO 
CO 





G 


4 



77446 
77421 
00476 
77420 
20056 
COOQO 



BINARY CARD NC- LISP0476 



77415 
77416 
77417 
77420 
77421 
77422 
77423 
77424 



-3 OOOCO 
C5G0 GO 
C734 CG 

-3 OOOOO 
3 OOOOO 
0774 CC 
500 CO 
0020 CO 



77425 
OOOOO 
OOOOO 
77414 
77414 
OOOOO 
77446 
4 G0001 



77425 0560 

77426 0500 

77427 0074 

77430 0601 

77431 O020 



CG 
CO 
00 
CC 
CO 



20056 
77446 
4 04471 
20056 
7 7422 



77432 
7743 3 



C601 
0020 



CO 77434 
CO 4 00001 



LGPL 



FELX 

* 
PRO 



PNL 



PL 
PH 
PX 



* 

PMK 



77434 OOOCO OOOOO 

77435 -207777777777 



* 

* 

SYMTAB 



LAP TAB 
LPBLNK 



BCI 
STL 
STZ 
LXA 
SXA 



CLA 
STD 
PAX 
AXC 
SXA 
TRA 
ADD 
STO 
LXD 
TXH 
STZ 
LXA 
TRA 
AXT 
TRA 

SXA 
STO 

STD 
SUB 
STD 
CLA 
PDX 



1,*L 4* 

NOCUR 
SUM 

FELX, 4 
KEM,4 



C2 

REM 

0,2 

* + 2,4 

FELX, 4 

LEM 

SUM 

SUM 

REM,2 

L0PL,2,0 

NOCUR 

REM, 4 

1,4 

**,4 

L ,4 

PX,4 

PTR 

PH 

$QD1 

PL 

PROS 

0,4 



TXL PMK, 4,0 

CLA 0,4 

PAX 0,4 

TXL PNL, 4,** 

TXH PNL,4,»* 

AXT **,4 

CLA PTR 

TRA 1,4 

LDQ PROS 

CLA PTR 

TSX $C0NS,4 

STO PROS 

TRA PX 

SYMTAB SETS LAPTAB — 

IS NOT PRINTED BY LAP 



STO 

TRA 



LAPTAB 
1,4 



NO RECURSIVE FIELDS ALLOWED 
PREVENT RECURSION 
RESET SUM WORD 

SAVES THE RETURN FOR AFELD 



REENTER THE EVALUATOR 



REST OF FIELDS 

IF THERE ARE MORE FIELDS 4SUBFLDS) 

ALLOWS ENTRY TO LIST AFELD AGAIN 



SAVE ARGUMENT 

SET UP TXH 

AND 

TXL SIEVE 

GET PROTECTED LIST 



END OF LIST, SO MAKE NEW ENTRY 



FALL THROUGH IF FOUND 



RESTORE AC 



MAKE A NEW ITEM 



STORE NEW LIST 
AND RETURN 

IF LAPTAB = Of THEN SYMBOL TABLE 



OCT 6C7777777 7 77 



LS121200 
LS121210 
LS121220 
LS121230 
LS121240 



LS121250 
LS121260 
LS121270 
LS121280 
LS121290 
LS121300 
LS121310 
LS121320 
LS121330 
LSI 2 1340 
LS121350 
LS121360 
LS121370 
LS121380 
LS121390 
LS121400 
LS121410 
LS121420 
LS121430 
LS121440 
LS121450 
LS121460 
LS121470 



LS121480 
LS121490 
LS121500 
LS121510 
LS121520 
LS121530 
LS121540 
LS121550 
LS121560 
LS121570 
LS121580 
LS121590 
LS121600 
LS121610 
LS121620 
LS121630 
LS121640 
LS121650 
LS121660 
LS121670 
LS121680 
LS121690 
LS121700 



Q 
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77436 


C0341 0C337 


LAPPRT 




*-*-3# ,-*-l 


77437 


OOOCO C0340 






-*-l 


77440 


C C0327 5 77777 






-1,5, -STAR 


7 744 1. 


C0336 77777 






-!,,-*-! 


77442 


00335 11062 






$PNAME,,-*-l 


RY CARD NC. LISP0477 








77443 


GCOCG 00334 






-*-l 


77444 


C COOCC 00333 






-*-l 


77445 


465131273145 




BCI 


1, ORIGIN 



77446 GOOCO COOOO 



7744 7 
77450 
77451 
77452 
77453 
77454 

7745 5 
77456 
77457 
77460 
77461 
7 7462 
7 7463 
77464 



GOOCO 

GOOCO 

00000 

C COOOO 

C GOOCO 

00000 

OOOCO 

c cceco o 

C COOOO 

OOOCO 

COOCC 

-3 COOCC 
-0754 00 
0020 CO 4 



00000 
00000 

ooooo 

COOQO 
COOOO 
OOOOO 
OOOOO 
COOOO 
OOOQO 
OOOOO 
OOOOO 
77463 
OOOOO 
00C01 



PTR 

* 

INST 
REST 
STAR 
START 

PASWD 

MODE 

HOLD 

SUM 

NGCUR 

REM 

ERCC 

LSAC 



HOLDS CURRENT 
REMAINDER OF 1 
» DTRECT ADORE 
RESET CELL FOR 
ZERO MEANS PAS 
ZERO MEANS 8PS 
SCRATCH CELL F 
FOR USE BY AFE 
FOR AFELD LIST 
FOR AFELD LIST 



TXL 

PXD 
TRA 
HEAD 



*+l,,0 

C,0 
1*4 





LS121710 
LS121720 
LS121730 
LS121740 
LS121750 



LS121760 

LS121770 

LS121780 

LS121790 

LS121800 

LS121810 

LS121820 

LS121830 

INSTRUCTION OR FRACTION LS121840 

ISTING, PASS ALTERS THISLS121850 

SS POINTER TO CURRENT L0LS121860 

* LS121870 

S 1. NOISE = PASS 2 LS121880 

ASSEMBLY LS121890 

OR AFELD ONLY, WATCH OUT LS121900 

LD LIST ONLY LS121910 

ONLY. PREVENTS RECURS I0NLS12 1920 

ONLY. LS121930 

LS121940 
LS121950 
LS121960 
LS121970 
LS121980 
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# 



EJECT 

BUTCH, A HOME FOR PATCHES 



77465 CCOCO COOOG BUTCH 

CU151 BUTCHL EQU 



NILSXX-*+l 



LENGTH OF BUTCH REGION 



LS121990 
LS122000 
LS122010 
LS122020 
LS122030 
LS122040 
LS122050 



mm 



mmm 



mmm 



mmm 



LISP 1.5 FOR SHARE 01 STRI BUT ION, MARCH 1965 
LAP - LISP ASSEMBLY PROGRAM 



9/20/67 



PAGE 260 



EJECT 
00371 ENDEND END CONTIN 



LS122060 
LS122070 



BINARY CARD NO. TRA00371 
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77777 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 



REFERENCES TO 

7454 

7511 

12 04C 

12 541 

11142 

112 71 

1104 5 

1201C 

11564 

11162 

424 

425 



DEFINED SYMBOLS 

F 70353 

T 70353 

EC 64664,70353 

Fl 4110,64630,7035 3 

F2 6473 7,70353 

F3 64 7 27,70353 

F4 5437*64744,70353 

F8 5336,64666,70353 

GO 4153,64707,70353 

OR 4175,64736,70353 
QO 425 

Ql 2670, 2707, 2713, 2720, 3531, 3535, 3620, 4555, 5573, 5742,11527,13250,14156,14166,14213,14561,15427 



426 02 

42 7 Q3 

430 Q4 

43 1 05 
4 32 06 

43 3 Q7 

434 08 

435 Q9 
665 4 RD 

12 551 AND 

3061 BBT 

2 363 BEX 

305 7 EFS 

3063 BFW 

11662 BIN 

35 6 BSR 

124 54 CAR 
12444 CD-R 
10166 CP1 

465 2 CTG 

2442 CCT 

16512 EQP 

2431 ERM 

2426 ERG 

242 2 ERT 

2312 ERX 

12217 F12 

1075 3 PI 3 

11542 F16 

1043 3 F17 

125 31 F18 
11746 F19 
1200C F21 
10356 f-27 
12474 F29 
1042 3 F30 
11677 F32 
10 507 F34 



6634, 6637,70353 



2722, 
2755, 



2734, 
3012 



114 3, 1235, 706 3 



15430, 15547,15667,77104 



14226 
13336,14203 

713 7 

7031 
10064 
12060 

6561, 6606, 

4105,64627,70353 

2717, 2773, 3017 

2361, 2402 

2710, 2715, 

2724* 2753, 

532,70353 

270, 310, 

646 36,70353 

64637,70353 

7333,65564,70353 

4520 

4722, 7260,14436,15652 
6 574 3,70353 

2 3 30 

2335, 2413 

2326, 2347 

2321, 2322 
646 60 ♦ 70 353 

4211,64752,7035 3 
64711,70353 

4224,65002,70353 
64631,70353 
64670,70 353 
6466 7,70353 
65005,70353 
64635,70353 
65003,70353 
64675,70353 
64767,70353 



2740, 2751, 2764, 2777 
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12 17 7 


F35 


10 27 7 


F36 


11662 


FIX 


4617 


FRX 


7426 


HCO 


742 7 


HOI 


743C 


H02 


7431 


HO 3 


7432 


H04 


7433 


H05 


7434 


HO 6 


7435 


H07 


7436 


H10 


7437 


Hll 


744G 


H12 


7441 


H13 


7442 


H14 


7443 


HI 5 


7444 


H16 


7445 


H17 


7446 


H20 


7447 


H21 


7450 


H22 


7451 


H23 


7452 


H24 


7453 


H25 


7454 


H26 


7455 


H27 


7456 


H30 


7457 


H31 


7460 


H32 


7461 


H33 


7462 


H34 


746 3 


H35 


7464 


H36 


746 5 


H37 


7466 


H40 


746 7 


H41 


7470 


H42 


7471 


H43 


7472 


H44 


747 3 


H45 


7474 


H46 


7475 


H47 


7476 


H50 


7477 


H51 


7500 


F52 


750 1 


H53 


7502 


H54 


750 3 


H55 


7504 


H56 


7505 


H57 


7506 


H60 


750 7 


H61 


7510 


H62 



64661,70353 
65014,70353 

136 35, 13636,15375,15401,15 55 1,15552,6467 7,70 35 3 
4614 

556, 13246, 13312,65020,7035 3 

552,65021,70353 

552,65022,70353 

553,65023,70353 

553,65024,70353 

554,65025,7035 3 

5 54,65026,7035 3 

555,65027,70353 

555,65030,70353 

561,65031,70353 

5 57,65032,6572 3,6 7711,703 5 3 
65033,65767,70353 

562,65035,70353 
65034,70353 
65036,70353 
65037,70353 
65040,66715,70353 
65041,70353 
65042,70353 
65043,70353 
65044,70353 

65045,70353,77257,77260 
65046,70353 
65047,70353 
65050,70353 
65051,70353 
65052,70353 

563,65053,66665,70353 

564, 65054, 67152, 7G353 
65055,70 353 
65056,70353 
6 5057,70353 

56 5,65060,65627,70353 
65061,70353 
65062,70353 
65063,70353 
65064,70353 
65065,70353 
65066,70353 
65067,70353 
65070,70353 
65071,70353 
65072,70353 
65073,65675,70353 
65074,67315,70353 
65075,70353 
65076,70353 
65077,70353 
65100,65323,70353 
65101,6 7270,70353 
65102,70353 
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7511 

7512 

7513 

7514 

7515 

7516 

7517 

752C 

7521 

7522 

7523 

7524 

7525 

65264 

66224 

66305 

6643 7 

66447 

665 7 6 

11515 

3072 

363 

10 440 

15151 

3 05 6 

1514 3 

C 

11261 

11207 

3065 

1216 7 

12572 

1177C 

12020 

12247 

11403 

10635 

11122 

11112 

436 

437 

440 

441 

442 

44 3 

444 

44 5 

446 

447 

45C 

476 

477 

50C 
501 



H63 
H64 
H65 
F66 
H67 
H70 
H71 
H72 
H7.3 
H74 
H75 
H76 
H77 
III 
1 13 
114 
117 
118 
1 19 
LAP 
LBT 
LCH 
MAP 
MAX 
MPS 
MN 
NIL 
NOT 
OCT 
ORG 
PJ1 
PJ2 
PJ4 
PJ5 
PJ6 
PJ7 
PJ8 
PJ9 
PLB 
CIO 
CI 2 
G13 
G14 
C17 
Q20 
021 
C22 
036 
063 
Q64 
CD1 

CD 2 
005 
C06 



65103,70353 
65104,70353 
65105,70353 
65106,70353 
65107,70353 
65110,70353 
65111,70353 

560,65112,65733,70226,703 5 3 
65113,65540,70353 

566,65114,66404,70353 
65115,70353 
65116,70353 
65117,70353 
64633,70353 
64710 
64715 

550,64723,70353 

550,64724,70353 
64735 

64714,70353 
2714, 2716, 2736 

216, 1115,12111 
70353 
66442,70353 

3002 
66452,70353 
647 30,70353 
64 731,70 353 

540,70353 
2663, 4 546, 
65120,70353 
65121,70353 
65122,70353 
65123,70353 
65124,70353 
65125,70353 
65126,70353 
65127,70353 
64741,70353 
3767, 4673, 
7142 



456 4,7 6 744,7700 7,7 7203 



7432,10064,13114 



1534, 

4 56 



2677 



13505 

465, 6560,13362 

5556 

3005, 3022, 5262, 5303, 
17406, 17430,17717,7 7411 

2463 

6124 
11544 



7 132, 10712, 10775, 13315, 13330, 15442, 1545 1,15465, 15477, 15530, 16311, 16512, 17242 
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502 

510 

505 

472 

47 3 

474 

47 5 

36 2 

351 

353 

1207 

355 

10537 

1720 

10413 

3060 

360 

357 

3055 

306 2 

3064 

361 

354 

352 

15 402 

15127 

16054 

4061 

4062 

4063 



4064 

4065 

4066 

406 7 

4070 

4071 

12504 

2407 

243 3 

532 

4 551 

76703 

4 56 7 

4570 

4573 

124 34 

12414 

16260 

12424 

12404 

16 270 

7215 

11574 



CG7 
CF1 
OPS 
CT1 
CT2 
CT4 
QT5 
RCH 
RDS 
REW 
RTX 
SON 
SET 
SLF 
SYM 
TBT 
TOO 
TEF 
TFS 
TFW 
TPG 
TRC 
WEF 
WRS 
ADD1 
AODP 
APP2 
ARG1 
ARG2 
ARG3 



ARG4 
ARG5 
ARG6 
ARG7 
ARGfi 
ARG9 
ATOM 
BACD 
BACE 
BIND 
BKOR 
BLAP 
BLKB 
BLKC 
BLKX 
CAAR 
CADR 
CARP 
CDAR 
CDOR 
CORP 
CELL 
CGET 



100 64 

15425, 15426, 15546, 15646 

2366, 12624 
13637, 14072 
5510,13642 
5513 
13634 

234, 1103, 1223, 
233, 305, 1176, 
176,, 307, 766, 
1177, 1505 
314, 315 
14007, 14010,64765,70353 

545,65007,65225,67177,67210,6 7217,70126,70353,77051,77052,77240,77241 
2706, 2745 

1073, 1224, 1225, 1536, 1537,12103 



1517, 1553,12107 

1236,12105 

1004 



222, 223, 

230, 260, 
2653, 2704, 
2721, 2742 
2662, 2727 
227, 257, 
311, 765, 
306, 1102, 
65201,70353 
66701,70353 
15762,70353 
4765, 5002, 



250, 
1100, 
2731, 



251, 
1217, 
2747, 



1072, 

1227 

2760 



1077, 1117, 
11415, 11422 
1516, 1552 



13002, 13011 



1231 



10535,10536,10544,10546,10 726,10 747,13003 

5152, 5204, 5216, 5217, 1022 1„ 10545 , 1056 1, 1065 1 , 10654, 10655, 10656, 11664, 12317, 12560, 12765, 13016, 14003 
140 12,14361, 14376,14427,1444 2,14453,14471,14507,14515,14525,15344,15357, 15746,15753,15764,16010,16031 
16047,16063,16136,16147,163 74,16417,1656 7,16570,16764,17022, 17344, 17506, 17535,17577,20031,77211 

5154, 5202, 5212, 5215, 5222 , I 1654, 126C3, 14014, 17600*20027 
14016, 17o01,20025 
17602,20023 
17603,20021 
17604,20017 
1760 5,20015 
64634,70353 

2355, 2420 

2417 ! 

533 

30 52 

4544, 4552 

4553 

4543 
64640*70353 
64642,70353 

65 327,6 7006,70353,7 7331 
64641,70353 
64643,70353 

65 337,70353,77215,7 7342 
70353 
6 5016,70353 
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4 510 
4626 
4640 
4651 
4650 
4636 
4637 
12237 
4471 



5111 
3110 

3203 

4464 

4467 

4465 

13622 

12102 

3 17 3 

3171 

3167 

3165 

3163 

3161 

3157 

3155 

3153 

3151 

2307 

2310 

2344 

16521 

16463 

11704 

14522 

532 

1546 7 

2473 

2476 

2537 

2535 

4512 

556 

561 

557 

562 

563 

564 

565 

560 

566 

67671 



CNSX 
CIVTA 
CNTH 
CNTM 
CNTS 
CNTX 
CNTY 
CCNC 
CCNS 



CCPY 
CPPI 

CSSI 

CSWO 
C SWQ 

cswx 

CURC 
CUMP 
ENDO 
EN01 
END2 
END3 
END4 
END5 
END6 
END7 
END8 
EN 09 
ERAC 
ERMQ 
ERT1 
EVAL 
EVOR 
EXPR 
EXPT 
FIXD 
FIXP 
FLX.T 
FPTA 
FPTO 
FPTF 
FREE 
HOOA 
HUD 
H12A 
H14D 
H33D 
H34D 
H40D 
H72A 
H74D 
HHOO 



44 71 
4622 
4625 
4515, 
4516, 
4626 
4627 
4124, 
2377, 
124 33, 
16322, 
7 7350, 
65574, 
2362, 
5 343, 
2673, 
4462 
4454, 
4451 
13253, 
64657* 



4522, 4536, 4540, 4623, 
4521, 4535, 



*!><f<J, ^ti^ i t 4645 

4635,12 570,12600,1263 7,12643 



17311, 

5137, 

12614, 

16331, 

77427 

70353 

2373, 

5762, 

3200, 



17312,64654,70353 

5220, 6630, 7335, 7340, 7343, 7346,10202,10353,10401,10431,11054,11056,11061,11064,12430 
13012,13157,13166,13375,13631,14256,14260,14263,14270,14273,14307,14447,14456,16026,16030 
16347, 1635 1,16572, 16575, 17275, 17364, 655 54, 77062, 77065, 77 132, 77T34, 77313, 77316, 77335, 77345 



24 
1260 
3373 



4464, 4606, 4612 

65623,70353 

70353 



01, 2672, 3112, 3121, 3130, 3174, 3201, 3327, 3375, 4760, 4763, 4764, 5032, 5046, 5050 
.04, 12621,12631,16712,16735,16740,16741,16766,17000,17001,17714,17742,17750,20035,20044 
73 



13655, 13671,13705,16156,17112,17423,17527 

5124, 5402, 6613,10235,10366,15160,16126,16200,16360,16675,17021 

5254,10443, 15744,16442, 16470,17054 
10470, 16225,17241 

5110, 5146,10326,17244 

12553 

3721 

2317 

2337, 2414 
126 12, 15751, 16005, 16237, 16250, 16355, 1637 1,1645 1,16477*1 7047, 17326,17335, 17424,66035,70353 
66621,70353 

12406, 12407, 16102, 16103, 16562, 16563, 1747 1 , 17472,64674,70353 
66104,70353 

533* 4526, 4541, 7430,13571,14557,14562,15341 
66126,70353 

2446, 2447, 2455, 2456, 2461, 2470, 2503 

24 51 

2512 

2510 

3004, 3442, 3703, 4472, 4500, 5007, 5014, 5057, 5063,10260,10264,17652,17674,17705 

7435,13405 
13405 
13405 
1340 5 

6652 

6651 
13405 
13405 

6650 
70352 
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67672 


HH01 


70351 


6767 3 


HH02 


70350 


6767 A 


HH03 


70347 


6767 5 


HH04 


70346 


67676 


HH05 


70345 


67677 


HH06 


70344 


6770C 


HF07 


70343 


6 7 701 


HH10 


70342 


67702 


HH 11 


70341 


67703 


HH 12 


70340 


67712 


HH 13 


70337 


67716 


HH14 


703 36 


67722 


HH.15 


70335 


67726 


HH16 


70334 


67732 


HH17 


70333 


67736 


HH20 


70332 


67742 


HH21 


703 31 


67746 


HH22 


70330 


67752 


HH23 


70327 


67756 


HH24 


70 3 26 


67 76 2 


HH25 


70325 


67766 


HH26 


70324 


67776 


HH27 


70323 


7000 2 


HH30 


70322 


70006 


HH31 


70321 


70012 


HH32 


70320 


70016 


HH33 


70317 


70022 


HH34 


70316 


70026 


HH35 


70315 


70032 


HH36 


70314 


70036 


HH37 


70313 


70042 


HH40 


70312 


70046 


HH41 


70 311 


70052 


HH42 


70 310 


70056 


HH43 


70307 


7006 2 


HH44 


70306 


70066 


HH45 


70305 


70072 


HH46 


70304 


70076 


HH47 


70303 


7010 2 


HH50 


70302 


70 106 


HH51 


70 3 01 


70112 


HH52 


70300 


70116 


HH53 


70277 


70122 


HH54 


70276 


70130 


HH55 


70275 


70134 


HH56 


70274 


70140 


HH57 


70273 


70144 


HH60 


70272 


70150 


HH61 


70271 


70154 


HH62 


70270 


70160 


HH63 


70267 


70170 


HH64 


70 2 66 


70174 


HH65 


70265 


70 200 


HH66 


70264 


70204 


HH67 


70263 
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70210 FH70 70262 

70214 HH71 70261 

70220 HH72 70260 

70227 HH73 70257 

70233 HH74 70256 

70237 HH75 70255 

70243 HH76 70254 

70247 HH77 70253 

67533 I 110 65015 

66123 1111 64700 

6614G I 1 12 64702 

66537 1 1 13 64 733 

65176 1 1 14 64625 

67330 1115 65001 

66467 1 1 16 64726 

67035 I 1 18 64753,70353 

65634 IJ01 64662 

65656 IJ02 64663 

67013 IJ03 64751 

67057 IJ04 64757 

66763 IJ05 6474 7 

65227 )G02 70353 

65237 )003 70353 

65247 )004 70353 

65257 )005 70353 

65274 3007 70353 

65304 3008 70353 

65324 3011 70353 

65334 3012 70353 

65541 3016 70353 

65551 3017 70353 

65561 3 019 70353 

65571 )C20 703 53 

65601 3 021 703 53 

6574C 3 030 70353 

65770 3 032 703 53 

6600G 3034 70353 

66032 3035 70353 

66 042 3 036 703 53 

66074 3 037 70353 

66101 3038 70353 

66111 3 040 70353 

66116 3 041 703 53 

66133 3 042 70353 

66150 )043 70353 

66155 3 044 70 353 

66162 3045 70353 

66174 3046 70353 

66214 3047 70353 

66236 3052 70353 

66246 )054 7035 3 

66256 3 055 70353 

66315 3057 70353 

66405 3 065 70353 

66457 3 070 70353 



66507 
66517 
66527 
66616 
66636 
66676 
66716 

66 733 
6675 3 
66773 
67003 
67025 
67123 
67133 
67113 
67221 
67241 
67251 
67271 
67301 

67 340 
67 345 
67355 
67422 
6744 2 
67501 
67153 
67103 
67457 
67523 
67432 
6 7467 
67372 
67 54 3 
67553 
67563 
67573 
67613 
67603 
6762 3 
67635 
67647 
67661 
65344 
65354 
65364 
65374 
65404 
65414 
65424 
65434 
65444 
65454 
6 5464 
65474 



LISP 



3 071 
)074 
)075 
)079 
3 080 
3 081 
3 083 
3087 
3089 
)Q90 
)C94 
3 096 
)100 
)101 
3 102 
) 106 
3 107 
) 108 
3 109 
3111 
3 113 
3 114 
3 115 
3 122 
3 124 
3 127 
3128 
) 129 
) 130 
) 13 3 
3 1 34 
3 1 35 
3 136 
3 140 
3 141 
3 142 
) 143 
3 144 
3145 
3 146 
3147 
3 149 
3 150 
3 201 
3202 
3 203 
3 204 
3205 
3206 
3207 
3 208 
3 209 
3 210 
3211 
3 2 12 
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70353 

70353 

7035 3 

70353 

703 53 

70353 

70353 

70353 

703 53 

70353 

70353 

70353 

703 53 

70353 

70353 

70353 

70353 

70353 

70353 

70353 

70353 

70353 

70353 

703 53 

703 53 

703 53 

64760 

64763 

64773 

6 5012 

65006 

65013 

65000 

65163 

65164 

65165 

65166 

65170 

65167 

65171 

65172 

65173 

55174 

70353 

70353 

703 53 

70353 

70353 

70353 

70353 

70353 

703 53 

70353 

70353 

70353 
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67452 


) 21 * 


70353 


66204 


)231 


70353 


67231 


)236 


70353 


67071 


)250 


70353 


65 750 


)£QP 


64665 


70352 


)HO0 


70353 


70 351 


)H01 


70353 


70350 


)H02 


70353 


70 34 7 


)h03 


70353 


70346 


)H04 


70353 


70345 


)H05 


70353 


70344 


)H06 


70353 


7034 3 


)H07 


70353 


70 34 2 


)H10 


70353 


70341 


)H1I 


70353 


70340 


J HI 2 


70353 


7033 7 


) H 13 


70353 


70 336 


)H14 


70353 


70335 


)H15 


70353 


70334 


)H16 


70353 


7C333 


J HI 7 


70 3 53 


70 332 


)H20 


70353 


70331 


)H21 


70353 


70330 


3H22 


70353 


70 327 


)H2 3 


70353 


70326 


) H24 


70353 


70325 


)H25 


70353 


70324 


>H26 


70353 


70 32 3 


)H27 


70353 


70322 


3H30 


70353 


70321 


)H31 


70353 


70320 


)H32 


70 3 53 


70317 


)H33 


7035 3 


70316 


)H34 


703 5 3 


70315 


)H35 


70353 


70314 


)H36 


70353 


70 313 


3H37 


703 53 


70312 


)H40 


70353 


70311 


)H41 


7035 3 


70310 


)H42 


70353 


7030 7 


)H43 


70353 


70306 


)H44 


70353 


70 30 5 


5H45 


70353 


70 30 4 


)H46 


70353 


70303 


)H47 


70353 


70 302 


)h50 


70353 


70301 


)H51 


70 353 


70300 


)H52 


70353 


70277 


)H53 


70353 


70276 


)H54 


703 53 


70 275 


3H55 


70353 


70274 


)H56 


70353 


70 27 3 


)H57 


70353 


70272 


)H60 


2343,70353 


70271 


)H61 


70353 
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7027C 


)H62 


70353 




70267 


)H6 3 


70353 




70266 


JH64 


70353 




70265 


)H65 


70353 




70264 


)H66 


70353 




70263 


)H67 


70353 




70262 


)H70 


70353 




70261 


)H71 


70353 




70260 


) H72 


70353 




70257 


)H73 


703 5 3 




70256 


}H74 


70353 




70255 


)H75 


70353 




70254 


)H76 


70353 




7025 3 


)H77 


70353 




66263 


)LAP 


70353 




67212 


)LST 


70 3 53 




67172 


)MOV 


70353 




65611 


)PJ1 


70353 




65206 


)PJ2 


70353 




660IC 


)PJ4 


70353 




65760 


)PJ5 


703 53 




65531 


)PJ6 


70353 




66375 


)PJ7 


70353 




67143 


)PJ8 


70;353 




66656 


)PJ9 


7035 3 




67365 


)SYM 


70353 




67402 


)TAB 


65010 




16332 


LA8P 


662 51*70 353 




16316 


LAMP 


66165,70353 




11463 


LIST 


14125,14126,64716,7 03 5 3 




77722 


LOAD 


177, 371 




11341 


MAXP 


15152,70353 




11331 


MINP 


15144,70353 




13624 


MKNO 


4530, 4542, 4603, 7442, 
15657,70353,77127 


13100,1310 


15135 


MOLT 


6 7445,70353 




10770 


NOTS 


66522,70353 




11251 


NOLL 


64732,70 353 




64624 


OB LB 


3026 




540 


OCTD 


4602, 7424,13106,13730, 


13765,7712 


15534 


CNEP 


66601,70353 




1302 3 


PACK 


6 6631,703 53 




10402 


PAIR 


15774,66641,70353 




12112 


PJ10 


65130,70353 




11072 


pjii 


65131,70353 




12464 


PJ12 


65132,70353 




10517 


PJ14 


65133,70353 




10472 


PJ15 


65134*70353 




12154 


PJ16 


65135,70353 




11453 


PJ17 


65136,70353 




11172 


PJ18 


65137,70353 




12132 


PJ19 


65140,70353 




10462 


PJ21 


65 141, ,70353 




10366 


PJ23 


65142,70353 




11152 


PJ24 


65143,70353 





7442,13100,13107,13124,13731,13770^14443,14454,14475,14520,14572,15340,15423,15633 



mmmmm 
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11227 

11301 

12261 

11207 

12072 

10265 

12274 

11055 

12060 

12050 

11423 

11433 

11413 

11035 

11102 

14573 

11025 

10631 

6153 

6627 3 

11505 

451 

503 

504 

452 

453 

454 

455 

444 

456 

457 

460 

461 

462 

463 

464 

447 

656 

3104 

3127 
3126 
3132 
317 7 
317 5 
511 
16413 
10527 
1714 
1715 
1716 
1717 
1721 
172 2 
172 3 



PJ25 
PJ26 
PJ27 
PJ28 
PJ30 
PJ31 
PJ32 
PJ33 
PJ34 
PJ35 
PJ36 
PJ37 
PJ38 
PJ39 
PLUS 
POWR 
PROG 
PROP 
PUN2 
PVV1 
PVW1 
Q128 
GD20 
002 1 
GO 14 
0017 
GO 20 
G022 
Q025 
G033 
G040 
Q041 
0043 
G050 
GO 60 
G061 
G077 
READ 
SAVE 

SAVI 
SAVJ 
SAVK 
SAVT 
SAW 
SB IT 
SETP 
SETQ 
SLN1 
SLN2 
SLN3 
SLN4 
SLT1 
SLT2 
SLT3 



65144 

65145 

65146 

65147 

65150 

65151 

65152 

65153 

65154 

65155 

546 

547 

547 

65161 

551 

14566 

4204 

12767 

5662 

70353 

65175 

465 

6124 

10064 
1133 
1127 

10064 

4 56 

6560 

4756 

13505 

10064 
1604- 

465 
2164 
5123 

16155 
3125 
3123 
3124 
3105 
3104 
16 53 

6 7244 
42 21 
2314 

11147 



,70353 

,70 353 

,70353 

,70353 

,7035 3 

,70353 

,70353 

,70353 

,70353 

,70353 

,65156,70353 

,65157,7035 3 

,65160,70353 

,70353 

,15130,64742,70353 

,70353 

,64745,70353 

*70353 

,70353 

,70353 

, 6560,10064 



,12054 

,, 6560,10064 

, 6560,10064 

,10064 

, 6560,10064 



6560,10064 
,11105 



,12243,12466,67030,70 35 3 

, 5145, 5253, 5401, 6612, 10234 , 10325, 10365, 10442, 1G467, 12552, 13654, 13670, 13704, 15 157, 15743, 16125 

,16177,16224,16357,1644 1,16467,16674,17020,17053,17 111,17243,17422, 17526 



, 3120, 3173 

, 3117 

, 7 766,10064 

,70353 

,64 766,70353 



404,11145 
406 
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172 A 


SLT4 


410 






10 547 


SRCH 


4214, 


64764, 


70353 


10477 


STOP 


12510, 


64770, 


70353 


2622 


STRA 


2 54 5., 


2 563, 


2601 


2624 


STRD 








2611 


STRE 


2604, 


2605, 


2606 


2631 


STRM 


2 555 






2627 


STRN 


2562 






2563 


STRO 








2623 


STRQ 


2546 






2625 


STRT 


2542, 


2547, 


2612 


2611 


STRX 


2544* 


2570 




15431 


SUB1 


67333, 


70353 




10440 


SUBR 


543, 


3224, 


3225 



1706 
1707 
1710 
1711 
1712 
1713 
176 7 
2411 
3054 
42 A 

4060 

513 

15721 

10631 

12521 

4072 

4073 

4074 

4075 

4076 

4077 

4100 

4101 

4102 

4103 

4104 

12514 

16276 

4524 

2415 

240 3 



4575 



SWT1 
SWT2 
SWT3 
SfoT4 
SWT5 
SWT.6 
TIME 
TSER 
XCRG 
ZERO 

ALIST 

AMASK 
APPLY 
APROP 
APVAL 
ARG10 
ARG11 
ARG12 
ARG13 
ARG14 
ARG15 
ARG16 
ARG17 
ARG18 
ARC 19 
ARG20 
ARRAY 
AT CMP 
AWhOA 
8ACER 
BACTD 
BCD IN 
BLKBB 



3225,12404,12405,16100,16101,16556,16557,17463,17464,64 771,65177,65207,65240,65250,65265 
65275, 65305, 65325, 653^5, 65 34 5, 65355, 6536 5, 65375, 65405, 65415, 65425, 65435, 65445, 65455, 65465, 65475, 65520 
65 552,65562,65572,65602,65635,65647,65657,65677,65707,65 741,65751,65771,66001,66011,66021,66033,66043 
6605 3,66065,66102,66124,66141,66175,6620 5,66225,66237,66264,66274,66306,66326,66336,66406,66416,66426 
66460,66470,66 500,66510,66520,66530,6654 0,66552,66577,66607,66627,66637,66647,66667,66724,66734,66744 
66764 ,.66774, 67014, 67026, 67036, 67046, 67060, 67072, 67104, 67114, 67 124, 67 134, 67 154, 67222, 67232, 67242, 67272 
67317,67331,67346,67356,67373,6 7403,67413,67423,67433,67460,67470,67502,67514,67524,67534,67544,67554 
67564, 6757«t, 67604, 6 76 14, 67636, 6 7662, 7035 3, 7 7242, 77243 
1175, 1211, 7062 



1556 



1546 



150 5,, 

2613 

3710,67425 

2332 

4550, 4566,76746,77011,77205 

77642, 425, 2356, 6210, 6664, 7075, 7334, 10201, 107 I6*ai067, 12276, 12350, 1261 3, 13004, 13505, 13660, 13710 
14255, 14257,14446, 14716, 16054, 16332, 16512, 17242, 17263 ►17362, 77334 

12274, 12463, 16126, 1 6130 , 16200 , 16202 , 1667 5, 16676, 17021, 17023, 17074,17505, 17534,20062 

4533 t 5470,12567,12636, 142 36,14246,17404,7 705 3,77105,77251 

5224, 10661,12307,13021,16053,16113,16154,16157,16606,17006,17115,17511,17537,65252,70353 
66776,70353 

77643, 531,16623, 16624,64632,67767,70161,70353 
17606,2 0013 

17607,20011 
17610,20007 
17611,20005 
17612,20003 
17613,20001 
17614,17777 
17615,17775 
17616,17773 
17617, 17771 
10740,17620,17767 

34 10, 3411,14341,70353 
652 77,70353 

4517 

2345 

2363 

1505, 

4556, 



7053,11141,13225 
4572 
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77465 

12374 

12364 

12354 

12344 

12334 

12324 

12314 

12304 

13623 

13172 

4 503 

4642 

7521 

12227 

4451 

12207 

4621 

13621 

4653 

1332 5 

514 

65 676 
3147 
3145 
3143 
3141 
313 7 
3135 
313 3 
522 5 
2311 

13 334 
2313 



12224 

16435 

16222 

17050 

11667 

11645 

2 53 3 

2534 

2541 

2530 

2525 

4614 

11630 

11616 
4452 
1170 



BUTCH 
CAAAR 
CAADR 
CADAR 
CADOR 
CDAAR 
CCADR 
CDDAR 
CDCDR 
CHACT 
CLEAR 
CNTR.1 
CINTST 
COMMA 
CDNSN 
CONSW 
COPYN 
COUNT 
CURC1 
DECON 
DIGIT 
CM ASK 

CMPOB 
END 10 
EN011 
END 12 
EN013 
END 1 4 
ENC15 
ENU16 
EQUAL 
ERIND 
ER0R1 
ERROR 



EVALQ 
EVAN.D 
£VCON 
EVLLS 
FEXPR 
FLOAT 
FPTAC 
FPTAD 
FPTDV 
FPTLO 
FPTTY 
FRCUT 
P'SUBR 

FUNCT 
FWLOR 
INPUT 



3053 
64644* 70353 
64645*70353 
64646,70353 
64647,70353 
646 50,70353 
64651*70353 
64652,70353 
64653,70353 

13232,13247,13251,65 516,70353 
655 22*70353 

4507* 4534, 

4525, 4537, 
70353 
646 55*70353 

3246* 3257, 

4121*64656,70353 
65604 
13254*65613,70353 

2005, 2010, 2016, 
65*5 1*70353 

5144, 7342,10317,10323,10402,10515,10533,10712,10724,10770,11067,12 732,13630,16276,77025,77060,77301 
77330 
70353 



4624, 
4632 



4633, 4644, 5020, 5024, 5067, 5073,12566 , 12576, 12635, 12641 , 17656, 17662 



3300, 10200,11052,13155,13164,13626,14266,77054 



2021, 3553, 3556, 3561, 3566,17205,70 353 



5255, 10225, 65773,7G353, 77304 

2320 
66013,70353 

2444* 2445, 2475, 2523, 2617, 2620, 2645, 2646, 3101, 3102, 3205, 3206, 3673, 3720, 3723, 4527, 4531 

4600, 4604, 5463, 5466, 6575, 6603, 6705, 6706, 7064, 7121, 7405, 7412,10432,10433,10435,10436,10742 
10743,13054,13055,13304,13 30 5,140 77,14101,14315,14320,14535,14537,15 360,15361,16161,16163,16253,16256 
1640 7, 1641 1,16430, 16432, 1666 1,1 6663, 17063, 17066, 17366, 17372, 76730, 76732, 77234, 77236, 77360, 77361 
113 37,11365,70 353 
652 32,70 353 
65544*70353 

13656*13672,13706, 15161,66045,66320,70353 
12413*12414,16564, 16565,174 73,174 74,6467 6,70353 
5 3 3, 13640,13641*15376,15553,15554,64701,70353 

2500 

2502 

2450* 

2507 

25 14, 

4474, 
534, 



2474, 2511 



2516, 2521 

5011, 5061,10262,17654 

3226, 322 7,12411,12412,16560,16561,17465, 17466,64703,65230,65542,66163,66215,66247,66316,66346 
66356,66366,66440,66450,66617,66677,66754,67004,67252,67443,67624,67650,70353,77244,77245 
64705,70353 
46 1 3 
705^,11140, 13224,70353 
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17242 


INTER 


667 56,70 353 




66425 


}069A 


4170,64722 




66415 


JC69B 


4164,64721 




66561 


J 79 A 


70353 




66335 


)234A 


7035 3 




66666 


1234B 


70353 




66646 


J234C 


70353 




67045 


)2 340 


703 53 




6522C 


3ALSI 


64626 




66052 


3EXCA 


64672 




66064 


DEXCI 


646 7 3 




65666 


}PJ10 


70353 




66706 


)PJ11 


70353 




65314 


3PJ12 


70353 




67261 


3PJ14 


70353 




67306 


)PJ15 


70353 




65624 


JPJ16 


70353 




6632 5 


3PJI7 


70353 




66606 


)PJ18 


70353 




65646 


)PJ19 


703 5 3 




67316 


3PJ21 


70353 




67412 


)PJ23 


703 5 3 




66626 


3PJ24 


70353 




66551 


JPJ25 


70353 




66477 


:)PJ26 


70353 




65517 


JPJ2-7 


70353 




66571 


IPJ28 


70 3 53 




65706 


3PJ30 


70353 




67513 


} P J 3 1 


70353 




65504 


JPJ32 


70353 




66723 


JPJ33 


70353 




65720 


5PJ34 


70353 




65730 


JPJ35 


70353 




66355 


JPJ36 


13652,70353 




66345 


3PJ37 


13666*70353 




66365 


JPJ38 


13702,70353 




66743 


)PJ39 


70 353 




66020 


1PJ41 


70353 




67201 


3RTRN 


70353 




67163 


JSPCL 


7035 3 




11532 


LABEL 


536*64712,70353 




13307 


LITER 


66330*70353 




1144 3 


LCADA 


64717,70353 




13650 


LOGOR 


66360,70353 




11321 


MINUS 


64725*70353 




13140 


MKNAM 


13052*66502,70353 




10515 


NCCNC 


10514, 14302,15776,17261,66512,70353 




3205 


NCPDL 


3111,20040 




16311 


NULLP 


66532,70353 




7450 


NUMBR 


7417*11445,11450,11453,11456,11514,11520,1152 3,70353 


13062 


NUKOB 


66554,70353 




7371 


NUTRN 


7006,70353 




11217 


GBLBA 


64734,70353 




11132 


PAUSE 


64740,70353 




515 


PMASK 


2365,12623 
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11062 PNAME 



5356 
5446 
5662 

5342 

11005 

6137 

466 

451 

545 

10775 

10 733 

660 5 

10743 

10707 

10557 

16356 

2661 

10566 

10606 

4533 

2 613 

2 640 

2641 

2644 

2634 

262 6 

543 

10217 

12656 

175 5 

2031 

2032 

203 3 

10336 

10326 

615 

15566 

7361 

15510 

27 7 



PRINO 
PRINI 
PRIN2 

PRINT 
PRO PC 
PUNCH 
00109 
GO 200 
GSYMD 
QUOTE 
RCLAM 
READ1 
RECIP 
KEKPP 
SASCQ 
SETQP 
SETUP 
SLIST 
SKOWE 
SPEAK 
STKEX 
STRMA 
STRMB 
STRMC 
STRMD 
STRXT 
SUBRD 
SU8ST 
TERA2 
TIME1 
TIME2 
TIME 3 
TIMES 
TIMES 
TRACE 
TSIND 
UNFIX 
VALUE 
ZEROP 
( IOS) 



77636,77646, 530, 541, 3230, 3231, 5474, 5475, 7304, 7305,64743,65202,65212,65221,65233,65243,65253 
65260, 65270, 65 300, 653 10, 65 3 15, 65330, 65340, 65350, 65360*65370, 65400, 65410, 65420, 65430, 65440, 65450 ,65460 
65470, 65 500, 65505, 65523, 6553 2, 6 5545, 6555 5, 65565, 65575 ,65605, 65614, 65630, 65640, 65652, 65662, 65667, 65702 
65712,65724,65734,65744,65754,65761,657 74,66004,66014,66024,66036,66046,66056,66070,66075,66105,66112 
661 17, 66 127, 66 134, 66 144, 66 15 1,66 156, 66 16 6, 66200, 662 10 ,66220 ,66230, 66242, 66252, 66257, 66267, 66277, 66311 
66321,66 331,66 341,66351,663 61,66371,6637 6,66411,66421,66431,66443,66453,66463,66473,66503,66513,66523 
665 33,66543,66 555,66565,6657 2,66602,66612,66622,66632,66642,66652,66657,66672,66702,66707,66717,66727 
66737,66747,66757,66767,6677 7,6 7007,67017,67031,617041,67051,67063,67075,67107,67117,67127,67137,67144 
6715 7,67164,67173,67202,6 7213,6 7225,67235,6 7245,67255^67262,67275,67302,67307,67322,67334,67341,67351 
673 61,67366,67376,6 7406,67416,67426,67436,67446,67453,67463,6747 3,67505,67517,67527,67537,67547,67557 
67567,67577,67607,6 7617,6762 7,6 7641,6 765 3,67665,67703,67712,67716,6 7722,67726,67732,67736,67742,67746 
67 752,67756,67762,67772,67 776,70002,7000 6,70012,70016,70 022,70026,70032,70036,70042,70046,70052,70056 
70062, 70066, 70072, 70076, 70 1G2, 70 106, 70 11 2, 701 16, 701 22, 70 130, 70134, 70 140, 70144, 70150,70154,70164,70170 
70 174 ,70200, 70204, 7 0210, 702 14, 70220, 70227, 70233, 702 37, 70243,70247, 70353, 77442 

6146,70353 

5370, 5420, 17203, 66726,70353,76742 

4746, 4752, 5355, 5377, 5416, 5424, 5426, 5433, 5527, 5544, 5572, 5606, 5625, 5641, 6142, 6143, 6254 

6255, 6335, 6337, 6507, 6512,17133,17167,17171,17214^70353,76755 

2353, 2406, 2610,10603,10606,11655,12327,12374,12474,17140,17147,17175,17200,66736,70353,76760,76764 
64746,70353 

2155,66766,70353 
15621 

465,14716 
76725 

542,64750,70353,7 7266,7726 7 
64754*70353 
70353 
70353 

65017,70353 
64762,70353 
6 72 54 ,.70353 
11461,70353 
64776,70353 
64774,70353 
67274 

2543 

256 5 

2567 

2575 

2600 

25 51 
14342 

67360,70353 
12663 

1726, 

1732, 

1734, 

1776, 



2003, 
1763, 
1746, 
2001, 



2000, 2012 



2014,67435 
1772, 1773, 1774 
1750, 1751, 1764, 1777, 
2004, 2007, 2015, 2020 
551,15136,65011,70353 
16076,16077,16554, 16555,1746 7,17470,64772,70353 

374, 616, 2331,11136,11210,12226,12451,12473,12475 
14374,14403,14543,14545,15270,70353 
7246, 7251, 7311, 7332, 7375,70353 
5331,67536,70353 
171, 247, 371, 756, 775, 1142, 1174, 1512, 1541,11414,11421,12102 
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347 

1525 

152 A 

1523 

1522 

16221 

16217 

16220 

16230 

16251 

16253 

16.114 

1715 4 

17 156 

17160 

17155 

162 12 

4110 

4057 

16216 

4201 

17142 

17152 

17151 

16104 

16161 

420C 

17177 

16054 

15760 

15763 

16006 

16036 

4112 

41 14 

4113 

4115 

4116 

4117 

4120 

16215 

4111 

514 

4124 

4 12 5 

4126 

4127 

17037 

17046 

16614 

16735 

16521 

17241 

17237 

4152 



{ I GUI' 
2 SPACE 
4SPACE 
6SPACE 
8SPACE 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



A 

F 

AL 

El 

E2 

E3 

R2 

AGA 

AGM 

AGO 

AGO. 

APA 

AS1 

CSV 

FAS 

LIS 

PLL 

PRX 

PRY 

R21 

R33 

TEM 

VAX 

APP2 

ASP1 

ASP2 

ASP3 

ASP4 

ASS1 

ASSA 

ASSL 

AST! 

AST2 

A ST 3 

AST4 

ATSI 

CfcRl 

DECM 

ECS1 

ECS2 

ECS3 

ECS4 

ELP1 

ELT1 

EV1N 

EV27 

EVAL 

EVCM 

EVD1 

EVU2 



220, 371 



12 271 

16064,16127,16140,16146,16201 

16066,16137,16162 

16065,16121,16150,16174 

16252 

16241 

16222 

16101 

17126,17135,1716 3,17172 

17132 

17170 

1712 7, 17141,17164,17176 

16170,16175 

10364,10400 

16060, 16061,16133, 16156,16206, 16210,16673, 16704, 170 17,17030, 17101,17103 

16135 

10403, 1 406 , 104 15,10421 

17150 

17124 

17125, 17142 

16216 

10414*10424 

17162 

70353 

15730 

15734 

15742 

15737 

15721,15725, 15756,15761,16004,16034,16052,16171 

15744,15747,15752 

15745,15754 

15723,15750,15760, 15 763,16006,16022,1603 3,16036,16042,16050 

16007,16032 

15765,15775,16011,16027 

157 71, 16000, 16015, 16024 

16054,16056,16057,16112,1615 3 

10366,10371,10375 

10372,10402 

16223,16247 

16226,16240 

16231,16251,16254 

16225,16234,16242 

16760,17056 

17040 

16530 

16545,17036 

70353 

16752 

16642,16656, 16721, 16722 

16566,16577 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
POST PROCESSOR ASSEMBLY DATA 



9/20/67 



PAGE 17 



16652 
16653 
16731 
16732 
16644 
1672 3 
16617 
1655C 
4132 

4134 

413 3 

17236 

17235 

17233 

10412 

10402 

10432 

10435 

17161 

16204 

10364 

15721 

16135 

16072 

1616 5 

16213 

16177 

16155 

17124 

535 

536 

537 

424 

16214 

516 

13202 

4151 

17005 

4136 

16222 

17007 

17050 

17240 

16635 

16661 

1662 5 

16665 

16706 

16714 

17063 

17032 

16737 

476 

17234 



EVI.1 
EVI2 
EVL3 
EVI4 
EVL1 
EVL2 
EVP1 
EVP2 
EVS1 



EVSA 

evse 

EVT1 

EVTA 
EVTE 
FARG 
PAIR 
PERF 
PERS 
VALV 
AAPEXC 
AAPNP1 
AAPPLY 
AAPSAt 
AAPSES 
AAPTRK 
AAPTRT 
AAPTS8 
AAPTXP 
AARGGF 
AASFUN 
AASLBL 
AASLMD 
AASZRO 
ACWADR 
AOMASK 
ACVANC 
AEAG11 
AEVAPG 
AEVCDR 
AEVCON 
AEVCCO 
AEVLIS 
AEVLNS 
AEVP11 
AEVP12 
AEVP13 
AEVP22 
AEVP23 
AEVP25 
AEVP26 
AEVP27 
AEVP28 
AEVQD1 
AEVTAE 



1663 7 

16641 

16715 

16717 

16652, 16653 

1673 U 16732 

16532,16623,16624 

16564,16565,16613 

1652 1, 16534, 16605, 16615,1663 3,16657,16672,16742,16770,17005,17016,17050, 17052,17061,17106,17112,17120 

17122 

16746, 16756,16763, 16774,17045,17054,17055 

16744, 16755, 16765, 16772 

16607,16671, 16702,16720,16733,16762,17002,17015,17026,17064,17076, 17113 

16635,16643 

16523, 16614,16636, 16662,17065 

10404 

70353 

10407 

10416 

17166 

16160 

10361 

15757, 16035,70353 

16073 

16102,16103,16166,16176 

16077 

16067, 16110,16123,16151,16167 

16124 

16111,16152 

16173, 17073,17110, 17530 

15735,16054 

15740, 16054 

15732, 16054 

16054 

16120, 16131,16203 

65211 

17012 

70353 

17004 

70353 

16526, 16527, 16537, 16540 

16620 

16644 

16561 

16563 

16551 

16541,16723 

16557 

16713 

16640,16716,17242 

165 33, 16711, 16714, 16734, 16754 
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4151 
17070 

413 5 
16611 
17105 
424 
10430 
10410 
10361 
10662 
12521 

531 
4513 
13774 
14032 
4047 
1410 3 
517 
10754 
17162 
4233 
4232 
4224 
4225 
4226 
422 7 
4230 
4231 
414 
347 
264 
10325 
10307 
10277 
10357 
10354 
1120 
151 
1200 
1202 
321 
326 
325 
235 
231 
570 
1163 
202 
1141 
1155 
1146 
1122 
1.10 5 
1156 



AEVTDE 
AEVTFS 
AEVTRK 
AEVTRT 
AEVTXP 
AEVZRO 
AFARGX 
APAIRX 
APPEND 
APSSOC 
APVAL1 

APVALD 
ARREST 
ARYGET 
ARYGTX 
ARYLIS 
ARYMAK 
ATMASK 
ATTRIB 
AVALOF 



B 

B 

B 

8 

8 

B 

B 

B 

B 

B 

8 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

8 



E 
P 
XI 
X2 
X3 
X4 
X5 
X6 
CBS 

io.u 

RCK 

SU1 

SU2 

SU3 

SU4 

SU5 

WTX 

BTTM 

CALL 

I NX 4 

ICSA 

IOSX 

IOSY 

RTLC 

RTRD 

RTRX 

SAVR 

STRA 

WAGN 

WERC 

WERM 

WRCK 

WTAD 

WTAG 



16535*16574, 16 701, 16757,17072,17075,17105,17114 
16700 

16542*16543,1660 3, 16612,16577,16750,16776, 17003,17007, 17011, 17013,17035, 17241 
16555 

16610, 17010 

16571,17242 

10413 

10402 

10373*16325,65242 

67224*70353 

fUdcH , { Udb 3 

4505, 5022, 5071,17660 
14323 
14322 

3401,14306,14310 
65267 

65307 

16211,17104, 17123, 17545 
10 300,10310,10 320,10327 
102 75, 10305 
10277*10355 
10330, 10344,10357 
10331, 10332,10340 
10337, 10343,10347 
10326, 10342,10352 
10306,10307,10313 
4 00 

304, 321, 371 

255, 



321, 
256 



277, 

253, 

10304 

10321 

10335,10341 
10346 

10311, 10324, 10360 
1067 
146 
1172 
1171, 
324 
302 
303, 
241 
2 74 
204, 
1161, 
164, 
1123 

767, 
1131, 
1116 
1066 
1070, 



1204 



323 



205, 
1167 
203 

1071, 
1134, 



261, 262 



1124 
1137 



271, 574 



1122, 1144 



HMIMiMMi 
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1101 
20C 
2421 
212 6 
242 3 
2424 
2 42 5 
2276 
2300 
230 3 
2272 
2144 
6125 
365 



530 
373 
755 
7 72 

40* 6 
201 

1170 
350 
527 

4543 
144 
574 

307 3 

6123 
571 
275 
276 
573 
572 
206 
423 

1017 
754 
526 

1015 
6462 3 

736 3 

10150 

627 

7245 
151 

1111 

1157 

1160 
277 
77667 
77670 
7766 3 
77664 



B WTWS 
B ZERO 
B AC ACT 
BACKSP 
BACKT1 
BACKT2 
BACKTR 
BACTRl 
BACTR2 
BACTR3 
BACTRA 
8AKSP1 
BC0AD1 
BCOOUT 



BOON AT 

BC0NT1 

BDDUMP 

8DLCAD 

BEGBLK 

BFLTRA 

B INPUT 

BTOSBB 

BLANKS 

BLGCKR 

BOTTOM 

B0VLT4 

BPLACE 

BRKOUT 

BRTADR 

BRTIOC 

BRTIOD 

BRTIOU 

BRTLCH 

BRTTHO 

BSRECL 

BTAPD1 

BTAPRW 

BTMASK 

BTPCX4 

BUCKET 

BUCKNO 

BUFFER 

BUFFLG 

BUKSRT 

BUT CHI 

BWTACL 

BWTIOC 

BkTIOD 

BT10S) 

C L 

C R 

C 8L 

C 8R 



1145 

203, 
2344, 
67640 
2350, 
2273, 
2301, 
2272, 
2274 
23Q0 
676 52 
2126, 
6136* 
1057, 
6043, 
12023, 
4037 
1021 
1012 
1027 
4043 
166 „ 
70 35 3 
313 
47 30, 
14210 
144, 
1024, 
2654* 
5743 
211, 
232 
242 
221, 
217, 
213 
144, 
10 1 3 
770 
3477 

77 W 
7262, 
7256 
7402, 

403 
330 7 
77466 
1106 
1064, 
1114 
371 
1254, 
1261, 
1270, 
1272, 



17446 
2346, 



240 7 



2352,12242 
2275, 2303, 
2404 
2302, 2304 



2405 



2137, 2140 
6205, 11016 

1136, 1701, 2024, 2112, 2213, 2261, 2334, 2412, 2416, 2520, 2561, 2577, 3036, 3574, 3701, 5750 
6600, 6702, 7116, 7407,10600,10610,11166,11172,11203,11375,11400,11475,11501,11574,11630,11701 
12122,12234,12324,12 340,12371,1245 3,1313 0,13270,13273,13276 



203 

6124, 6261, 6270, 7414,11562,11577,11624,12064*13220 

153, 574, 760, 777,12104 
1031 

3077, 4545, 4547, 4557, 4561, 4563, 4565,76743,76 745,76770,76772,77006,77010,77202,77204 

214, 215, 237, 240, 264, 267, 574 



246 , 



i74 



235, 243, 574 

155, 574, 760, 777 



1006 
7351,64624 



7415, 7447 



1065, 1101, 1104, 1107 



1300, 1310, 1313, 1346, 1372, 1501 
1302, 1315, 1320, 1354, 1377 
1326, 1502,77671 
1334,77671 



MMMMPMM 
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62C 

125 A 

1264 

1266 

1275 

1267 

130C 

1326 

1310 

134 5 

1415 

1452 

1451 

1420 

143 3 

1424 

1434 

142 5 

1416 

13022 

13015 

13010 

13017 

13020 

1215 

1234 

1221 

1501 

77661 

77665 

621 

7724C 

77421 

77420 

77422 

624 

77662 

77666 

77660 

1502 

1313 

1320 

1461 

1304 

1305 

1370 

1411 

1470 

1465 

1341 

1500 

1460 

1455 

10166 

10212 



C 
C 
C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



AC 

81 

B2 

B3 

B4 

B5 

B6 

B7 

B8 

B9 

01 

C2 

C3 

C4 

C5 

C6 

C7 

C8 

C9 

CA 

CD 

CL 

CX 

CY 

HI 

H2 

H3 

LR 

LS 

LZ 

MQ 

PA 

PH 

PL 

PX 

QP 

RS 

RZ 

TP 

8LR 

BIO 

fill 

B12 

BF3 

B14 

B15 

816 

817 

825 

B40 

B50 

CIO 

Oil 

CP1 

CPA 



1344, 
1455, 



1367, 
1456 



1244, 1256, 1411 

1245, 1257, 1412 
1260 
1264 
1275 
1465 
1467 

13 07, 1477 
126 3, 1274, 
1266, 1425 
1277, 1325, 
1415, 1454, 
1427 

14 20 

1417, 1421, 1433, 1453 
1423 
1460 

13006,13015 

13010 

13014 

13000 

130 01 
1212 
12 20 , 
1240 

1251, 1267, 1305, 1331 
12 55, 1271, 1301, 1311, 
1332, 1351, 1371, 1503 

77233 
77410 
77412 
77406,77431 



1323, 1341, 1361, 1402, 1473 
1410, 1426, 1476 



1221, 1230, 1237 



1314, 1327, 1333, 1345, 1352* 1374, 1424 



1262, 
1337, 
1363, 
1252 



1322 

1324 

1342 

1362 

1403, 

1312, 

1304 

1464 

1247, 

1432 
70353 

10173 



1273, 
1357, 
1365, 



1303, 

1376 

1404, 



1316, 

1406, 



1321, 1335, 
1430, 1431 



1340, 1353, 1360, 1401, 1422 



1471 
1317 



1413 
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10215 

412 3 

1017 4 

10216 

10213 

12762 

17711 

76703 

77073 

7 766 3 

77176 

17625 

17676 

17623 

17657 

17702 

1764 3 

76736 

17664 

76734 

17671 

17637 

17700 

20057 

77310 

77 325 

77266 

622 

7742 5 

77414 

77406 

77446 

124 3 

77664 

77460 

1207 

77353 

7745 6 

2005 4 

77321 

17742 

17 743 

625 

626 

150 3 

7714 7 

7716 5 

20062 

77137 

1472 

147 7 

77461 

77404 

77246 

77253 



C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



CPE 
CPF 
CPL 
CRT 
CPX 
GET 
LAN 
LAP 
LAX 
LDS 
LEM 
LER 
LFX 
LNN 
LSC 

lse 

LSN 

LSO 

LSP 

LS.Q 

LSR 

LSI 

LX2 

MOV 

NGN 

NQT 

NTE 

CFL 

PMK 

PNL 

PRO 

PT« 

RCD 

ROS 

REM 

RTX 

SPP 

SUM 

TAB 

TRP 

UNF 

IJNX 

XR1 

XR2 

ZLR 

A INS 

AINX 

A LST 

AMBL 

B100 

B200 

ERCC 

FELX 

FIND 

FINX 



1370,77671 



10167, 10170,10205,10207 

10172, 10203, 10204,10212 

10211 

10175,10210 

10166 

110 75,17 734,6620 7,76 726,770 34,7 7332 

17655, 17663, 17701, 17703 

4576,66266 
76703,76704 

1330, 1347, 
77374 

174 35,17444 
17670,. 17706 
17572 
17642 
17651 
17641 

17650,17673 
76723,7672 7 
17710 

175 74,20060 
17637 

6 7200 
77274 

77266,77267 
77257,77260 

77415 

77420,77421 
77263*77353 
77407,77423, 77426 

1336, 1355, 1375,77671 
77366 r 77370, 77377, 77402 

1505 
77333 
77364,77375,77376 

76706,76762,77067,77071,7713 3,77135,77212 

77324,77355 

17722 

17712 



1466 
7 7140 

77147,77172 
65226 
77117,77122 

1463 

1474 
77227,77235 

77167,77206,77221,77252,77256,77265,77322,77365,77373 

77243 

77241 
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12777 
12774 
77455 
76743 
77054 
77100 
77447 
77102 
2005 5 
77067 
17703 
17433 
20052 
17632 
17631 
17500 
4157 
4160 
17634 
17635 
17575 
1745 7 
17621 
17512 
17514 
77111 
77230 
77367 
7746 2 
20060 
77454 
20034 
17 747 
17754 
77076 
77257 
77222 
77323 
77110 
77145 
20056 
77450 
20061 
12 32 
77451 
20042 
2004 3 
7 7 077 
17721 
17746 
17722 
623 
12663 
12676 
12717 



GETL 
GETX 
HOLD 
IN8P 
IND2 
INDC 
INST 
JUST 
LCOM 
LEND 
LFIX 
LINK 
LIST 
LNAC 
LNFN 
LNGN 
LNKA 
LNKB 
LNKC 
LNKD 
LNKP 
LNLP 
LNLX 
LNNF 
LNTR 
LCP1 
L0P2 
LOPt 
LSAC 
LSTR 
MODE 
MOVD 
MOVE 
MOW 
NAME 
NATM 
NTAB 
ONOT 
PASS 
PAUX 
PROS 
REST 
RTRN 
RTXX 
STAR 
S I'RW 
TXL-W 
TYPE 
UNLP 
UNSQ 
UNTL 
WCNT 
CAAARX 
CAADRX 
CAARXX 



12763,12766 
L2762, 12776 

7 7276,77306,77314,77320,77 323 
76714 

77051,77052 

77027„77031 ,77044, 77047 
770 72,77116,77131,77171,77174 
76750,77153,77162 
77336,77344 
77004,77020,77046 
17672 
202 
76705,76 710, 767 76, 7 701?, 7707 
17517,17531 
17500,17507,17533 
17513 

174 33,17547,17565,175 7 5,1762 6 
174 34, 17550, 17566, 17576 

17445, 17510,17524,17527,17542,17544,17563 
17441, 17451,17512,17523,17571 
17573 

17473, 17474,17515,17532 
17570 ,176*24 
174 54, 17460 
17470 

77124,77136,77144 
77244,77245 
77400 
77210 
67220 

767 20,76747,76765,77003 
17764,17766 
20057 

17747,20033 
77021,77032,77056 
77200 
77214 
77305 

76761^77002 
77110,77112 

17733,77413,77425,7743 
767 12 , 77G0O , 7711 1 , 77 1 14 
67211 

1207, 1241 
70127,76751,76767,76 775,77005,77125,77141,77143,77151,77154,77160,77164,77440 
17757,20036 
17753,17756,17760 
77024*77033, 77050, 77064 
17725, 17732, 17735, 17741 
17713,17744 
17720 

65407 
65417 
6534 7 
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12703 

12712 

12721 

77167 

740 

74C 

1504 

12723 

12735 

12756 

12742 

12751 

1276C 

12776 

77356 

77275 

567 

76 741 

617 

76751 

76774 

77207 

4577 

17570 

17 55 1 

17475 

1763 3 

17553 

17540 

1753 3 

1763C 

17546 

17636 

77047 

77216 

77457 

3210 

52 3 

364 

7766C 



13000 

371 

7745 3 

77101 

20052 

20056 

20053 

63 

1-246 

436 

1241 

77452 

17712 



CADARX 
CACCRX 
CACRXX 
CAFELD 
CBUFF) 
CBUFR) 
CCMMND 
CCAARX 
CCADRX 
CCARXX 
CCCARX 
CCDURX 
CCDRXX 
CFCN3L 
CFDLST 
CFLCOP 
CHKSUM 
CIN'BPl 
CINCIC 
CLAPP1 
CLAPP2 
CLAPP3 
CLBPTP 
CLNARS 
CLNDiS 
CLNEXP 
CLNRGL 
CLNSBR 
CI NT EN 
CLNTEX 
CLNTRS 
CLNTSB 
CLNTSX 
CMKIND 
CNEVAL 
CNOCU« 
CNSFWL 
CNTMSK 
CCMAND 
COMMON 



CCMPAT 

CO NT IN 
CPASWD 
CPATCH 
CPRGBE 
CPROEN 
CtiTLST 
CRBUFF 
CRDBCO 
CRITWN 
CRTXBE 
CSTART 
CLINWND 



1222, 1505 



65427,77026 
65437 

6 5367,77262,77340,7 7352 
77150, 77152 W715 5, 77161 

754 
7 54 

1215, 
65447 
65457 
65357 
654 67 
654 77 
65377 
12764 

77325,77326 
77307 

157„ 161, 

7 6717 



76 740 
76766 
77201 

2667, 
17503* 
17546 
17472 
17521, 
17464, 
17552 
17502 
17450, 
17560 
17561, 
77035 
77226 
77170, 

3027 
17763 
322 
776 36, 

6363, 
14547, 

5101, 
12201, 
76753, 
77042 

404 1, 

4041, 
77273, 



236, 244, 245, 254, 275, 574, 1113, 1160 



4560,76771 
17520 



17536 
17466 



17501,17516,17557 
17562 

77356,77363,77401 



77660, 1572, 1600, 1607, 1611, 1614, 1617, 
6373, 6376, 6402, 6407, 6411, 6421, 6422, 

14554,14,574,14575,15056,15057,15115,15116 
5105, 516 3, 5174,10453,10500 

77466 

77001,77123,77137 

20052 
20057 
77315,77317 



1623,, 
6424, 



1624, 
6426, 



1652 * 2456, 
6430, 6434, 



2471,77660, 6347, 
6440, 6451, 6454, 



6355, 6360 
6473,77660 



1214 

3513, 3767 
1226, 1234 
76752 ,.76774, 77030, 77041 
2372*12630 
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4163 
A 16 2 
4161 
1513 
160 1 
1570 
1574 
1575 
1576 
1600 
1601 
1625 
1635 
1652 
511 
10445 
10462 
1532 
1677 
1677 
1543 
1651 
1650 
1644 
1645 
1646 
1554 
4 
14504 
1022 
1023 
14412 
1532 
11646 
11670 
1560 
3322 
3323 
3443 
3450 
3463 
3464 
4026 
3264 
4053 
46 72 
4706 
4671 
4742 
4663 
4 732 
4716 
4721 
475 3 
375 2 



F 
L 

RET 
SPX 
BC01 
BC02 
BC03 
BC04 
BC05 
BC06 
BC07 
8C08 
BC15 
BC49 
BC50 
MCPR 
RTRN 
WOT 2 
WCT8 
NCTC 
WOTM 
WOTS 
WCTT 
WCTU 
WCTV 
WCTW 
WCTX 
DEBUG I 
DIFFER 
DISFSC 
DISSCR 
DIVIDE 
DSPAC3 
DUMPXX 
DOMPYY 
DViCTON 



A 

B 

F 

G 

H 

1 

BIT 

CMK 

CNX 

CE1 

CE2 

CE4 

DE5 

DE7 

DEJ 

DEQ 

CEV 

DEY 

FSC 



1620 



10443,10444,1044 6,10450 

10445,10455 

10441,10463 

1510, 1520 

1575, 1630, 1653 

1642 

1634 

1632 

1567 

1627 

1653 

1612, 1615, 

1631, 1633 

16 36 

1574, 1653 
10461 

1533 

1544, 1566, 

1533, 1551, 

1535, 1545 

1564, 1603, 

1563, 1637, 

1560 

1561 

1562 

1527, 1550 

3336,11341 

5326,65637 

1017 



1677 
1565 

1626 
1641 



1011, 
65661 

1533, 
65701 



2737 

2741 

2750 

2765 

2754* 

2743 

3665, 

3254 

3253, 

4701 

4700 

4705 

4724 

4656 

4726 

4710 

4707 

4750 

3440, 



1020, 1026 



2256 



3475 



4027 



3262, 3270, 3310 



3452, 3523, 3555, 3757 
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3750 
3321 
3437 
375 7 
376C 
360 3 
3604 
3605 
3 76 1 
3034 
2731 
3251 
3305 
4055 
4054 
3242 
3234 
3232 
3233 
405 6 
4052 
77664 
402 7 
3656 
525 
3667 
3416 
3432 
3430 
4035 
3671 
3634 
4050 
3765 
3520 
3526 
3544 
3542 
3 330 
4051 
3741 
3750 
3752 
3756 
3 734 
3732 
3447 
3454 
3444 
3617 
350 2 
3615 
3612 
3030 
3763 



FWC 
RCA 
RCB 
RCC 
RCT 
KCX 
RCY 
RCZ 
RLC 
R5T 
RSU 
CMKO 
CMPS 
CNAT 
CNFT 
CNNM 
CNNR 
CNR'S 
CNRT 
CIWA 
CNXT 
DEMQ 
MBIT 
MCNE 
MCNS 
MCtIT 
MRKA 
MRKE 
MRKF 
MRKP 
MRKX 
MWIN 
RCAC 
RCBE 
RCEA 
RCEB 
RCEC 
RCED 
RCLA 
RCMQ 
RCT1 
RCT4 
RCT 5 
RCT6 
RCTM 
RfcLX 
SFSA 
SFSC 
SFSL 
SFWA 
SFWB 
SFWC 
SFWD 
SUPX 
TFSC 



3462, 3503, 3515, 3552, 3616, 3621, 3757 



3402 

3 5 30, 

3506, 

3312, 

3 313, 

3 314, 

3533, 

2656, 

2660 

3225, 

32 74 

3216, 

3275* 

3221 

3243* 

3265 

3263, 

3272,. 

3214, 

4676* 

3607, 

2744, 

3764 

3635, 

3411 

3425, 

3427, 

3631 

3652 

3316, 

3 320, 

3516 

3524 

3541 

3540 

3326 

3317, 

3551, 

3554, 

3557, 

3562, 

3575 

3725 

345 7 

3*45 

3450 

3461, 

3614 

3610 

3625 

2657, 

3526, 



3532 

3534, 3761 
3544, 3715 
3716 
3 717 
3536 
2775, 3031 

3227 

3306 
3303 

3250 

3311 
3305 
3234 
4677 
4027 
3 654 

3651, 3653, 3655 

343 5 



3430 



3600, 
3514, 



3713 
3517, 



3525, 3537, 3576 



3601, 
3567, 
3757 
3757 
3 757 



3714 
3572 



3504, 3623 



2661, 
3527 



2 776, 3040 
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3 76 2 
3 35 3 
3355 
3364 

3 366 
3367 
3342 
3352 
4033 
3511 
3273 
3266 
3237 
324C 
3213 
3222 

567 

4653 

77663 

77665 

4 740 
77662 

457 
4756 

77660 

77661 
3052 
3053 
3406 
3402 
3414 
3 766 
3 766 
365 3 
3654 
3652 
3640 
3647 
3672 
3651 
3642 
364 3 
3666 
525 
340 1 
3670 
4451 

77776 
3204 

13261 
3041 

2004C 
3111 
5300 
3712 



TFWC 

TMLD 
TMLE 
TMLF 
TMLG 
TKLH 
TMLJ 
TFLK 
TMLM 
ZPDL 
ECMPLP 
ECMPNT 
ECNFWX 
fcCNFWY 
ECNMLP 
ECNSLP 
ECCNAT 
EG EC ON 
EOEOLG 
ECE1NP 
ECEIR4 
ECELOD 
ECEMIN 
EOECRG 
EDETS1 
ECETS2 
EEXCIQ 
EEXCLR 
EflARYA 
ENARYB 
EflARYC 
EMARYT 
EMBITF 
EMLE6J 
EMLBOW 
EWLBFA 
EHLEPD 
EMLfcPE 
EMLEXT 
ENLIST 
EFLPDC 
EFLPDE 
EML1BT 
ENGNES 
EMPCLF 
EMSRTN 
ENDBLK 
ENCEIMD 
EMOPDL 
EN OR ED 
ENCSET 
EN PC LI 
ENPCL2 
ECPkOG 
Eft C BEX 



3521 
3374 
3366 



3343, 3367, 3371, 3376 



4037 

4675, 

4706 

4660, 

4703, 

4756 

4657, 
4704, 



4702, 4711, 4714, 4720, 4725, 4742 



4753 
4712, 



4723 
4713, 



4732, 4751 



4733, 4747 



3520, 
3347, 
3352, 
3 361 
3357 
3353 
3370 
3400 
3340, 
2676 
3304 
3231 
3210 
3211 
32 35 
3233 
567, 
70353 
4671, 
4664, 
4655, 
4654, 
4716, 
4756 
4653, 
4663, 
2650 
2652 
3413 
3415 
3431, 
3 404, 
4027 
2774 
2757 
2766 
2771 
2772, 
3626, 
2763, 
3331 
3330 
2746 
3764 
3372 
3630 
404 3 



2701, 2767, 3325, 4762,16737 
65711 
3037 
2702 
2703 

5277,65753 
3577 



3436 
3414 



3667 
3627 
3633 , 



3642 
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3673 

3702 

3 764 

372 5 

12656 

12655 

2645 

10 

12551 

11760 

2661 

3503 

3476 

360 7 

3010 

3021 

302 3 

4036 

40 34 

12 345 

11736 

12357 

12 507 

1737 

2012 

1741 

174G 

2001 

172 5 

3075 

3074 

2650 

3510 

455 

444 

77664 

462 

77 66 3 

13405 
1342 6 
13425 
13243 
13044 
13047 
13052 
13035 
13057 
77660 
77662 
7613 
7766C 

434 
13562 

446 



ERCERR 
ERCFEM 
ERCIND 
ERELOC 
EREXIT 
ERNCLL 
ERR0R1 
ERROR! 
ERRSET 
ERSETO 
ESETUP 
ESFWDN 
ESFWLD 
ESFWSC 
E5UPFS 
ESUPFV 
FSUPFW 
ETEKXX 
CTMPTN 
EVALQT 
EVLISL 
EVQERR 
EVQRTS 
EVTIM1 
EVTIM2 
EVTIM3 
EVTIM4 
EVTIM5 
EVTIME 
EXCABL 
EXCISD 
EXCISE 
EZPDLA 



8 

E 
N 
G 
T 

Al 
A2 
A3 
A6 
Bl 
B3 
B4 
B5 
86 
BN 
CH 
CM 
MQ 
Q8 
Tl 
A 36 



3643, 3726 

3677 

3315, 3602, 3712 

3507 

2316, 2410,12610,12663 

2315*12561 
66003 

2324, 3706,11214 
66C23 

546, 12653,65162,70353 
70353 



3502 
3612 



3025 



2752, 

3500,. 

3001 

30 16 

3020 , 

4046 

3356 
6 7626 

4130, 17051, 6467 1,7 G353 
12656 

3335, 12236,12265,12365,12367 

1735, 1747 

1736 
12336 

1733,, 1742 

1752 
12230 
66055 

2655, 3075 
66067 

3332 

7624,10064 

76 21, 10064 

7457, 7461, 



7500, 
7453, 



7522, 

10035,10064 



7514, 
10013,10014,77664 
13041 ,,13143, 13 17 3, 13 505 
13311,13505 
13323,13505 



13035,13061 

13040 

13047 

13031 

13051 

7520, 

7576, 

75 74 

7465, 

7471* 
13153, 
13505 



7577, 7601, 7605, 7632, 7641, 7650,10024,10026,10027,10051 
7515, 770 1, 7702, 7705, 7706, 7717, 7723, 7724, 7725, 7732, 7743, 7764, 7767, 7771, 7775 



7644, 
7603 



7646, 7737,10057,77661 



7516,10015,7 7661 
74 77,10064 
13154,13 365,13371 
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13324 

13312 

13332 

13317 

13200 

13160 

13173 

13161 

13147 

7560 

7520 

7546 

77663 

7656 

7660 

7642 

7661 

7731 

7714 

7712 

7632 

757L 

761C 

7606 

7611 

7577 

760 1 

7605 

7643 

7651 

7473 

7467 

7477 

557 

560 

13350 

7543 

7521 

7634 

10066 

1006 7 

13125 

1310 3 

13127 

13123 

13112 

13134 

7565 

7570 

7555 

10067 

7612 

7554 

7534 

7542 



F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 



AL1 
AL3 
AL5 
AL6 
HB1 
BB2 
BB3 
6B4 
BB5 
BN1 
BN2 
BN3 
CHD 
CM2 
CM3 
CM4 
CM 5 
CF6 
CM 7 
CM 8 
CV2 
CV3 
CV4 
CV5 
CV'6 
CV7 
CV8 
CV9 
CX3 
CX5 
CY2 
CY3 
CY4 
EOF 
EDR 
ERX 
EX1 
EX2 
EXS 
FL1 
FL2 
GV1 
GV2 
GV3 
GV4 
GV6 
GVA 
MN1 
FN2 
HH3 
ONE 
OVF 
PLi 
PT1 
PT-3 



7643,10004 
7656,1000 6 



7672, 7711 



7730, 
7617, 
7606, 

7552, 

IC017 



7741 

7622, 

7611 



7556, 7557, 7612 



13307, 13313, 13321 

13324 

13326 

13314 

13140,13172 

13146 

13171 

13167 

13144 

7626 

7563*10062 

7533, 7564,10063 
77664 

7525, 7560, 7561, 
7530, 7534, 7535, 
7640 
7642, 7657 

7526, 7562, 
7673 

7714, 7722, 
7575, 7614, 
7536, 7542, 
7607 

75 37, 7541, 
7 540, 7553 
7546, 7566, 
754 7 » 7554 
7550 
7531, 
764 7 

750 5, 7510, 
7473, 7476 
7472 

1325 7, 13405 
13301, 13405 
13343 

76 2 3 
754 5 

7527, 7543, 7544,10010,10061 
7661, 7666, 7670 

7663, 76'64, 10150 
13062, 13101, 13110,13121,13133 
13075 
13074 

13113,13115, 13116 
13104 
13131 

7615 

7567 

75 70 

7677,, 7703, 7716, 7721,10150 
7604 

76 31 
7620 
7551, 



7625, 7630 



7634, 7765,10055,10056 



7513 



7571 
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1C00C F PXi 7450, 7713 

10001 F PX2 7451 

10002 F PX4 7452 

436 F Q10 7523,10064,10150 

502 F QD7 7763,10064 

10004 F STZ 7633 

7614 F SW1 7524, 7752, 7755,10060 

7673 F SW2 

436 F TEN 7573, 10150 

13367 F UP1 13363,13364 

13360 F UP2 13366 

13400 F UP3 13370 

13370 F UP4 13377 

7776 F XT1 7756 

7762 F XT2 7757 

7756 F XT3 7753 

13540 F BUFF 13226,13235,13274 

7750 F CM12 7742 

7715 F CM13 7715 

7670 F CMF1 7665 

7671 F CMF2 7667 
13622 F CURC 70353 

7603 F CV10 7555 

452 F CASH 7511,10046,10064 

13651 F ERIdR 13335 

10064 F EXC1 7707 

10065 F EXC2 7726 
77661 F EXPN 7521, 7636 

532 F FIXS 13123,13571 

533 F FLOS 13077,13562 
561 F HCL9 13 325,13405 

556 F HORG 13024,13117,13372,13405 

7522 F INTN 7532 

13 302 F JEAN 13260 

13234 F LAMB 13206 

13646 F MK1R 13624 

13624 F MKNO 70353 

4417 F MKT1 136 25,13632,13633,13643 

10021 F CCT1 10030,10033 

10032 F GCT2 10031 

10051 F 0CT3 10036*10041, 10044,10047 

10053 F 0CT5 10042,10050 

10030 F CCT6 10045 

10034 F OCT 8 10023 

10026 F 0CT9 10020,10054 

13023 F PACK 70353 

511 F PBiT 7565, 7635,10053,10064 
4416 F PINO 

454 F PLUS 7506, 7627,10043,10064 

13211 F PORK 13202, 13212, 13255,13261 

451 F Q128 7736,10064 

13304 F RIBS 13227 

13257 F RUMP 13230 

13221 F RUTH 13223 

13264 F STEW 13211 
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13403 
1340 2 
13214 

424 

13247 

13170 

4415 

13036 

46 3 
13617 
1362 3 
13571 
1324C 
13227 
13405 
13172 
13621 
77665 
7514 
13325 
13572 
13560 
13523 
13334 
13505 
7754 

56 2 

565 

7 75 2 

7751 

15 551 

415 
14065 
13224 

201 

20 2 

200 

2453 

13307 

533 

15454 

6326 

15624 

457 
13140 

53 5 

7450 

13062 

10055 

460 
10013 
13561 

456 

2452 

13560 



UP 1.2 
OP 14 
VEAL 

ZERO 



F6AC0N 
FBBIR2 
FBSPNT 
FBFLOC 
F8LANK 
FflOFFO 
FCHACT 
FCHARS 
FCHCPS 
FCHPOS 
FCHTYP 
FCLEAR 
FCURC1 
FCATUM 
FCECNO 
FCIGIT 
FECRTS 
FERBFL 
FEREFU 
FERCR1 
FERSIG 
FES TOR 
FHCL14 
FHCL40 
FiSTOl 
FISTOR 
FIXFLO 
FIXUPL 
F1XVAL 
FUOYCE 
FLAFCX 
FLAPCY 
FLAPCZ 
FLAPTR 
FLITER 
FLCATD 
FLOATP 
FLCNAM 
FLCTOL 
FMINUS 
FMKNAM 
FNARGD 
FNUMBR 
FNUMOB 
FCCT1Q 
FGCT41 
FGCTNC 
FPARAM 
FPGINT 
FPTGNR 
FPWGRD 



13354 

13353 

13210 

13156, 13505 

13303 

13141 ^1 3 161 

13162,13165,1317 7,13 620 

13043,13050,13070,13160,13176 

10064 

13037, 13071, 13163,13561 

70353 

13026,13032,13042,13060,13064,13142,13174 

13204 

13203, 13240, 13262, 13340 

13 312,13505 

13102, 13111,13122,13126,7035 3 

70353 

7676, 

7501, 
70353 

13207, 13231,13302 
13221, 13277,13346, 13347 
13222,13271,13344 
70353 
13214,13216, 13264, 13334 

77 31,10007,10011 
13405 
1 34 5 
10052 

7653, 7655, 7660,10005,10012 
14370,14431, 14511,14526, 15206,15225, 15244, 15 302, 1541 3, 1546 1,15474, 15522, 15544,15644 
163, 412, 1014, 1030,11201 

46 31, 11657,11662,11665,12564,13752,14025,14037,14042,14050,14053,14133, 14142,14150 
13215 



7700 
7504, 



7507, 7512 



415 

417 
421, 



7440,13562,14412,1456 7,15341,15664 



7613,10040,10064 



203, 
203, 
203, 
201 
70353 

6650, 
66143 

55 35 
15521 

7503, 
70353 

16054,16332 
13073,70353 
70353 
10037 
1333 7,13505 

75 02 
13072 

7616,10064 

2442, 2472 
13236,13242,13244 



2457, 2556 
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10150 

77666 

525 

13246 

7742 

53 4 

13301 

11623 

4415 

13 2 30 
4606 
4470 

14717 
14715 
14726 

14 746 
14747 
14731 
14733 
14734 
14707 
15023 
14716 
14750 
14652 
14653 
14654 
14655 
14730 
14713 
14714 
14725 
14727 
14756 
1474C 
14 724 
14607 
14621 
14611 
14721 
14722 
1472 3 
1464C 
14 633 
15024 
14664 
14657 
14672 
14667 
14677 
14674 
14757 
14764 
14645 
14576 



FRECRG 
FRESID 
FSEVNS 
FSHANK 
F SHI FT 
FSUBRO 
F5UZIE 
FUNARG 
FUPLST 
FWDNUM 
FhiLOUT 
FWCRDL 



10150 

7671, 7704, 
13150,13307 

7740 



7720 



e 

N 

w 

A5 

A6 

CI 

C5 

C7 

EA 

EW 

FN 

LI 

Ml 

M? 

M3 

K4 

R2 

SI 

S2 

S3 

SQ 

AP6 

CP7 

LOG 

P01 

P02 

P03 

P04 

P05 

P06 

P07 

P08 

P09 

P10 

Pll 

P 12 

PI3 

P14 

P15 

P16 

P17 

P18 

P19 



13265 

5 35 

13 367 

13205 

4453 

3014 

14605 

145 73 

14657 

14661 

14660 

14641 

14635 

14634 



,64704,70353 

, 13374, 13376, 13400 , 1340 1 , 13620 

,13234,1326 3, 13342 

, 3460, 3704, 4452, 4456, 4461 

,14617,14644,14645,14647,14 712 

,14646,14650, 15017,15043,15104 

,14665, 14700,14701,14702,14703,14704,14705,15100 

,14662 

, 14670 

,. 14636 

t, 146 75 , 14771,15052 



14757, 

14602,. 

15003,, 

15014, 

15040, 

15034, 

15036 

1464 3, 

15000, 

15004* 

14776, 

14626 

14667 

146 74, 

14775, 

14604, 

14606 

14610 

14625, 

146 30, 

146 32, 

14637 

14640 

14651 

14663 

14664 

146 71 

14672 

14676 

14677 

14706 

14710 

14761* 

14763 



14762,15011,15013,15015,15016,15112,15113,15114 

14621 

15007,15021,1504 5,15102 

15037,15046,15047,150 55,15103 

15041,15075,15077 

15073 

15002 

15001 , 15005, 15010 , 150 12 

15006 

15122 



14770,15051 

15076 

14611 



14627 

14631,14642 

14633 



14 766 
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15124 
14712 
14773 
1477C 
14711 
15014 
15114 
15112 
15107 
15061 
15050 
15054 
15051 
15065 
15063 
15122 
15075 
15102 
15120 
15032 
15031 
14656 
14765 
14720 

451 
14710 
14 573 

424 

3 75 6 

4044 

11014 

471 
17410 
15434 
12671 
12731 
12667 
12707 
12727 

12 746 

13 743 

13743 
12701 
12715 
13736 
12674 
12 73 3 
12 740 
12754 
13737 
13735 
12621 
1265 3 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



P2C 
P21 
P22 
P2 3 
P24 
P25 
P26 
P27 
P28 
P29 
P30 
P31 
P32 
P33 
P34 
P35 
P36 
P37 
P38 
P39 
P40 
P41 
P42 
RSQ 
L200 
P171 
PGWR 
ZERO 
GGPCLC 
GCTALK 
GENSYM 
GIL 200 
GCGCGO 
GRTRTP 



H 
H 
H 
H 
H 
H 
H 

H 

H 
H 
H 
H 
H 
H 
H 
H 
H 
H 
H 



A 

AA 
AO 
DA 
UD 
Tl 

T2 
AAX 
ADX 
ANS 
CAX 
CDX 
CAX 
CDX 
ERS 
CRS 
HARP 
HORN 



14764 

14765 

147 72 

14773 

14774,15125 

14777 

15C20 

15022 

15030 

15042 

15044 

15053 

15054 

15064 

15065 

15101 

15106 

15107,15110 

15111 

15120 

15121 

15123 

15126 

14624 

1460 1,1 46 15, 14 716, 15027, 15033,15072 

14760 

70353 

14576, 14577, 14603, 14656 , 14666, 14673, 14716, 14767, 15024, 15031 , 15050, 15062 
"•"•"' ",, 3560, 3757 



3377 



3354, 
67526 
66177 

14623,14720 
66217 

15445,66227 
12711 
12750 
12702 
12716 
12741 
12755 

13651,13653,13655,13661,13665,13667,13671,13675,13701,13703,13705,13711,13727,13732,13735,13736,13740 
13741,13774 

13747,13760,13766,13 767,137 74 

12720 

12722 

13676 

12663,126 76,12703,12712,12 717,12721 

12723,12735,12742,12751,12756,12760 

12757 

12761 

13712 

13662 

12632 

12551,12553,12554,12555,12556,12565,12571,12574,12575,12602,12605,12616,12634,12640,12644,12645,12646 
12647,12651 
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13716 


H 


LCG1 


13726 








13713 


H 


LCG2 


13663, 


13 677 






13733 


H 


LCG4 


13714 








13725 


H 


LCG5 


13713 








13727 


H 


LCG6 










13726 


H 


LCG7 


13742 








13 772 


H 


LSH1 


13745 








13756 


H 


LSH2 


13754 








13764 


H 


LSH3 


13756, 


13757 






13771 


H 


LSH4 


13746 








12602 


H 


CBOE 


12572 








12632 


H 


TUBA 


12617, 


12620 






12616 


HBSCON 


12607 








13650 


HLCCOR 


70353 








12634 


HSHAWM 


12615 








7364 


I 


CI 


7270, 


7271, 


7274 




7365 


I 


02 


7276, 


7330 






7300 


I 


03 


7304, 


7305 






7271 


1 


04 


7301, 


7312, 


7323, 


7 327 


7366 


I 


05 


7265, 


7344 , 


7345, 


7 352 


7312 


I 


07 


7326 








7367 


I 


Q2 


7317, 


7325 






7370 


I 


Q4 


7314,, 


7324 






6654 


I 


RD 


70353 








7020 


I 


GET 


6667, 


6 721, 


6736, 


6741, 


7043 


I 


GTX 


70 20 








733 2 


I 


CUT 


7272 








7066 


I 


PUT 


6731, 


6746, 


6752 




6734 


I 


RDT 


6726 








6711 


I 


RDX 


6660 








6716 


I 


RDY 


6661 








6715 


I 


RDZ 


6662 








6631 


I 


RPl 


6611 








6634 


I 


RP2 


66 1 6 








4211 


I 


RSI 


6605* 


662 7, 


6632, 


6646 


4212 


I 


RS2 


6576, 


6602, 


6613, 


6622, 


7010 


I 


TPE 


6772 








7362 


I 


BSRT 


7245, 


7266, 


7356, 


735 7 


7244 


I 


BUCK 


7263, 


7350 






7215 


I 


CELL 


7024, 


7033 , 


7410, 


70353 


70 3 5 


1 


GTMC 


7046, 


7051 






7045 


I 


G1PC 


7034 








7036 


I 


G7PT 


70 32, 


7037, 


7040 




7353 


I 


ITRX 


7247, 


7331 






7354 


I 


I TRY 


7250 








7 201 


I 


LtoPO 


7054 








541 


I 


0PJS1A 


73 37, 


7367 






7103 


I 


PUTX 


7070, 


7114 






6660 


I 


ROAA 


6655 








6736 


I 


ROOD 


6725 








6667 


I 


RCGC 


6675 








6750 


I 


ROLT 


6673 








6751 


I 


RCNM 


6674 








6752 


I 


RLNN 


67 56, 


6757, 


6760, 


7017 


6652 


I 


ROOT 


6571, 


6614 







6753 



6625, 6636, 6644 
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7200 
7012 
6766 
671C 

677G 
6560 

7002 
702 3 
7061 
7052 
7177 
7 24 3 
7356 
7344 
6653 
7202 
7231 
724 7 
7246 
7105 
7155 
7 115 
7102 
7073 
7101 
7162 
712 3 
724C 
6 741 
6 720 
7237 
6712 
7241 
6 70 1 
6765 
7242 
7162 
6665 
6653 
6666 
6605 
6575 
6563 
6562 
6650 
533 
6651 
7361 
77706 
1202 
77660 
77661 
77734 
77704 



RCPB 
RCPD 
RCPS 
RDPU 
RDXT 
READ 
RLTR 
TPFA 
IGETGO 
IGTfcGF 
IGTGCD 
IGTTBL 
IGTVAL 
IINTAD 
UNTCN 
ILRCIS 
ILWCKS 
IIWCPB 
INTERN 
INTRN1 
IPTRFP 
IPTSFT 
IPTTFA 
IPUTGA 
IPUTMC 
IPOTPC 
IPUTVL 
IPUTZ^ 
IRDODC 
IRCCDL 
IRCOLR 
IRCCLS 
IRCFIN 
IRCIND 
IRCJT1 
IRDJT2 
IROLST 
IRCPNB 
IRCPTS 
IRCVAL 
IRCWDS 
IREAD1 
IREDER 
IRECIS 
IRE0S1 
IRLPAR 
IRNUMB 
IRRPAR 
IVALUE 



B 

Z 

9L 

9R 

LA 

11L 



6601» 
6764 
6762, 
6676, 
674 5, 
70353 
6650 
70 1 1 
7060 
7056 
7022 
7035 
6723, 
7267 
7360 
7021, 



6703 

6763, 
6677, 
6761 



7013, 
6700, 



7015 
7004 



6730, 6733, 6737, 6743, 7030, 7074 



7047, 7057, 7136 



7007,13053,66241 

7077 

6774, 7076 

7067 



6776, 
7010, 
7003, 



7100, 
7107, 
7130, 



7106, 
7113, 
7133 



7135, 
7125 



7141 



6767, 
7110, 



7144 
7117, 



7126, 7163, 7164, 7165, 7166, 7167 



6770, 

6777, 

7002, 

7072 

6724, 

6747 

66 72 
672 7 

6663, 
6671, 

67 35, 
6654, 
7000, 
6712, 
6710, 
6713, 
6565, 
65 70, 
6635 
6560 
6563, 
6650 
6566, 

7035 3 

77726,77731,7773 2,77735,77742,77745,77770,77776 

0,77722,77723,77724,77725,77735,77736,77747,77750,77751,77752,77753,77765 
f i / J. u 

77710 
77740 
77710 



6 732, 6740, 6742 



6714 

6765 

6 755 

6656, 

7102, 

7140 

6766 

7143 

6621, 

6573, 



6623,70353 
6641, 6643 



6617 
6607, 6640 



mm 
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77767 

5270 

5265 

5262 

77744 

77 776 

77722 

7775C 

77 755 

7776 3 
7764 3 
77741 

7777 2 
5337 
5340 
5230 
5305 
5 341 
5336 

77765 

77745 

77722 

53 6 

11522 

53 7 

7 7436 

77434 

3066 

5332 

5327 

5330 

522 5 

15444 

77747 

3071 

307C 

77 72 2 

13664 

13700 

4462 

64424 

754 

7743 5 

3067 

20 3 

1374 5 

4576 

1063 

512 

10440 

10465 

4756 

40154 

15501 

1562 5 



BLD 
EQA 
EQF 
EQT 
HLT 
IOC 
LDB 
CCB 
OCL 
SLW 
STS 
TXH 
8LDC 
EQL1 
ECL2 
EQLP 
EGPF 
EQTS 
EGXR 
FLIP 
I OCT 
LOAD 
LABELD 
LAMBDA 
LAMDAD 
LAPPRT 
LAP TAB 
LBINPG 
LEGPFX 
LEGPRX 
LECPRY 
L EQUAL 
LESSTP 
LFLIPl 
LFREES 
LFULWS 
LEADER 
LDGAND 
LCGXOR 
LCWARY 
LEWERR 
LCWREG 
LPBLNK 
LPBPDL 
LRTAPE 
LSHIFT 
L1BPFJ 
LtefTAPE 
MAGMSK 
MAPCAR 
MAPCON 
MAPLLS 
MIDDLE 
MINUSP 
MNSPRG 



77756, 77761,77762 
5241 

5233, 5235, 5251, 
52 3 1 



5257, 5273 



77751 

77721, 7 7743, 77744, 7 7 7< 

7 77 57,777 71 

77764 

77760 

77777 

77724 

77774 

5227, 5232, 5245, 524 7, 

5226, 5230, 5234, 5236, 

5261 

53 00, 5302 

5225, 5263, 5266, 5274 
7 7753 
77723 

77777,77660,77710 
16054 

5 37,64713,70 353 
16054 
76756 
76763,77432 

26 64, 2726,1144 7 

5312, 5314, 5322, 5324 

5305, 5332 

5307, 5333 
70353 
66310 
777 25 

2705,11460 

2711, 2 723,11455 
371,66340 



6,77777 



5260, 
5242, 



5270, 
5254, 



5275 
5276 



762, 1001 



174, 776, 1000, 1002 



77710,. 

66350 

6637C 



3056 
173, 754 
76754 
2675, 2725,11452 
172,. 
66276 
4562,76773 
757, 761, 763 

664 10,70353 
10507*66420 
10405*14104, 16761, 17057, 17257,66430 

173, 175, 754, 
66472 
66462 



762, 



764, 1001, 1003 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
POST PROCESSOR ASSEMBLY DATA 



59/20/67 



PAGE 36 



3626 
77642 
77636 
20C 
12661 
15446 

465 7 
15343 
506 
64623 
11731 
13321 

1527 



11313 
11403 
11140 
1024 
11140 

10621 

10622 

10617 

1063G 

10630 

10606 

10607 

10614 

10615 

4202 

4203 

2 305 

520 

521 

11373 

530 

541 

40 

364 

4207 

1056 5 

5656 

6043 

5750 

4 213 

10655 

1064 5 

1701 

522 

6 306 

1406 

15561 

15565 

1542 4 



MRKLST 
NILLOC 
NILSXX 
NCBACT 
NUB POL 
NLMBRP 
NUMNAM 
NUMVAL 
OB LANK 
OB LI ST 
OCTALP 
OPCHAR 
OUTPUT 



OVCKPT 

ovecFp 

OVFSCR 
OVLTXX 

OVRLRD 



PALI 
PAL2 
PAL3 
PAL4 
PAL 5 
PAP2 
PAP3 
PA SI 
PAS2 
PAS3 
PAS 4 
PAUSEF 
PC MASK 
PCTMSK 
PMAPCA 
PNAMEA 
PNAMED 
PPT I NO 
PPTCUT 
PRGVAR 
PRINAR 
PRINT2 
PRINTC 
PR INTO 
PRINTL 
PRPLCA 
PR P LCD 
PSHLDB 
PTAMSK 
PL N ACT 
Q AX 
Q FL 
Q FX 
Q AIT 



2756, 2762, 3337, 3363, 3365, 3434 

200*77466 
2354, 2421,11211 
2357, 2674 
66542*76722,77223 
5516 

13722,13 761,14344,14352,1517 3,15406,1544 7,15456,15471,15502,15512,15536,15626,15636,76735,77216 

2506, 2554, 2574, 3550,11564 

3333,64624,66564 

2477, 2501, 2505, 
66611 

1056, 1135, 2023, 

62 30, 6577, 6701, 



2553, 2564, 2566, 2572, 3547, 5633,11746 



2111, 
7115, 



2212, 2260, 2333, 2411, 2415* 2517, 2560, 2576, 3035, 3573, 3700, 5747, 6042 
7406,10577,10607,11165,11171,11202,11374,11377,11474,11500, 11573,11627,11700 

120 22, 12121,12233,12323,12337,12370,12452,13127,13267,13272,13275 

11376 



11247,12224 
1166,11746 
413, 2615, 
12224 
10572 
10574 
10601 
10601 
10611 



10604 
10565 
10566 

10567.10602. 10612 

10570.10605. 10613 
66651 

4634,12577,12642 
4161,64720,70353 

7367*11067 

6235,11411,11416, 11436 

1701, 6231 
16375,16420,17404 
12301 
66746 



3711, 11140,11162,11170, 11241,11340,11370, 11373, 11435,11470,11477,11503,11645,12025,12127 



614 5, 6150 



5346, 5 351, 
64755,70353 
64756*70353 
66671 

2603 

5371, 5450, 6140, 6246, 6250 
14005 
15554 
15552 
15407,15412,15417 
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1425C 
15404 
14 130 
14332 
14 333 
15317 
14171 
14052 
14021 
14055 
14061 
15301 

4244 
15341 
1415 4 
14341 
54 3 
14163 
14057 
15425 
1546 5 
15151 
15143 
15451 
14561 
15622 
1557 7 
15605 
15621 
1562 3 
15525 
15515 
1553C 
14241 
14336 
14232 
15402 
15427 
15127 
14327 
14334 

4245 
15234 
15236 
15263 
15261 
14312 
14313 
14062 
14063 
14053 
14046 
14030 
15323 

4241 



AAA 

AD1 

ADA 

ADO 

ADT 

AFL 

AGA 

AGD 

AGN 

AGR 

AGV 

AMM 

AMQ 

AMR 

AOD 

ARY 

A SB 

ATD 

AXS 

FAD 

FLT 

MAX 

MIN 

NPT 

CUT 

UFC 

UFE 

UFF 

UFQ 

UFS 

ZPF 

ZPG 

ZPT 

AADD 

A ARY 

ACL A 

ACD1 

ADDF 

ADDP 

ADOT 

ACTH 

A FAT 

AFLL 

AFLR 

AFLT 

AFMP 

AFRX 

AFRY 

AGAO 

AGAT 

AG01 

AGDT 

AGXE 

AMLN 

AMIR 



14253 
15433 
14125*14126 

14134,14154,14160,14164,1416 7,14171,14202,14227,14240 

14143, 14157, 14165, 14173, 14241 

15304 

14153*14162 



1400 7, 

14043, 

14011, 

15204 

15174, 

15272, 

14136 

14262 

14272, 

14145 

14020 

15415 

15463 

70353 

70353 

15505 

145 51 

15566, 

15570 

15602, 

155 73, 

15601, 

15464, 

15550 

15516, 

14244 

14224, 

14235 

70353 

15416 

7G353 

14174, 

14151, 

14115., 

15210 

15212 

15250 

15246 

14106 

14107, 

13776, 

1400 2, 

14045 

14023 

14056 

15311 

1512 7, 



14010 
14046 
14030 

15205,15224,15243,15301 
15276 



14342 



15571,15611,15614 

15607,15610 
15575 

15604,15615 
15476,15533 

15532 

14254 



14201,14232,14245 

14155,14163,14175,14250 

14275,14303,14311,14317 



14316 

14006,14 013, 14024,14041,14052 

14015,14044,14047 



15135,1514 3,15151,15156,15336 
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15165 Q AML» 15220,15233,15260,15316,15330 

15241 Q AMLT 1520C 

15216 Q AMRF 15240 

15256 Q AMRU 15266 

14324 U APWO 14214,14216 

14325 Q APWT 14204,14207 

14033 Q ARYY 13774 

14034 Q ARYi 13775 

14335 Q ASBR 14217,14221,14265 

14326 Q ATBZ 14215,14230 

4246 Q ATMP 14132,14135,14140,14144,14212,14264,14267 

14331 Q ATMS 14205,14220 

1433C Q ATYP 14124,14127,14176,14177,14206 

14521 Q CIFT 14510,14513,14514 
14517 Q CIFX 14504 

14470 Q DIVA 14440 

14503 Q CIVT 14430,14433,14441,14451,14452,14455,14466 

14473 Q CIVX 14424,14457,14477 

14564 Q EXPA 14530,14546 

14541 Q EXPB 14531 

14533 Q EXPC 14565 

14567 Q EXPF 14564 

14562 Q EXP I 14532 

14522 Q EXPT 70353 

14570 Q EXPX 14522,14534,14560,14563 

14571 Q EXPY 14523,14533 
15467 Q FIXP 70353 

14076 Q FXVE 14065,14070,14073 

15442 Q 6RTT 15436 

15632 G MRXR 15625 

15135 Q MULT 70353 

15277 Q MXIR 15271 

15452 Q NPIR 15446,15450,15454,15467,15501,15507,15510,15527,15534 

15346 Q NVLP 

15352 G NVNO 15346,15365 

15534 Q CNEP 70353 

14556 Q CUT1 14552 

533 Q RCPS 15654,15664 

15663 Q RCPT 15641,15650 

15655 Q RRXR 15634,15662 

15431 G SUB1 70353 

467 Q UFMC 15572,15574,15621 

466 Q UFNC 15606,15621 
15617 G LFXR 15577 

15267 Q UNFX 15214,15252,15274,15307 

14 360 G UNUE 14406 

14411 Q UNUR 14350*14356,14360,14367 

14407 Q UNUS 14347,14362,14373 

14410 Q UNUT 14343,14351,14365,14377 

14 36 3 Q UNU'X 14342,14401 

15526 Q ZPIR 15455,15466,15470,15500,15511,15531,15535 

15532 Q ZPTS 15523*15524 

467 Q233Q9 15621 
470 0777Q9 15621 

15420 GA1IR1 15402,15431 
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15421 
15422 
14 33 7 

14 064 
14036 
14031 

15 331 
14105 

533 

15221 

532 

4242 

1533 7 

424 3 

15156 

15310 

15342 

14340 

14315 

14516 

14435 

14476 

1446 3 

14502 

14424 

14472 

14 54 7 

15440 

15271 

15363 

15373 

15374 

471 

465 

15660 

15656 

544 

470 

15566 

53 3 

14365 

14402 

14400 

542 

14421 

15510 

5123 

424C 

4236 

4237 

4235 

10766 

5100 

4121 

412 2 



QA1IR2 15404 

QA11R4 1 5405 

QACLAS 14237 

QAGATH 14004, 14017, 14036 

QAGCTH 14022 

QAGXEX 14000,. 14021 

QAMENO 15166 

QAMFAG 14103 

QAMFLC 15334,15341 

QAMFRS 15176 

QAMFXC 15332,15341 

QAMIND 15131* 15137, 15145, 15153 , 15 160, 15335 

QAMIR2 15163 

QAMLI.S 15170,15217,15232,15257,15315,15327 

QAMMMF 15134,15142,15150 

QAMRNT 15322 

QAMSUM 15164, 15215, 15216, 15223,15237,15254,15256,15265,15273,15275,15312,15313, 15323,15326,15331 

QARSTO 14247 

QARYTL 14211 

4I0IFX2 14505 

QCIVDC 14467 

QCIVEX 14445 

QCIVFX 144 34 

QCIVND 14412, 14415, 14421,14461,14474,14500 

QOIVOP 14414,14420 

QC I VX 2 14425 , 1 4/. 60 , 14476 

QEXPLS 14542 

QGRTIR 15434,15443 

QMIXFL 15236*15263,15321 

QNVATM 15351 

QNVIR4 15343,15355 

QNVT8L 15372 

QC2Q11 14720 

QC3 3Q2 

QRCPFX 15647 

QRRXR2 15635 

QSPECD 77327,77347 

QCFMSK 15567,15621 

QUNFIX 70353 

QiiNFLT 14375,14412 

QUNMXA 1435 7 

QUNMXB 14372 

QUNUX2 14366*14405 

QUOTED 6650 

QtfGTEN 67016 

QZEHOP 70353 

CI 5117 

ST 10223,10227,10232 

SX 10217,10273 

S.Y 10220,10224 

SZ 102 35* 10236, 10242, 10246, 102 5 0, 1G253, 10254, 10256, 10265 

ATI 10754 
CMP 5005 

CS1 5112, 5121, 5141 

CS2 5124, 5127, 5132, 5133, 5136 
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514 3 

4131 

16512 

1743G 

4153 

4170 

4171 

4172 

4173 

4174 

51 1 C 

10751 

5201 

5150 

5211 

4234 

10 750 

16307 

16304 

10760 

514 

47 6 

16267 

4155 

4156 

4154 

16434 

16260 

1626 5 

16270 

16274 

5104 

5111 

514 

4105 

4106 

16457 

16444 

16454 

16440 

16435 

410 7 

424 

476 

4130 

4175 

4176 

16506 

16472 

16503 

16466 

16463 

4177 

4205 

17403 



CT1 

ELA 

EQP 

GOT 

GOX 

KS1 

^S2 

MS3 

KS4 

FS5 

MS6 

NLY 

SRI 

SR3 

SR4 

SXT 

TWA 

ATMX 

ATPi 

ATRB 

8F0M 

BFQ1 

BFS1 

BFS2 

BFS3 

BFS4 

BFS5 

CARP 

CARX 

CCRP 

CCRX 

CNSP1 

COPY 

DECK 

EVA1 

EVA2 

EVA3 

EVA4 

EVA5 

EVA6 

EVA8 

EVA9 

EVCF 

EVCT 

EVLX 

EVR1 

EVR2 

EVR3 

EVR4 

EVR5 

EVR6 

EVR8 

EVR9 

INTB 

INTE 



5114, 5120, 5125 

70353 
17417 

17410, 17423,17431 
4757, 4766, 5044, 

50O3, 

5004, 

5016, 

5017, 



5025, 

5006, 
5031, 
5034, 



5047 

5042, 

5040, 

5036 

5074, 



5076, 5110 



4770, 50O3, 5025, 5042, 5053 

4772, 5004, 5006, 5040, 5C54, 5056 

4774, 

4776, 

5000 
10720 

5165 

5210 

5150 
10222,10271 
10725 
16276 
16277 

10755*10763 
16273,16276 

16304,16311, 16314, 16515 

16316,16330,16332,16354,16413,16425,16512,16513 
16317,16324,16336,16345,16415,16423 

163 33, 16350 
16343,16353 
16414,16431 
70353 
16260 
70353 
16270 

5055 

5131, 

5130, 
16440, 16455 
16445,16457 
16453 
16460 
16462 
16435 
70353 

16442, 16450,16452 
16464,16510,16512 

164 36,16461,16502,16512 

164 66, 165G4 

164/3*16506 

16501 

16507 

16511 

1646 3 

70353 

16470,164 76,16500 

17252,17601,17304,17322,1733 0,17351 

17253, 17264,17267 



5135,70353 
5144, 5207 



LISP 1.5 FOR SHARE DISTRIBUTION, MARCH 1965 
POST PROCESSOR ASSEMBLY DATA 



9/20/67 



PAGE 41 



16332 

16316 

500 7 

51 A 

4167 

4166 

4165 

4164 

514 

10520 

1C522 

10531 

10533 

10770 

10631 

4222 

16413 

10733 

10752 

10746 

1074 5 

4214 

4215 

4216 

4217 

4220 

10222 

10271 

10267 

10273 

16276 

53 5 

42 4 

3600 

15634 

376 

4030 

4031 

4032 

514 

3312 

14415 

10534 

2 656 

20044 

1166 

10665 

17404 

17300 

17314 

17242 

17333 

17354 

17365 

17363 



LA6P 
LAMP 
MAIN 
MCDM 
MCN2 
MCN3 
MCN4 
MCN5 
NCDM 
NCII 
NC12 
NCS1 
KCS3 
NOTS 
PROP 
REPV 
SETP 
SPP1 
SPRX 
SPRY 
SPRZ 
SRS1 
SRS2 
SRS3 
SRS4 
SRS5 
SUB1 
SUB 2 
SUB3 
SUB4 
RATOMP 
R6FFAG 
RBFZRO 
RCEXIT 
RCPPRG 
RCRLCC 
RCSGNL 
RCSGNM 
RCSG.MN 
RDMASK 
RECLAM 
REMAIN 
REMPRP 
RESETP 
RESTOR 
RESTRO 
RETAFM 
RETURd 
RINTAA 
RJNTE8 
R INTER 
RINTEV 
RINTFB 
RINTFC 
RINTFX 



70353 
70353 

5103 
10505, 10515 
10470, 10502,10511 
10471,10503 

104 72,104 73,1047 5,10506 
10466,10513 
10524,10533 
10515 
10525 
10520 

10521, 10530 
70353 
703 53 

16360, 16364, 16376,16410 
70353 
10741 
10713 
10727 
10730,10733 

5144, 

5151, 

5147, 

5153, 

5146,. 
10245, 10252 
10233,10274 
10257 
10226 
70353 

16327,16332 
16321,16332 

3543 
67040 

3761, 

3321 

3441 

35 35 
10762,10770 

4611, 
67062 
67074 



5177, 
5166, 
5156, 
5167, 
5155, 



5214, 

5205 

5160 

5171, 

5201 



5223 



5203 



4610, 4615 



4616,17704,67050 



20061 

67106 

64 761,70353 

67116 

17265 

17327 

70353 

17311,17312 

17256 

17343 

17355 
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1730 1 

4206 

17264 

4210 

4207 

17374 

4204 

5057 

5025 

505 2 

10515 

476 

16311 

10775 

11004 

11010 

16406 

4221 

4223 

10 544 

10546. 

10557 

10555 

10551 

10564 

514 

10637 

10644 

10643 

10650 

1070 7 

10672 

1070C 

10701 

47 6 

10 70 5 

10704 

10702 

16427 

16356 

10217 

11562 

116 10 

11760 

12255 

4414 

12320 

12322 

12503 

1227C 

12317 

12502 

12170 

11027 

11047 



RINTGA 
RINTGL 
RINTGM 
RINTGS 
RINTPL 
RINTRN 
RINTRX 
RMIN1 
RNLGP1 
RMPRG1 
RNCCNC 
RNOTCI 
RNULLP 
RPLACA 
RPLACD 
RPLACW 
RREPP1 
RREPS1 
RREPTi 
RRHPR1 
RRMPR2 
RRMPRE 
RRFPRO 
R-RI«PRT 
RRMPRX 
RSASDM 
RSASL1 
RSASPI 
RSASP2 
RSASP3 
RSASP4 
RSASP5 
R5A5P6 
RSASP7 
RSASQ1 
RSAST1 
RSAST2 
R 6 AST 3 
RSETP1 
RSETQP 
RSUBST 



OBQ 
ODC 
CUP 
EVQA 
EVQB 
EVQD 
EVQE 
EVQM 
EV«S 
EMQl 
EVTS 
GCRD 
GENA 
GENB 



17310,17314,17337,17353 

17245,17300,1734 5,17371,17377 

17273,17277 

17244,17247,17336,17340,17352,17367,17374,17376,17405,17413,17420,17427 

17246, 17260,17262,17325,173 34,17404 

17302,17341 

17242, 17401 

5107 

5077 

5030 
70353 

10773,10775 
70353 
67126 
67136 

16373 

16356*16404 

16372,16401 

10554 

10543,10563 

10552 

10537, 105-41 

10534,10555 

10645*107 12 

10643*10644 

10633 

10635 

10640,10711 

10672 

10700,10701 

10667 

10665 

106 34,10666, 10712 

10631* 10646, 10653, 10660, 10662 

10663,10 707 

10664,10710 

16416 

70353 

70353 

11602,11622 

11605 

11541,11550,11560, 1156 5,11566,11575,11601, 11617,11625,11631 

122 51 

12237, 12250,12252,12253,12257,12260,12272,12273,12457,12462,12472,12476,12477 

12306,12345,12450 

12454 

124 22, 12436 

12227,122 31 , 1233 2,12363 

12202 

11023 

11024 
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514 S GENC 11063,11067 

11032 S GEND 11035 

11036 S GENE 11034,11041 

11042 S GENF 110 36,11045 

11125 S GENL 11071,11072,11135 

111.03 S GENM 11:110 

11132 S GENN 11073 

11111 S GENP 11106,11107 

11046 S GENQ 11027,11043 

11065 S GENX 11014 

424 S GEMZ 11053,11055,11067,11120 

11541 S OAXT 11600 

11752 S CBEG 11517,11531,11534,11536,11543,11545,1166 0,11675,11721 
11700 S ODER 11515,11522,11525,11532 

11755 S OOLT 11603,11606,11610,11611,11612,11613,11614 

11753 S OENO 11521,11526,11653,11661,11663,11674,11724 
11757 S CLDM 11604 

11551 S CLDQ 11530,11570 

11603 S OLID 11555 

11601 S OSTZ 11552 

576 S OVCC 11151 

11633 S QVDC 11510 

11635 S 0VD1 11512 
11374 S CVDN 11225,11374 

11634 S CVDQ 11511 

11636 S CVDX 1 1504,-1 1632, 11646, 11670,11703,11727 

11637 S OVDY 11505,11647,11671 
11640 S QMDl 11506,11650,11672 
11526 S CVGE 11667*11677, 11730 
12015 S OVLA 12020 

11140 S OVLD 11251*12224 

1024 S OVLT 11333*11347,11361,11746,12215 

11336 S GVTA 11352,11441 

11002 S REPL 10775*11004,11010 

1246 5 S TSRD 12456,12460 

12500 S TSRR 12465 

10662 SASSOC 1614 1,16377,16421,17346,70353,77213 

1161 SAVEXX 67156 

11070 SCIGIT 11015,11020,11125 

5144 SEARCH 67234 

303 5 SETERR 27 30 

12224 SEVALQ 70353 

525 SEVENS 3764* 4743, 5603, 5673, 6560, 6773,11042,13057,13065*13307,13674 

12342 SEVLQX 12224 

12343 SEVLQY 12225 
12504 SEVGAC 12311,12316 
12525 SEVQAM 12325 

4247 SEVQAN 12244*12322,12326,12330,12373,12423,12435 

12377 SEVQAT 12315*12413,12414 

144 SEVGBL 12240,12266,12510 

12511 SEVGBM 12235 

12336 SEVGDN 12334,12336,12471 

12331 SEVGER 12267,12366 

12437 SEVCFS 12405*12412 

12321 SEVGFT 12305,12310,12443 



urn 
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12415 SEVQFX 12407 

12267 SEVGLP 12335 

12532 SEVGME 12341 

12307 SEVQMP 12356 

12505 SEVCMQ 12424,12432 
12316 SEVQNF 12400 
12264 SEVCOP 12262,12376 
12263 SEVQPO 12247 
12241 SEVQRD 12254,12261 
12537 SEVQRE 12372 
12375 SEVCRX 12241 
12510 SEVQSP 12245,12467 

12506 SEVQST 12403, 1'24 10 , 12421, 12446 
12334 SEVQTH 12264 

12305 SEVTP1 12464 

12202 SGCIOC 12114 

12173 SGCRDB 12106 

12174 SGCRDC 12110 
12176 SGCRDD 12112 
12201 SGCRDE 12203 

541 SGENPN 11060,11067,11074 

11067 SLETTR 1 1047,1 1124, 11134 

1154C SGAXT1 11572 

11731 SCCTLP 11547,11557,11561,11615,11620,11746 

11704 SGCBAO 11702 

11754 SCDSAR 11616,11621 

11556 SCDXCL 11607 

11756 SCLISD 11524,11554,11666,11676,11716 

11307 SOVALf 11401 

11162 SGVBSy 11163,11164,11175,11176 

57 7 SGVBUF 401,11142,11152,11153,11167,11204,11323,12011,12012,12055,12065,12070 

11255 SCVCEM 11476 

11471 SCVCER 11446,11451,11454,11457,11464 

12152 SCVCHN 120 74 

12155 SGVCLT 12115 

12021 SGVCMP 12072 

12167 SCVCTN 12116 

11324 SCVDBG 11233 

11214 SCVDC8 11155,11214 

11751 SCVDEK 11643,11725 

11750 SCVCEX 11507,11641,11651,11652,11656,11673,11726 

11623 SGVCFN 11567 

11627 SOVDLL 11623 

11504 SOVDKP 11237 

11746 SGVDSF 11540 
11576 SCVCSH 11537 

11747 SOVDZS 11553,11571,11576 
11712 SOVENK 11516,11644 
11377 SCVEOF 11144 

11171 SCVERR 11143 

11404 SCVFUP 

11152 SOVGOR 11174 

11253 SCVIND 371 

11264 SGVNSM 11502 

11500 SOVNSZ 11326,11342,11354,11437 
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11436 
11175 
11323 
11276 
11' 140 
11353 
12167 
11156 
11341 
11252 
11442 
12042 
12004 
11252 
1214 7 
12220 
11435 
12133 
12130 
12207 
12073 
12124 
12125 
12126 
11213 
1203C 
12026 
1132 5 
12142 
575 
12115 

1505 
10615 
10742 
10712 
11022 

5216 
10577 
11001 

2606 
13212 

2542 

2605 

12451 

615 

10275 

3460 
11604 
11071 
77432 
616 
11254 

150 
366 



SGV0N6 
SOVPNT 
SCVPOS 
SCVRDM 
SCVSCR 
SCVSET 
SCVSPC 
SCVSRC 
SOVSST 
SCVSVI 
SCVSZE 
SGVTAA 
SCVTAP 
SOVTBL 
SCVTCT 
SCVTJJ 
SCVTOV 
SCVTPO 
SCVTPP 
SCVTPR 
SGVTPS 
SCVTPX 
SGVTPV 
SGVTPZ 
SCVTRA 
SCVTRM 
SCVTRN 
SOVTST 
SCVTTB 
SCVTX4 
SCVTXX 
SPACEX 
SPECAL 
SPPERR 
SPREAD 
SfiUANT 
SRCMPT 
SRETUR 
SRPLEX 
STRBTM 
STREAD 
STRPNT 
ST R TOP 
STSEVQ 
STSIND 
SUBLIS 
SfePFWS 
SYMGEN 
SYMNAM 
SYMTAB 
SYSENB 
SYSIND 

SYS NAM 
S Y S P IT 



11215 

11160 

11444, 11513 

11173 

11243,, 11245, 12224 

11217 

11150 

11161 

11231 

11253 

11227 

12017 

11235 

11155, 11156, 11177, 11253 

12073 

12211 

11424 

12077 

12117, 12120,12123 

12007 

12063 

12004 

12005 

12006 

11200 

12021 

12024 

11221*11223 

12015,12076 

12207,12222 

12100 

12270 

544,64 777,65622,7035 3,77325,77326 

12447* 16-122 1 1702 5 

11-030* 11031,11111,11116,11133 

5213 
64775,70353 
11007*11013 

2735 
6 7321 
17627 

2733 
12232,12333,12364 

373, 616 
67350 

3453 
64706,70353 
67664 
67375 

375, 376 

372, 2323, 2325, 3334, 3705, 
11471,11473,12221 

1173, 2163, 2164 



3707, 6234, 6236, 11206,11212, 11336, 11364, 11366, 11372, 11417, 1 1462, 11467 
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365 
364 
370 
367 
5645 
6545 
5425 
5403 
541G 
5421 
6557 
6556 
655 5 
6554 
6553 
655 2 
6551 
6550 
5445 
7405 
456 
447 
6124 
5650 
5435 
73 76 
7414 
7427 
744C 
7442 
7443 
7444 
7445 
5520 
6162 
6176 
617 7 
6200 
5644 
5463 
5470 
552 3 
5630 
6065 
6066 
6067 
5437 
5440 
6304 
500 
6121 
5 76 5 
5371 
451 
513 



SYSPOT 
SYSPPT 
SYSTAP 
SYSTMP 



L 
Al 

A 2 

A3 

A4 

A6 

CO 

CI 

C2 

C3 

C4 

C5 

C6 

C7 

LI 

NE 

A33 

A77 

ADT 

8Q0 

DOT 

NA1 

NA2 

NA3 

NA7 

NA8 

NX1 

NX2 

NX4 

PA3 

PLP 

PNX 

PNY 

PNZ 

PR1 

PR2 

PR3 

PR4 

PR5 

PR7 

PR8 

PR9 

PS1 

PS2 

PSS 

CD5 

REC 

TAB 

XA1 

A 128 

A COM 



151 If. 
1701, 
1 70 , 
7 55, 
5524, 
6362, 
5414 
54 31 
5434 
5411 
6336, 



1701, 
2154, 
12101 
774, 
5530 
6406, 



6215,11407,11420 

6216,11406, 11413 



2155, 



6375 

5361* 

7420 

646 7, 

6521„ 

6124* 

5621 

5415 

7404 

7403 

7423 

7421 

7426, 

73 73, 

7372 

7371 

54 75 

6172 

6153, 

6154, 

6155, 

5446, 

5462 

5531 

5477 

5665, 

5664, 

5656, 

5356, 

5402, 

6164 

5757, 

5734, 

5766 

5365 

6354, 

5460, 



6377 



5 366 

6560 
6560 
6125, 



7431, 
7437 



6251 
6252 
6253 
5532, 



5 727 

5730, 

5663, 

5367, 

5403, 

6047, 
5751, 



6560 
5461, 



1125, 1132, 1141 

6410, 6413, 6414, 6420, 6423, 6427, 6435, 6453 



6126, 6127, 6130, 6131, 6132, 6133, 6134,, 6135 



7433, 7434 



5640 



5763, 
5 731, 
5423 
5410, 

6124 
6013, 



5470 



6026,: 
6027, 



6051 
6G52 



5417, 5427 



6036, 6044 
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5653 
5647 
5720 
5444 
5566 
6463 
6451 
6452 
6477 
6352 
6 36 2 
6 370 
6376 
6412 
6413 
6420 
6424 
6445 
6447 
6 34C 
6514 
6515 
6516 
6057 
5626 

5 705 

6 546 
5537 

444 
525 
6073 
6302 
6172 
6303 
6305 
6324 
617 3 
5 50 3 
5474 
5532 
5534 
5642 
5432 
564 3 
5 761 
6153 
503 
6072 
6016 
6013 
6024 
6020 
6021 
6074 
6034 



tiCIQ 

ecao 

C0M8 

CURL 

FIFI 

FL01 

FL65 

FL67 

FL70 

FL73 

FL74 

FL75 

FL76 

FL77 

FL?8 

FL79 

FL80 

FL81 

FL82 

FLNA 

FLNX 

FLNY 

FLIMZ 

INIT 

JUDY 

JUST 

LCG2 

LUCY 

ONEE 

ONES 

PART 

PCNT 

PGRA 

P L IS 

PNCQ 

POUP 

POUT 

PR3N 

PR3P 

PR4E 

PR4F 

PRC1 

PRP2 

PRSS 

PRTB 

PUN2 

QD20 

RCHM 

TABA 

TABB 

TABC 

TABX 

TABY 

TEMP 

TER1 



5610 

5614 

5724 

5363, 

5562, 

6456 

6463 

6475 



6361 
6401 
6405 

6416 
6417 
6441, 
6431 
6331 
6326, 
6340 
6341 
5667 
5537 
5700 
6357 
5514 
6445, 
6502, 
5716, 
6167, 
6203, 
6212 
6207, 
6170, 
6166 
5471 
5502 
5517, 
5511 
56 34 
5405 
5447, 
5745 
70353 
5753, 
5676* 
6001 
6016 
5775, 
5765* 
5766 
56 71,, 
6035 



5400 
5577, 



5601 



6442 



6332, 6510 



6560 
6560 
5 721, 
6204, 
6*245 

6244 
6213, 



5755, 

6206, 



6 006, 
6264 



6032, 6054, 6061 



6214, 6221, 6222, 6224, 6232, 6241, 6265, 6271 



5536, 5627 



5455, 5503, 5630 



5756, 
5677 



6003 
5774, 



6045, 6057, 6124 



6025 



5672, 5701, 5703, 5705, 5714, 5715, 5740, 5752 



'VMM 
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6042 
6036 
5646 
6262 
5 765 
524 
371 
1006 
IOC 
5651 
5547 
527 
527 
15664 
15675 
15 703 
15717 
15702 
15700 
15677 
15701 
5725 
5736 
5670 
5 723 
5443 
12662 
560 3 
4046 
7136 
3200 
6026 
6246 
6403 
6534 
6530 
6534 
3573 
5560 
11136 
2036 
2040 
2043 
2045 
2034 
202 3 
2027 
6521 
744 7 
6547 
5442 
571 A 
5624 
5612 
5 652 



TER2 
TER3 
TONI 
TPLP 



TABTAB 

TAGMSK 

TAPASG 

TAPDMP 

TAPIND 

TBCIOQ 

TfiETTY 

TBLANK 

TfiLNKA 

TCNTEM 

TCNTM1 

TCNTM'3 

TCNTM4 

TCNTMA 

TCNTMF 

TCNTMN 

TCNTTR 

TCOMfll 

TCCNB3 

TCCFB4 

TCCMB5 

TCQMM2 

TCOUNT 

TGE8BY 

TEHLIS 

TEREAO 

TERPDL 

TERPR1 

TERPUN 

TFL76A 

TFLOPB 

TFL2ET 

TfLZPZ 

TGCPRT 

TGRETA 

TIMEST 

TIFGT1 

TIM0T2 

TINCT3 

TIMDT4 

TIMGUT 

TIMPRT 

TINSAA/ 

T 1 N BCD 

TKBPOS 

TLGG10 

TLPAR2 

TLSHIF 

TV A RLE 

TMICKY 

TWISGN 



5563, 5571, 5574, 5600 



6037 
6041 
5560, 
6266 

5766,67405 

3220, 5313, 5323,15364,17442,17443 
12075 

1162, 11331,11345,11357,1140 3,11443,12213 
11327, 11343,11355,11405,12207,12210,1222 

5624 

5542 

6005 * 6014, 603 3, 

5754* 6053, 6060, 
16071,16547,17456 
15664 
67472 
15703 

23 36, 3563,15711, 16070,1654 6,17136,1717 3,17455 
15671,15710 

3565,15666,15670,15715,17204 
156 73, 15712,15714, 16165,16611,17514 



6040, 
6124 



6124 



6064 
5737, 
5425 
4513, 
5564 
3341 
754, 
12362 
23 40, 



6147, 12361 
6372 



5760 

4524, 4621, 4643,12606 

1010,12263,1235 7,12455 

5350, 5375, 5454, 5464, 6024,12360,13266,13300,17130,17165,17216,67415,76707 



6344, 
6450, 
6334 
3564 
5570 
67462 
1727, 
17 30, 
1760, 
176 1» 
2025 
1766 
1725, 
64 32, 
7416 
6370 
5376 
5706 
5550 
5607 
5543 



6345, 
6455, 



6346, 
6457, 



6503, 
6465 



6511, 6523 



1756, 
1757, 
2022 
2017 



1741, 
6437, 



2011 
2006 



1765, 
6444, 



1767 
6446, 



6461, 6466, 6470, 6472, 6477 



mmmm 
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5 72 7 

7371 

463 

457 

45 4 

20063 

6071 

5625 

6121 

6151 

6157 

5436 

5356 

5446 

566 2 

5342 

5354 

6202 

5352 

5 350 

5654 

5655 

6137 

6222 

6230 

6156 

17220 

17232 

17222 

17201 

574 C 

544 1 

5617 

5676 

6542 

560 7 

5734 

607C 

4643 

13353 

3117 

1033 
1042 
1043 
1055 
1044 
14342 
70353 
402 7 
2264 
2205 
2165 
2156 
2167 



TNOJOB 
TNUTRN 
TGNEBL 
TCNEMI 
TCNtPL 
TO PROG 
TPARTS 
TPATSY 
TPCPPI 
TPNCHX 
TPPRTS 
TPR8LW 
TPRINO 
T PR INI 
TPRIN2 
TPRINT 
TPRNIL 
TPRPLP 
TPRPS1 
TPRTTl 
TPTPNT 
TPTTGR 
TPUNCH 
TPUNX1 
TPUNX2 
TPWROS 
TRCPR1 
TRCPR2 
TRCPRL 
TRCPRT 
TRECFL 
TRPAR2 
T SANDY 
TSHIFL 
TTHSNO 
TVICKI 
TWFULL 
TWORDS 
UNCONT 
UNPACK 
UNSAVE 

UNTIM1 
UNTIM-2 
UNTIM3 
UNTIM4 
UNTIMP 
UNUMIX 
UPERML 
V.ERBOS 



EJR 

IOC 

MRD 



6257 
5432 
5407,70353 



5675 
70353 

6474, 6560 

6443, 6476, 6560 

6560 

3064 

5717, 5725, 6004, 

5611, 5616, 5623 

5344, 5761 

613 7 

6173, 

5354, 

5347, 
70353 
70353 
70353 

5357 

6171, 

5342 

5764 

5506, 5540 

5457, 5470, 
70353 

6227 

6217 

6174, 6256 
17201 

17202*17217 
17206, 17211,17213 

2342, 17137,17174 

5735 

54 22 

5612 

5704 



6012, 6030, 6050, 6063 



6267, 6273 



5 507, 5512 



5452, 5666, 5726, 6G02, 6017, 6031, 6046 



5602 

5722 

5373, 
67504 
67516 

2370, 5140, 5176, 5211, 5256, 5421, 6626, 6645,10270,10354,10377,10462,10512,12626,12650,13657,13673 
13707 ,15162, 15755, 16132, 16204, 1 6246, 16403, 16454, 16503 ,16703, 17027, 17060, 17077, 17116, 17400, 17425, 17540 

1007, 1025 

1033, 1040, 1061 

1036 

1037 

1060 
I4426>14506, 14524, 15435 

3054* 3055 

3542, 4044 

2257 

2152, 2161 

2153* 2162 
67576 

2150, 2157, 2200, 2203, 2207 
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2075 


W REW 


67556 






220C 


W MERR 


2216 






222 


Vi MIDI 


2170, 


2206 




2210 


W MIOR 


2165 






2 14 7 


W MPRT 


67566 






216 3 


W MRD'l 


2156 






2164 


W MRD2 


2160 






2115 


W REWP 


2113 






2107 


W REWR 


20 7 5,. 


2114 




2055 


W TAP1 


2067 






2 070 


W TAPR 


204 7, 


2050, 


2051, 2052, 2064, 


2243 


W TfAB 


2063, 


2105, 


2141, 2177, 2215 


6122 


WALLPC 


53*5* 


5741, 


5746 


2257 


WE J EC T 


67616 






2266 


WEJPRT 


2262 






2217 


WMCGMP 


2201 






2212 


WMIOER 


2175, 


2176 




2221 


WMICPT 


2214 






2154 


WMPRT1 


2147 






215 5 


WMPRT2 


2151 






2111 


WREWER 


2103, 


2104 




2253 


WSPAC1 


1531 






2252 


WSPAC2 


2254 






2244 


WSPACE 


67606 






2251 


WSPCON 


1530* 


2245, 


2247 


2047 


WTAPES 


67546 






3101 


X EXER 


30 76 






507 


ZB LANK 


1522, 


1 523 , 


1524, 1525 



2066 



NO ERROR IN ABOVE ASSEMBLY. 



17054 LINES GUTPL'T THIS JOB. 



«IIMI«HIIMIIMMIiMIMMI 



fttiici-t 
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$ID 



KACALA*00O5L26908*50 0P*10GOC*15M*TAPES$ 



509500 09/207 67 OH 14-37-43 OFF 14-43-07 



TYPE OF PROCESS 
TIME FOR EACH 



COMPILER 
GOQ.OO 



ASSEMBLER 

005.i32 



LOADER 
000.00 



EXECUTION 
000.00 



UTILITY 
000.07 



OTHER 
000.00 



TOTAL TIME 
005.40 



MP 



l» 



nnaanaaa *a snognn fla aaB fla a flaMaflBflliflflflflaflMaflaflaMBflflnaflflflflflaflflaaaflaaaa 



aaaaaj 



